Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Visual FoxPro) WhatsApp - First LoginLog in the very first time to get your authentication token. The new login/password is passed in the JSON body of the request. For more information, see https://developers.facebook.com/docs/whatsapp/api/users/login
LOCAL loHttp LOCAL lnSuccess LOCAL loJson LOCAL loResp LOCAL loSbResponseBody LOCAL loJResp LOCAL lnRespStatusCode LOCAL lcToken LOCAL lcExpires_after LOCAL i LOCAL lnCount_i * This example assumes the Chilkat API to have been previously unlocked. * See Global Unlock Sample for sample code. loHttp = CreateObject('Chilkat_9_5_0.Http') * Implements the following CURL command: * curl -k -X POST https://your-webapp-hostname:your-webapp-port/v1/users/login \ * -H 'Content-Type: application/json' \ * --user 'admin:secret' \ * -d '{"new_password" : "new-password"}' loHttp.Login = "admin" loHttp.Password = "secret" * The following JSON is sent in the request body. * { * "new_password": "new-password" * } loJson = CreateObject('Chilkat_9_5_0.JsonObject') loJson.UpdateString("new_password","new-password") loHttp.SetRequestHeader("Content-Type","application/json") loResp = loHttp.PostJson3("https://your-webapp-hostname:your-webapp-port/v1/users/login","application/json",loJson) IF (loHttp.LastMethodSuccess = 0) THEN ? loHttp.LastErrorText RELEASE loHttp RELEASE loJson CANCEL ENDIF loSbResponseBody = CreateObject('Chilkat_9_5_0.StringBuilder') loResp.GetBodySb(loSbResponseBody) loJResp = CreateObject('Chilkat_9_5_0.JsonObject') loJResp.LoadSb(loSbResponseBody) loJResp.EmitCompact = 0 ? "Response Body:" ? loJResp.Emit() lnRespStatusCode = loResp.StatusCode ? "Response Status Code = " + STR(lnRespStatusCode) IF (lnRespStatusCode >= 400) THEN ? "Response Header:" ? loResp.Header ? "Failed." RELEASE loResp RELEASE loHttp RELEASE loJson RELEASE loSbResponseBody RELEASE loJResp CANCEL ENDIF RELEASE loResp * 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 lnCount_i = loJResp.SizeOfArray("users") DO WHILE i < lnCount_i loJResp.I = i lcToken = loJResp.StringOf("users[i].token") lcExpires_after = loJResp.StringOf("users[i].expires_after") i = i + 1 ENDDO RELEASE loHttp RELEASE loJson RELEASE loSbResponseBody RELEASE loJResp |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.