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
(Tcl) 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
load ./chilkat.dll # This example assumes the Chilkat API to have been previously unlocked. # See Global Unlock Sample for sample code. set http [new_CkHttp] # 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"}' CkHttp_put_Login $http "admin" CkHttp_put_Password $http "secret" # The following JSON is sent in the request body. # { # "new_password": "new-password" # } set json [new_CkJsonObject] CkJsonObject_UpdateString $json "new_password" "new-password" CkHttp_SetRequestHeader $http "Content-Type" "application/json" # resp is a CkHttpResponse set resp [CkHttp_PostJson3 $http "https://your-webapp-hostname:your-webapp-port/v1/users/login" "application/json" $json] if {[CkHttp_get_LastMethodSuccess $http] == 0} then { puts [CkHttp_lastErrorText $http] delete_CkHttp $http delete_CkJsonObject $json exit } set sbResponseBody [new_CkStringBuilder] CkHttpResponse_GetBodySb $resp $sbResponseBody set jResp [new_CkJsonObject] CkJsonObject_LoadSb $jResp $sbResponseBody CkJsonObject_put_EmitCompact $jResp 0 puts "Response Body:" puts [CkJsonObject_emit $jResp] set respStatusCode [CkHttpResponse_get_StatusCode $resp] puts "Response Status Code = $respStatusCode" if {$respStatusCode >= 400} then { puts "Response Header:" puts [CkHttpResponse_header $resp] puts "Failed." delete_CkHttpResponse $resp delete_CkHttp $http delete_CkJsonObject $json delete_CkStringBuilder $sbResponseBody delete_CkJsonObject $jResp exit } delete_CkHttpResponse $resp # 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... set i 0 set count_i [CkJsonObject_SizeOfArray $jResp "users"] while {$i < $count_i} { CkJsonObject_put_I $jResp $i set token [CkJsonObject_stringOf $jResp "users[i].token"] set expires_after [CkJsonObject_stringOf $jResp "users[i].expires_after"] set i [expr $i + 1] } delete_CkHttp $http delete_CkJsonObject $json delete_CkStringBuilder $sbResponseBody delete_CkJsonObject $jResp |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.