Click here to Skip to main content
15,860,972 members
Articles / Programming Languages / Visual Basic

vb.net AT commands to send SMS

Rate me:
Please Sign up or sign in to vote.
4.81/5 (24 votes)
25 Mar 2009CPOL1 min read 431.9K   30.5K   62   118
this article allows you to send SMS to any mobile using GSM modem or your mobile connected via USB able to Computer

Introduction

This code provided allows to send SMS from the PC to any mobile with the help of GSM modem or any GSM compatible mobile.

Background

Basically I am making use of AT commands , which are AtTention Commands which are used for  communication between the computer and the modem.

Microsoft windows provides witha software called Hyperterminal which is available through thispath.

Start-> Programs-> Accessories->communications->hypertreminal

AT commands can be typed here. Hypertreminal communicates directly with the modem /mobile connected and instructs the modem. It also gives responses back as OK or error etc. But if we have a application where we need to send SMS after a specific set of actions, then hypertreminal is not useful, since it requiers manual typing. You need to select the COm port on which modem/mobile is connected.(port can be serial port for modem or USB port for mobile).

The code given does this.If any doubs are there you can contact me on the forum below

Using the Code

First, connect modem or mobile. Go to device manager and under Ports options check for which COM (e.g. COM3 , COM4 etc)port your modem/mobile has been connected to.

VB
//
// if COM3 is shown in device manager then put COM4 in foll statement
//
    Dim SMSEngine As New SMSCOMMS("COM4")

'the port needs to be initialised

SMSPort = New SerialPort
        With SMSPort
            .PortName = COMMPORT
            .BaudRate = 19200
            .Parity = Parity.None
            .DataBits = 8
            .StopBits = StopBits.One
            .Handshake = Handshake.RequestToSend
            .DtrEnable = True
            .RtsEnable = True
            .NewLine = vbCrLf
        End With 


        'this is  the set of AT commands to be written on serial port

            SMSPort.WriteLine("AT")
            'set command message format to text mode(1)
            SMSPort.WriteLine("AT+CMGF=1" & vbCrLf) 
            'set service center address (which varies for service providers (idea, airtel))
            SMSPort.WriteLine("AT+CSCA=""+919822078000""" & vbCrLf)             
            ' enter the mobile number whom you want to send the SMS
            SMSPort.WriteLine("AT+CMGS=  + TextBox1.text + " & vbCrLf) 
            _ContSMS = False
            SMSPort.WriteLine("+ TextBox1.text +" & vbCrLf & Chr(26)) 'SMS sending

    Dim i As Integer
    Private Sub Button1_Click(ByVal sender As System.Object,
       ByVal e As System.EventArgs) Handles Button1.Click

        SMSEngine.Open() 'open the port
        SMSEngine.SendSMS() 'send the SMS

    End Sub

class SMSCOMMS is defined in the code. I have tried this code with only nokia mobiles like nokia 5310, nokia 3500 etc. ALso i have tried sending sms from airtel provider to idea also. It works fine. Download the code. Its simple n explained with comments. 

Points of Interest

Programming in mobile communication, serial port interfacing, TAPI programming in.net

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)


Written By
Software Developer (Junior)
India India
hello . I am studying BE in information technology in GOA.
My interests lie in programming in mobile communication in vb.net etc.

Comments and Discussions

 
QuestionReceive an SMS Pin
Member 126135079-Aug-20 16:09
Member 126135079-Aug-20 16:09 
Questionhow do I send 1 sms to multi receiver ? Pin
Member 1321222924-May-17 2:00
Member 1321222924-May-17 2:00 
QuestionBulk Messages/Text Blast Pin
Member 1300571416-Feb-17 6:00
Member 1300571416-Feb-17 6:00 
AnswerRe: Bulk Messages/Text Blast Pin
iggyjig14-Nov-18 15:22
iggyjig14-Nov-18 15:22 
QuestionReceiving Message Code Pin
Member 1300571416-Feb-17 5:58
Member 1300571416-Feb-17 5:58 
Question100 % Working Pin
Member 1300571416-Feb-17 6:23
Member 1300571416-Feb-17 6:23 
QuestionSmall project for Namrata (sms component) Pin
Member 1164086824-Apr-15 22:26
Member 1164086824-Apr-15 22:26 
QuestionI want same code in VB6. Can you give me ? Pin
Rahul Kanchan17-Mar-15 17:13
Rahul Kanchan17-Mar-15 17:13 
QuestionSolved Pin
niranjanbhuta200612-May-14 1:24
niranjanbhuta200612-May-14 1:24 
Questionnot working in samsung galaxy s4 Pin
Member 106445546-Mar-14 1:42
Member 106445546-Mar-14 1:42 
Questionnokia c2-02 & nokia 2700 classic Pin
Member 806042015-Dec-13 3:13
Member 806042015-Dec-13 3:13 
Questionhow i can send sms in asp.net? Pin
irfanansari21-Sep-13 1:57
irfanansari21-Sep-13 1:57 
Question.PortName = COMMPORT Pin
irfanansari30-Aug-13 23:13
irfanansari30-Aug-13 23:13 
QuestionMy Application freezes Pin
Kashif Alvi25-Aug-13 5:21
Kashif Alvi25-Aug-13 5:21 
QuestionIt work, but change something Pin
sennetwork20-Jun-13 21:35
sennetwork20-Jun-13 21:35 
GeneralMy vote of 5 Pin
mohajery6-Jun-13 7:56
mohajery6-Jun-13 7:56 
BugMy phone is restarting.. Pin
ngagebhavik12-Apr-13 22:51
ngagebhavik12-Apr-13 22:51 
QuestionNot Working.. Pin
bandhalaraja31-Jan-13 18:33
bandhalaraja31-Jan-13 18:33 
AnswerRe: Not Working.. Pin
sennetwork20-Jun-13 21:36
sennetwork20-Jun-13 21:36 
QuestionTimeoutException was unhandled Pin
ArthurWong8923-Jan-13 4:40
ArthurWong8923-Jan-13 4:40 
GeneralMessage center number Pin
Dibu.net3-Jan-13 1:57
professionalDibu.net3-Jan-13 1:57 
GeneralMy vote of 4 Pin
saqibsabir25-Dec-12 18:45
saqibsabir25-Dec-12 18:45 
QuestionNot Sending Help Please Pin
saqibsabir25-Dec-12 7:53
saqibsabir25-Dec-12 7:53 
QuestionPORT ERROR. Pin
Anz Tara18-Dec-12 20:42
Anz Tara18-Dec-12 20:42 
Questionnot sending Pin
agung.imannuel2-Oct-12 1:42
agung.imannuel2-Oct-12 1:42 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.