B4X

Clickatell Send SMS Text Message using HTTP GET

See more Clickatell Examples

Demonstrate how to send a Clickatell SMS text message using an HTTP GET request with query params. 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")

'  Implements the following CURL command:

'  curl -G https://api.clickatell.com/http/sendmsg \
'    -d "api_id=xxxx" \
'    -d "user=yourUsername" \
'    -d "password=yourPassword" \
'    -d "from=yourFromPhoneNumber" \
'    -d "to=receiverPhoneNumber" \
'    -d "text=The text of your message"

'  Use the following online tool to generate HTTP code from a CURL command
'  Convert a cURL Command to HTTP Source Code

Dim queryParams As ChilkatJsonObject
queryParams.Initialize
queryParams.UpdateString("api_id", "xxxx")
queryParams.UpdateString("user", "yourUsername")
queryParams.UpdateString("password", "yourPassword")
queryParams.UpdateString("from", "yourFromPhoneNumber")
queryParams.UpdateString("to", "receiverPhoneNumber")
queryParams.UpdateString("text", "The text of your message")

'  If the following URL does not work, then try "https://api.clickatell.com/http/sendmsg"
Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpParams("GET", "https://platform.clickatell.com/messages/http/send", queryParams, resp)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


Log(resp.StatusCode)
Log(resp.BodyStr)