Skip to main content

Sending SMS in VB.NET (AT COMMANDS)


Simple project, but its very useful.

Device needed.
GSM MODEM (globe tattoo, smart bro plugins)
Visual Studio 2010.

Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. After downloading it, you will need a program like Winzip to decompress it.

Virus note: All files are scanned once-a-day by SourceCodester.com for viruses, but new viruses come out every day, so no prevention program can catch 100% of them.

FOR YOUR OWN SAFETY, PLEASE:

1. Re-scan downloaded files using your personal virus checker before using it.
2. NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.

Comments

Submitted byAnonymous (not verified)on Sat, 09/22/2012 - 19:02

panu naman po pala pagusto ko nakakapag reply sila sa messages ko.. pde po makahinge ng code :D tnx master

Submitted byAnonymous (not verified)on Sat, 10/13/2012 - 23:32

bakit po ganun? nag ssend sia, pero wla nman aq nrreciv dun sa pinag ssendan q? tnx in advance

Submitted bylinux251 (not verified)on Mon, 11/11/2013 - 16:34

In reply to by Anonymous (not verified)

parehas tayo men . may alam kn ? share nmn dyan :)

Submitted byhotmash19on Tue, 11/28/2017 - 14:16

In reply to by linux251 (not verified)

use broadband stick para maka send ka. dapat yung broadband mo is unli para makaka receive ka.

Submitted bysheen (not verified)on Fri, 11/09/2012 - 10:44

gumagana, kailangan lang talaga ng load.
Do you have codes for receiving/reading sms?

Submitted byAnonymous (not verified)on Tue, 01/08/2013 - 03:38

eh yung reciving txt from smartbrodband to vb.net meron ka? i just need yung pag may nag text sa smartbrodband mapupunta sa text1 ng vb.net para mabasa lng ng program ko...

tnx any way

Submitted byAnonymous (not verified)on Fri, 01/18/2013 - 03:29

yeh its running 100%

meron ka bang recieving txt from smart brodband to vb.net application?

Submitted byAnonymous (not verified)on Tue, 02/05/2013 - 10:39

bro, may error sa SerialPort1.Open() na line , d nya recognized ang comport 1, thanks sa mga sasagot

Submitted byAnonymous (not verified)on Wed, 04/17/2013 - 17:11

i need to make an application that the data is sent from one port on the mobile device, and received at another port on the same mobile device.

Submitted byAnonymous (not verified)on Sat, 06/08/2013 - 00:37

this is work.. thanks.. if u use wavecom, SerialPort1.BaudRate = 115200.. just for share... thanks you ^<_>

Submitted byGinfrecz (not verified)on Tue, 12/17/2013 - 15:31

i tried in SmartBro pero wala nmn eh.. may dapat bang i-edit

sir windows 10 gamit ko e .. d gumagana nag send na ako wala akong na recieve..plssss help kailangan sa thesis plsssssssss

Submitted byOhmzHerms (not verified)on Mon, 03/17/2014 - 22:28

bro reply pls how to add text character like 160 character

as far as i know, fixed syang 160 kada message, parang un ung limit. tpos pagumabot ka na 161+ characters magiging message #2 na un.

Submitted byarth cabuguason (not verified)on Wed, 03/19/2014 - 16:48

How to send unlimited sms using smart bro and vb.net

Submitted byzack (not verified)on Tue, 03/25/2014 - 23:19

there's an error occurred,,it says "resource is in use",,,what happen?
and what is smart bro plugin? reply please master :)

Submitted bylester1992on Sun, 03/30/2014 - 13:33

In reply to by zack (not verified)

send me screenshot of the error that you encountered, send at my facebook page, www.facebook.com/AskCompTutor

Submitted byNomis226 (not verified)on Thu, 05/08/2014 - 12:51

I find the SMS driven functionalities of ActiveXperts ( Just Google it! ) software that can be embedded in a .Net application much more flexible, and device selection could be made automatic than relying on the manual selection of COM port where the device is connected. the code is fairly straightforward and easier to understand..great job though for this sample app, i used some of your codes in my project as a reference.. :)

Submitted bymeraalhinai (not verified)on Fri, 05/16/2014 - 17:17

what should i put in the ( )
what should i change in the code to make the program run ??
thanks

Submitted byryan1111 (not verified)on Thu, 08/28/2014 - 05:52

PAR ERROR AKO SA CODE NA serialport1.write("AT" & vbCrLf)

Submitted bylester1992on Wed, 09/03/2014 - 15:38

gngamit sya para malaman mo kung gumagna ba tlga ung gsm modem mo para sa at command, pancheck din sya ng port para alam mo kung anung port ggmtn mo

Submitted bycanz (not verified)on Thu, 11/20/2014 - 15:10

sir , sun broadband po ginagamit ko . tapos COM3 ang port number .
nachange ko na sa codes ung COM15 to COM3 pero may error pa rin .
"The requested resource is in use." yan po lumalabas

Submitted byLemuel crispino (not verified)on Wed, 03/04/2015 - 17:10

Hello po... Kua Puede po patulong sa thesis ko po. Paanu po mag send using vb studio 2010 to a cellphone using globe tatto.

Submitted byrbvillah (not verified)on Thu, 08/27/2015 - 22:13

SIr, "Access to the port is denied" ang lumalabas once i try to send an SMS. I'm using Globe Broadband po.

Submitted bylicardojjvt (not verified)on Mon, 11/09/2015 - 12:38

Hello. pwede po ito sa postpaid at prepaid?

Submitted byangel sarmiento (not verified)on Thu, 09/22/2016 - 23:33

Imports System.IO.Ports
Public Class Form1
Dim SerialPort1 As New System.IO.Ports.SerialPort()

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
SerialPort1.PortName = "COM3"
SerialPort1.BaudRate = 9600
SerialPort1.Parity = Parity.None
SerialPort1.StopBits = StopBits.One
SerialPort1.DataBits = 8
SerialPort1.Handshake = Handshake.RequestToSend
SerialPort1.DtrEnable = True
SerialPort1.RtsEnable = True
SerialPort1.NewLine = vbCrLf
End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim message As String
message = RichTextBox1.Text
SerialPort1.Open()
If SerialPort1.IsOpen() Then
SerialPort1.Write("AT" & vbCrLf)
SerialPort1.Write("AT+CMGF=1" & vbCrLf)
SerialPort1.Write("AT+CMGS=" & Chr(34) & TextBox1.Text & Chr(34) & vbCrLf)
SerialPort1.Write(message & Chr(26))
MsgBox("Sent")
Else
MsgBox("Port not available")
End If
End Sub
End Class

Submitted byEva (not verified)on Tue, 12/20/2016 - 14:47

sir.. the code doesnt have any error but i didn't receive any message.. can you help me please

Submitted byBert990131 (not verified)on Sat, 11/18/2017 - 16:54

Yung port com15 does not exist paano po sya mababago?

Add new comment

CAPTCHA
This question is for testing whether or not you are a human visitor and to prevent automated spam submissions.