Send Bulk SMS with VB.net in iSMS Australia
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 FilesLearn more about sending SMS with other programming languages.
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
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