Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Excel) WhatsApp - LoginLog in to get your authentication token (which is to be used in the "Authorization: Bearer your-auth-token" header in other REST API calls). For more information, see https://developers.facebook.com/docs/whatsapp/api/users/login
' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim http As Chilkat.Http Set http = Chilkat.NewHttp ' Implements the following CURL command: ' curl -X POST https://your-webapp-hostname:your-webapp-port/v1/users/login \ ' -H 'Content-Type: application/json' \ ' --user 'username:password' \ ' -d '{}' http.Login = "username" http.Password = "password" ' The following JSON is sent in the request body. ' {} Dim json As Chilkat.JsonObject Set json = Chilkat.NewJsonObject http.SetRequestHeader "Content-Type","application/json" Set resp = http.PostJson3("https://your-webapp-hostname:your-webapp-port/v1/users/login","application/json",json) If (http.LastMethodSuccess = False) Then Debug.Print http.LastErrorText Exit Sub End If Dim sbResponseBody As Chilkat.StringBuilder Set sbResponseBody = Chilkat.NewStringBuilder Dim success As Boolean success = resp.GetBodySb(sbResponseBody) Dim jResp As Chilkat.JsonObject Set jResp = Chilkat.NewJsonObject success = jResp.LoadSb(sbResponseBody) jResp.EmitCompact = False Debug.Print "Response Body:" Debug.Print jResp.Emit() respStatusCode = resp.StatusCode Debug.Print "Response Status Code = "; respStatusCode If (respStatusCode >= 400) Then Debug.Print "Response Header:" Debug.Print resp.Header Debug.Print "Failed." Exit Sub End If ' Sample JSON response: ' (Sample code for parsing the JSON response is shown below) ' { ' "users": [ ' { ' "token": "eyJhbGciOHlXVCJ9.eyJ1c2VyIjoNTIzMDE2Nn0.mEoF0COaO00Z1cANo", ' "expires_after": "2018-03-01 15:29:26+00:00" ' } ' ] ' } ' Sample code for parsing the JSON response... i = 0 count_i = jResp.SizeOfArray("users") Do While i < count_i jResp.I = i token = jResp.StringOf("users[i].token") expires_after = jResp.StringOf("users[i].expires_after") i = i + 1 Loop |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.