By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
440,057 Members | 1,363 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 440,057 IT Pros & Developers. It's quick & easy.

receive sms using vb6(codes)

P: 2
Hi everyOne..currently I m dOing my final yr project...I haf sOme cOdes attached..coz i realli don nOe ho to continue...can anyone help mi...

Thanks!! The one is bold is where i got stuck..

Thanks alot!!!


Private Sub cmdSendMesg_Click()
' Set up the communications port
MSComm1.CommPort = 1 ' Com Port 1

' Set for 9600 baud, no parity, 8 data, and 1 stop bit.
MSComm1.Settings = "9600,N,8,1"

' Tell the control to read entire buffer when Input is used
MSComm1.InputLen = 0

' Open the port
MSComm1.PortOpen = True

' Send an 'AT' command to the phone
MSComm1.Output = "AT" & Chr$(13)
' The phone will respond with an 'OK'

' Set up the phone for a text message
MSComm1.Output = "AT+CMGF=1" & Chr$(13)
' The phone will respond with an 'OK'

' new mesg indication automatically send to pc, and not saved new mesg to sim/phone memory
MSComm1.Output = "AT+CNMI=1,2,0,0,0 " & Chr$(13)

(THIS IS WHERE I AM STUCK; dont know what to write next..)

' Close the port
MSComm1.PortOpen = False

End Sub
Reply With Quote
Nov 5 '06 #1
Share this question for a faster answer!
Share on Google+

Post your reply

Sign in to post your reply or Sign up for a free account.