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

Recommended Answers

Have a look at this article.

Jump to Post

All 3 Replies

Have a look at this article.

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

the 7th line .commport = 2 ' Reports an eeror message "invalid PORT Number'

Be a part of the DaniWeb community

We're a friendly, industry-focused community of 1.21 million developers, IT pros, digital marketers, and technology enthusiasts learning and sharing knowledge.