B4X

WaTrend Send WhatsApp Text

See more WaTrend Examples

Send a WhatsApp text. B4X

Dim success As Boolean = False

'  This example assumes the Chilkat API to have been previously unlocked.
'  See Global Unlock Sample for sample code.

Dim http As ChilkatHttp
http.Initialize("http")

'  Use your actual access token instead of 555555555555555555555555555555
Dim req As ChilkatHttpRequest
req.Initialize
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:
Dim sbUrl As ChilkatStringBuilder
sbUrl.Initialize
sbUrl.Append("https://app.watrend.com/api/send.php?")
sbUrl.Append(req.GetUrlEncodedParams)
Dim responseBodyStr As String = http.QuickGetStr(sbUrl.GetAsString)
'  The responseBodyStr contains the JSON response from the server..

req.HttpVerb = "POST"
req.ContentType = "application/x-www-form-urlencoded"

Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpReq("https://app.watrend.com/api/send.php", req, resp)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


Dim sbResponseBody As ChilkatStringBuilder
sbResponseBody.Initialize
resp.GetBodySb(sbResponseBody)

Dim respStatusCode As Int = resp.StatusCode
Log("Response Status Code = " & respStatusCode)
If respStatusCode >= 400 Then
    Log("Response Header:")
    Log(resp.Header)
    Log("Failed.")
    Return
End If


Log(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"}

Dim jResp As ChilkatJsonObject
jResp.Initialize
jResp.LoadSb(sbResponseBody)

Dim status As String = jResp.StringOf("status")
Log("status: " & status)