i need a code to receive sms on pc using at commands in vb6....urgent helpppp till now i have got this much bt i am stucked


Private Sub Form_Load()
With MSComm1
.Handshaking = comNone
'make sure the serial port is not open (by this program)
If .PortOpen Then .PortOpen = False
'set the active serial port
.CommPort = 2
'set the badurate,parity,databits,stopbits for the connection
.Settings = "9600,N,8,1"
'set the DRT and RTS flags
.DTREnable = True
.RTSEnable = True
'enable the oncomm event for every reveived character
.RThreshold = 1
'disable the oncomm event for send characters
.SThreshold = 0
'open the serial port
.PortOpen = True
End With 'MSComm1

End Sub

Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvRecieve
MSComm1.Output = "AT+CMGF=1" & Chr$(13)
MSComm1.Output = "AT+CNMI=1,2,0,0,0 " & Chr$(13)
MSComm1.Output = "AT+CMGR=1" & Chr$(13)
buffer$ = buffer$ & MSComm1.Input
buffer$ = ""

Sleep 1000
msg = msg & MSComm1.Input

Text1.Text = msg
End Sub

Edited 6 Years Ago by __avd: Added [code] tags. For easy readability, always wrap programming code within posts in [code] (code blocks).

Have a look at this article.

heyy thank
bt my main problem is i should gt d msg on my text box...as soon as it arrives on gsm modem sim card
can u plz tell me the logic
lyk mscoom_oncomm n com evreceive ...
plz help...urgent

This article has been dead for over six months. Start a new discussion instead.