炎黄大陆十纪元版本:关于VB收发短消息的问题(所有积分送给你)

来源：百度文库 编辑：杭州交通信息网 时间：2024/05/03 10:26:31
我编了一段程序,也通过模块发送到手机上了
Private Sub Command1_Click()

MSComm1.Output = "AT"
MSComm1.Output = Chr(13)
MSComm1.Output = "AT+CMGF=1"
MSComm1.Output = Chr(13)
MSComm1.Output = "AT+CMGS="
MSComm1.Output = Chr(34)
MSComm1.Output = "13010225423"
MSComm1.Output = Chr(34)
MSComm1.Output = Chr(13)
MSComm1.OutBufferCount = 0
MSComm1.Output = "test OK "
MSComm1.Output = Chr(26)
End Sub

Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.PortOpen = True
MSComm1.Settings = "9600,n,8,1"
MSComm1.InBufferCount = 0
MSComm1.OutBufferCount = 0
MSComm1.InputLen = 0
End Sub

打算发送的内容是"test ok".在手机上正确的内容也应该是"test ok".可我发完后手机上却是
AT
AT+CMGF=1
AT+CMGS=13010225423
test OK

程序哪里有问题呢?怎么编才可以在手机上只显示test OK 呢????
现在发送的问题我已经解决了,短信接收又成问题了.
我怎么样把接收到的数据入库??
谁可以帮帮我~~~

MSComm1.Output = "AT"
MSComm1.Output = Chr(13)
这两句可以去掉。
然后再在你的手机号码前加一个“+”号试试看。

关于VB收发短消息的问题(所有积分送给你) 关于国际短消息的问题 送给喜欢音乐的朋友一些积分！只要你答对我的问题！ 所有机会送给你 关于数据包收发的问题！ 关于收发邮件的问题 关于装修房子的问题？悬赏所有的积分：） 关于鬼的短消息 关于收发电子邮件的问题(技术问题) 短消息的问题啊？