How to Send SMS Australia with VB.net

iSMS Australia is now integrate with Visual Basic .NET (VB.NET). Get started with the help of sample script below and substitute with your iSMS account information accordingly.

View more available features and configurations on Custom API page.

Download VB.NET Demo Files

Sample script

Imports System.IO
Imports System.Text

Public Function SendSMS(ByVal phoneno As String, ByVal msg As String)
phoneno = phoneno.Replace(",", ";")
Dim phone_arr As String() = Split(phoneno, ";")

For Each pno As String In phone_arr
Dim url As New System.Uri("http://www.isms.com.my/isms_send.php?un=" + isms_username + "&pwd=" + isms_password + "&dstno=" + pno + "&msg=" + msg + "&type=1&sendid=")
Dim req As System.Net.WebRequest
req = System.Net.WebRequest.Create(url)
Dim resp As System.Net.WebResponse
Try
resp = req.GetResponse()
Dim reader As StreamReader = New StreamReader(resp.GetResponseStream())

Dim balance_str As String = Trim(Strip(reader.ReadToEnd().Trim()))

resp.Close()
req = Nothing
Catch ex As Exception
req = Nothing
End Try
Next

Return True
End Function