![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VBScript) WaTrend Send WhatsApp TextSee more WaTrend ExamplesSend a WhatsApp text.Note: This example requires Chilkat v11.0.0 or greater.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") 'Create a Unicode (utf-16) output text file. Set outFile = fso.CreateTextFile("output.txt", True, True) success = 0 ' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. set http = CreateObject("Chilkat.Http") ' Use your actual access token instead of 555555555555555555555555555555 set req = CreateObject("Chilkat.HttpRequest") req.AddParam "number","84933313xxx" req.AddParam "type","text" req.AddParam "message","This is a test message" req.AddParam "instance_id","609ACF283XXXX" req.AddParam "access_token","555555555555555555555555555555" ' Note: The WaTrend online documentation indicate a POST should be used. ' However, it seems you might actually need to send a GET request. ' It is unclear. ' If a GET is neeed, you would just send to the URL w/ query params like this: set sbUrl = CreateObject("Chilkat.StringBuilder") success = sbUrl.Append("https://app.watrend.com/api/send.php?") success = sbUrl.Append(req.GetUrlEncodedParams()) responseBodyStr = http.QuickGetStr(sbUrl.GetAsString()) ' The responseBodyStr contains the JSON response from the server.. req.HttpVerb = "POST" req.ContentType = "application/x-www-form-urlencoded" set resp = CreateObject("Chilkat.HttpResponse") success = http.HttpReq("https://app.watrend.com/api/send.php",req,resp) If (success = 0) Then outFile.WriteLine(http.LastErrorText) WScript.Quit End If set sbResponseBody = CreateObject("Chilkat.StringBuilder") success = resp.GetBodySb(sbResponseBody) respStatusCode = resp.StatusCode outFile.WriteLine("Response Status Code = " & respStatusCode) If (respStatusCode >= 400) Then outFile.WriteLine("Response Header:") outFile.WriteLine(resp.Header) outFile.WriteLine("Failed.") WScript.Quit End If outFile.WriteLine(resp.BodyStr) ' Both success and failed responses use 200 status code. ' A success response contains this JSON in the response body: ' {"status":"success", ... } ' A failed response will contain something like this: ' {"status":"error","message":"License Invalidated"} set jResp = CreateObject("Chilkat.JsonObject") success = jResp.LoadSb(sbResponseBody) status = jResp.StringOf("status") outFile.WriteLine("status: " & status) outFile.Close |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.