To send an SMS text message to a Nokia phone with Visual Basic:' 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) & Chr(10) ' The phone will respond with an 'OK'' Set up the phone for a text message MSComm1.Output = "AT+CMGF=1" & Chr$(13) & Chr(10) ' The phone will respond with an 'OK'' Prep for SMS, give destination type and destination address. ' Enter the destination type and destination address to prep for SMS ' e.g. AT+CMGS="+2145551212",129 MSComm1.Output = "AT+CMGS= " & Chr(34) & "+2145551212" & Chr(34) & ",129" & Chr$(13) & Chr(10) ' The phone will return a'>' prompt, and await entry of the SMS message text.' Now send the text to the phone and terminate with (Ctrl-Z) MSComm1.Output = "This is a test. WOW! " ' The phone will respond with a conformation containing the 'message reference number' eg. +CMGS: ' Close the port MSComm1.PortOpen = False From a terminal, it would look like this:AT OK AT+CMGF=1 OK AT+CMGS="+15127752607",129 >This is a test. WOW! +CMGS: 49
http://asp.7i24.com/yjack
http://www.csdn.net/Expert/TopicView1.asp?id=779429
另一个邮箱 [email protected]
thanks
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) & Chr(10)
' The phone will respond with an 'OK'' Set up the phone for a text message
MSComm1.Output = "AT+CMGF=1" & Chr$(13) & Chr(10)
' The phone will respond with an 'OK'' Prep for SMS, give destination type and destination address.
' Enter the destination type and destination address to prep for SMS
' e.g. AT+CMGS="+2145551212",129
MSComm1.Output = "AT+CMGS= " & Chr(34) & "+2145551212" & Chr(34) & ",129" & Chr$(13) & Chr(10)
' The phone will return a'>' prompt, and await entry of the SMS message text.' Now send the text to the phone and terminate with (Ctrl-Z)
MSComm1.Output = "This is a test. WOW! "
' The phone will respond with a conformation containing the 'message reference number' eg. +CMGS: ' Close the port
MSComm1.PortOpen = False
From a terminal, it would look like this:AT
OK
AT+CMGF=1
OK
AT+CMGS="+15127752607",129
>This is a test. WOW!
+CMGS: 49