(VBScript) Send SMS Messages via Route Mobile's SMSPlus REST API

Demonstrates how to use the Route Mobile SMSPLUS Bulk HTTP API.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

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

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.HttpRequest")
set req = CreateObject("Chilkat.HttpRequest")

req.Path = "/bulksms/bulksms"
req.AddParam "username","YOUR_USERNAME"
req.AddParam "password","YOUR_PASSWORD"

' Indicate the type of message. 
' Values for type include: 
' 0: Plain text (GSM 3.38 Character encoding) 
' 1: Flash (GSM 3.38 Character encoding)  
' 2: Unicode 
' 3: Reserved  
' 4: WAP Push 
' 5: Plain text (ISO-8859-1 Character encoding)  
' 6: Unicode Flash 
' 7: Flash (ISO-8859-1 Character encoding) 
req.AddParam "type","0"

' destination is the Mobile number to which the message is to be sent 
' (may or may not include a plus [+] sign). 
' Multiple mobile numbers can be separated by commas (,)
' No need to URL encode strings passed to AddParam. 
' Chilkat will automatically URL encode when the request is sent.
req.AddParam "destination","+14155551234"

' Specify the source address that should appear in the message.
' Max Length of 18 if numeric.
' Max Length of 11 if alphanumeric. To prefix the plus sign (+) to the sender�s address 
' when the message is displayed on their cell phone, please prefix the plus sign 
' to your sender�s address while submitting the message 
req.AddParam "source","+14155558999"

' Add the message itself.  (No URL encoding needed.)
req.AddParam "message","Test Message"

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http")
set http = CreateObject("Chilkat.Http")
' resp is a Chilkat.HttpResponse
Set resp = http.PostUrlEncoded("http://api.rmlconnect.net/bulksms/bulksms",req)
If (http.LastMethodSuccess <> 1) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

' Examine the response status code and the response body:
outFile.WriteLine("response status code = " & resp.StatusCode)
outFile.WriteLine("response body:")
outFile.WriteLine(resp.BodyStr)


outFile.Close