(VB.NET UWP/WinRT) Send SMS Messages via Route Mobile's SMSPlus REST API

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

Chilkat Universal Windows Platform (UWP) / WinRT Downloads Chilkat for the Universal Windows Platform (UWP)

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

Dim req As New 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 senders address 

'  when the message is displayed on their cell phone, please prefix the plus sign
'  to your senders address while submitting the message 

req.AddParam("source","+14155558999")

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

Dim http As New Chilkat.Http
Dim resp As Chilkat.HttpResponse = Await http.PostUrlEncodedAsync("http://api.rmlconnect.net/bulksms/bulksms",req)
If (http.LastMethodSuccess <> True) Then
    Debug.WriteLine(http.LastErrorText)
    Exit Sub
End If


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