Member Avatar for appy29

helllo...
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

code==

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)
Do
DoEvents
buffer$ = buffer$ & MSComm1.Input
buffer$ = ""

Sleep 1000
msg = msg & MSComm1.Input

Text1.Text = msg
End Sub
Edited by kvprajapati because: Added [code] tags. For easy readability, always wrap programming code within posts in [code] (code blocks).
  • 3 Contributors
  • 3 Replies
  • 1K Views
  • 2 Years Discussion Span
  • Latest Post Latest Post by venangel79
Member Avatar for appy29

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

Member Avatar for venangel79

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 developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.