How to Send SMS With VB.net
This guide is a guide provided by our iSMS Malaysia Team. You will be given information on how to add SMS functionality to your website and how to send sms with VB.NET code. This method uses HTTP communication between the SMS Gateway and your website. To send and receive SMS messages from a webpage, you will need to have scripting support enabled on your webserver. Below are some examples using VB.NET scripting.
To understand more about our iSMS API Key features, please visit our Developer API page.
All available features and configurations will be displayed at the iSMS Developer API page. Integrate our SMS API into your VB.NET application and enjoy our SMS services.
Download VB.NET Demo Files
1. Firstly, register a username and password from iSMS Register Page.
It only requires a few information from you such as username, password and your mobile number. It is free.
After you have register an account, you will need to purchase some credit from iSMS Reload Page, you will receive an email containing the reload PIN if you purchase for the first time.
However, if you purchase more than once, the account is automatically credited. Login to iSMS website and insert the PIN.
2. Now you are ready.
Create a file called api_post.php in your host and paste the code below.
Private Function SendSMS(ByVal Test As Boolean, _
ByVal From As String, _
ByVal Type As String, _
ByVal Message As String, _
ByVal SendTo As String, _
ByVal URL As String) As String
Const TransportURL As String ="http://www.isms.com.my/isms_send.php"
Const TransportUserNameAs String ="myusername"
Const TransportPasswordAs String ="mypassword"
Const TransportVerboseAs Boolean =True
Dim strPost As String
strPost = "un=" + TransportUserName _
+ "&pwd=" + TransportPassword _
+ "&msg=" + System.Web.HttpUtility.UrlEncode(Message) _
+ "&sendid=" + From _
+ "&type=" + Type _
+ "&dstno=" + SendTo
Dim request As WebRequest = WebRequest.Create(TransportURL)
request.Method = "GET"
Dim byteArray As Byte() = Encoding.UTF8.GetBytes(strPost)
request.ContentType = "application/x-www-form-urlencoded"
request.ContentLength = byteArray.Length
Dim dataStream As Stream = request.GetRequestStream()
dataStream.Write(byteArray, 0, byteArray.Length)
Dim response As WebResponse = request.GetResponse()
dataStream = response.GetResponseStream()
Dim reader As New StreamReader(dataStream)
Dim responseFromServerAs String = reader.ReadToEnd()
If responseFromServer.Length > 0 Then
Return CType(response, HttpWebResponse).StatusDescription
Please click below to download demo files:
Download VB.NET Demo Files
Other Contact MethodsFor further enquiries, please contact us via our contact page or the information below:
E-mail | email@example.com
Note to registered users: Please include your Username in the email.
If operators are busy, please call the next number below.