receive sms using vb6(codes)

[yanz]

Hi everyOne..curre ntly 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!!!


Codes

Private Sub cmdSendMesg_Cli ck()
' Set up the communications port
MSComm1.CommPor t = 1 ' Com Port 1

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

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

' Open the port
MSComm1.PortOpe n = 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.PortOpe n = False

End Sub
Reply With Quote