WhatsApp or 
WeChat us at +6016 450 2380How to Send Bulk SMS With VB.net
If you are developing VB.NET applications & would like to integrate iSMS Philippines send SMS feature, you can refer to the example below. You can send SMS through Visual Basic using our SMS API key.
To understand more about our iSMS Philippines API Key features, please visit Developer API page. All available features and configurations will be displayed at the iSMS Philippines Developer API page.
Download VB.NET Demo FilesFind out more about SMS API Key in other programming languages.
Sample Code
Please replace the following parameters in the script with your iSMS Philippines account info.
- un - username
- pwd - password
- dstno - destination number (complete with full country code)
The phone number parameter can be comma separated value, for instance "639217311111,639217322222
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.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
