DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

Receive SMS through GSM Modem

•

Join Date: Feb 2008

Posts: 6

Reputation: nyt1972 is an unknown quantity at this point

Solved Threads: 0

nyt1972

Offline

Newbie Poster

Receive SMS through GSM Modem

May 18th, 2009

Hello Friends,

I am trying this code to receive SMS through my GSM Modem but I just get this:

•

AT+CMGL="ALL"

OK

in the text2 box

Please help

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Private Sub Command2_Click()
Dim buffer
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
With MSComm1
.CommPort = 3
.Settings = "9600,N,8,1"
.InputLen = 0
.Handshaking = comNone
 
.PortOpen = True
End With
MSComm1.Output = "AT" & vbCrLf
Do
DoEvents
buffer = MSComm1.Input
Loop Until InStr(buffer, "OK")
buffer = ""
MSComm1.Output = "AT+CMGF=1" & vbCrLf
Do
DoEvents
buffer = MSComm1.Input
Loop Until InStr(buffer, "OK")
buffer = ""
MSComm1.Output = "AT+CMGL=" & Chr(34) & "ALL" & Chr(34) & vbCrLf
Do
DoEvents
buffer = buffer & MSComm1.Input
Loop Until InStr(buffer, "OK")
 
Text2.Text = buffer
End Sub
Private Sub Command2_Click()
Dim buffer
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
With MSComm1
.CommPort = 3
.Settings = "9600,N,8,1"
.InputLen = 0
.Handshaking = comNone

.PortOpen = True
End With
MSComm1.Output = "AT" & vbCrLf
Do
DoEvents
buffer = MSComm1.Input
Loop Until InStr(buffer, "OK")
buffer = ""
MSComm1.Output = "AT+CMGF=1" & vbCrLf
Do
DoEvents
buffer = MSComm1.Input
Loop Until InStr(buffer, "OK")
buffer = ""
MSComm1.Output = "AT+CMGL=" & Chr(34) & "ALL" & Chr(34) & vbCrLf
Do
DoEvents
buffer = buffer & MSComm1.Input
Loop Until InStr(buffer, "OK")

Text2.Text = buffer
End Sub

Thanking u all in advance.

•

Join Date: Dec 2007

Posts: 97

Reputation: VIeditorlover is an unknown quantity at this point

Solved Threads: 5

VIeditorlover VIeditorlover is offline

Offline

Junior Poster in Training

Re: Receive SMS through GSM Modem

May 28th, 2009

RTFM. If you have not any you should have a software from modem vendor so do little reverse engineering - line dump when receiving sms manually and find secret of the steel.