100元现金+100分求VB解决短信发送问题.
1.我用西门子3508i接数据线至COM2,测试AT,AT+CMGF=0均返回OK,运行程序发送手机老是提示"正在搜寻网络",而手机接受不到短信,如何解决.
2.如何接收返回信息
3.接收短信过程如何实现?
已发贴1次,无人解决,故许以重金,决不食言.
fwjyz@163.com 13963769309
Private Sub Form_Load()
MSComm1.Settings = "19200,N,8,1"
MSComm1.CommPort = 2
MSComm1.InputLen = 0
MSComm1.PortOpen = True
End Sub
Private Sub Command1_Click()
MSComm1.Output = "AT" & Chr$(13) & Chr(10)
MSComm1.Output = "AT+CMGF=0" & Chr$(13) & Chr(10)
MSComm1.Output = "AT+CMGS=" & Str(15 + 2) + vbCr
'发送"你" 至"13963769309" 短信中心号码"8613800537500"
MSComm1.Output = "0891683108507305F011000D91683169739603F9000800024F60" & Chr$(26)
End Eub
问题点数：100、回复次数：3Top
1 楼samp_miao（九天揽月）回复于 2004-12-06 15:47:39 得分 50
vb我不懂，VC我懂点。
发送过PDU串之后就是读COM端口啊，根据COM口的数据信息，可以知道是否发送成功。
你的字串页没有错啊，MSComm1.Output = "AT+CMGS=" & Str(15 + 2) + vbCr
中间的+ vbCr是什么啊？是回车码？为什么不是 & Chr$(13)？
我不懂VB，
Top
2 楼samp_miao（九天揽月）回复于 2004-12-06 15:48:31 得分 50
你可以先通过超级终端来试验，然后再用程序来测试。
Top
3 楼noahroom（）回复于 2004-12-11 10:03:23 得分 0
您好：
您的短信问题我们可以帮您解决：
如果您需要手机短信开发源码以及相关手机短信软件，请登录我工作室网站：
http://220.194.153.26:8089/noah/ 或 http://www.TaoBaoZhe.comTop
