急！通过网络发短信的源程序

Question

要用MSCOMM,先设置CommPort、Settings，在mscomm.PortOpenSub SendSM(strMessage as string)
strMessage 是你要发送的短信。
MSComm.Output = "AT+CMGF=1" + Chr(13) + Chr(10) 
MSComm.Output = "AT+CSMP=4,167,0,8" + Chr(13) + Chr(10)
MSComm.Output = "AT+CMGS=" + Chr(34) + 手机号码 + Chr(34) + Chr(13) 
MSComm.Output = strMessage的Unicode码+ Chr(26) 
End Sub再发送之前将strmessage转换为Unicode码

Answer 1

用MSCOMM,设置CommPort、Settings
在mscomm.PortOpenSub SendSM(strMessage as string)
MSComm.Output = "AT+CMGF=1" + Chr(13) + Chr(10) 
MSComm.Output = "AT+CSMP=4,167,0,8" + Chr(13) + Chr(10)
MSComm.Output = "AT+CMGS=" + Chr(34) + 手机号码 + Chr(34) + Chr(13) 
MSComm.Output = strMessage的Unicode码+ Chr(26) 
End Sub
再发送之前将strmessage转换为Unicode码

Answer 2

能给我一个完整的例子吗?
[email protected]