我使用移动短信设备发短信,代码如下:
MSComm1.InputLen = 0 '入整个缓冲区
MSComm1.PortOpen = True '打开端口
MSComm1.Output = "AT+CMGF=1" + vbCr '设置发送的模式,注意:一定要加上 vbCr
MSComm1.Output = "AT+CSCA=" & Chr$(34) & "8613800931500" & Chr$(34) & ",129" + vbCr
MSComm1.Output = "AT+CMGS=" & Chr$(34) & "15809312315" & Chr$(34) & ",129" + vbCr
MSComm1.Output = "test" & Chr$(26) 'chr$(26)是Ctr+ Z
运行时没有报错,调试时端口显示也正常,但短信没有发送,这是为什么,请大侠们赐教。
MSComm1.InputLen = 0 '入整个缓冲区
MSComm1.PortOpen = True '打开端口
MSComm1.Output = "AT+CMGF=1" + vbCr '设置发送的模式,注意:一定要加上 vbCr
MSComm1.Output = "AT+CSCA=" & Chr$(34) & "8613800931500" & Chr$(34) & ",129" + vbCr
MSComm1.Output = "AT+CMGS=" & Chr$(34) & "15809312315" & Chr$(34) & ",129" + vbCr
MSComm1.Output = "test" & Chr$(26) 'chr$(26)是Ctr+ Z
运行时没有报错,调试时端口显示也正常,但短信没有发送,这是为什么,请大侠们赐教。
解决方案 »
- 如何判断WORD中是否已插入表格
- 如何使coolbar工具条做得和Word中一样?急!
- ado 对象DataGrid控件编程中
- 女排3-1战胜老冤家美国队,玻璃美人赵蕊蕊再受伤
- 关于十六进制转浮点数据
- 谁给我发一个基本的VB数据库应用程序,数据库用ACCESS就可以!现实的功能就是数据的添加,删除,查询就可以!最简单的就可以!
- 用 qbasic编写 学籍管理系统
- 各位有没有QuickCHM或者Visual CHM的注册版!?或者注册版的下载地址,或者注册码?
- datagrid控件的增加记录问题
- 小弟我是VB初学者,请问在VB.net中怎样将程序打包。50
- WebBrowser里 右键 点击网址链接触发什么事件?
- 如何访问网口设备(RJ45)?
如果要用at命令发送,都是pdu发送短信
你的程序一看就没注册网络,你怎么发送短信?
那你要跟移动联系开通了,这个比较贵,估计你不会通过此方法实现