Interested with Bulk SMS Indonesia? Contact Us HERE

Send Bulk SMS Indonesia With VB.net

Home / Send Bulk SMS Indonesia With VB.net

How to Send Bulk SMS Indonesia With VB.net

Bulk SMS Indonesia is compatible with many programming languages such as PHP, Java, ASP.NET, C#, C++ and so on. If you plan to send SMS from your VB.NET application, iSMS Indonesia will be the best choice as our API keys are highly adaptive to any platform environment.

To understand more about our Bulk SMS Indonesia API Key features, please visit our Developer API page.

All available features and configurations will be displayed at the Bulk SMS Indonesia Developer API page. Integrate our Send SMS feature into your VB.NET application and enjoy our SMS services.

Download VB.NET Demo Files

Please click below to find out about our send SMS API in other programming languages.


Before compiling the program, please make sure you have registered yourself with Bulk SMS Indonesia so you can replace the following information inside the script sample below. If you have not registered, click HERE to join!

  1. Bulk SMS Indonesia Username
  2. Bulk SMS Indonesia Password
  3. Destination number (complete with area code)

The phone number parameter can be comma separated value, for instance "6593456789,6594567890". For sending to one recipient, pass the phoneno as "6595678905"

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

Download VB.NET Demo Files

Other Contact Methods

For further enquiries, please contact us via the information below:

E-mail | sales@mobiweb.com.my
Note to registered users: Please include your Username in the email.

Phone Numbers:
  • +604 2024 033 (Penang, Malaysia)
  • +603 2780 3880 (Kuala Lumpur, Malaysia)
Whatsapp

Register iSMS For FREE !

  • Register Bulk SMS Indonesia Account
  • Purchase Bulk SMS Credits
  • Reload Bulk SMS Credits

Click HERE to Register !