不看会后悔的Windows XP之经验谈	简单快捷DIY实用家庭影院

帮看下，通过PC发送短信的问题。

楼主xiaoBrother（）2005-01-07 15:08:58 在 VB / 基础类提问

运行这些代码，提示都正常，但消息发出去后对方手机却接收不到。
Private Sub Command1_Click()

Dim Buffer As String

MSComm1.CommPort = 3
MSComm1.InputLen = 0
MSComm1.InBufferCount = 0
MSComm1.InputMode = comInputModeText
MSComm1.Handshaking = comRTSXOnXOff
MSComm1.RTSEnable = True
MSComm1.Settings = "115200,N,8,1"

If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If

MSComm1.PortOpen = True
MSComm1.Output = "AT" + Chr(13)
Do
DoEvents
Loop Until MSComm1.InBufferCount >= 2
Buffer0 = MSComm1.Input
MsgBox Buffer0

MSComm1.Output = "AT+CMGF=1" + vbCr '设置发送的模式,注意:一定要加上 vbCr
Do
DoEvents
Loop Until MSComm1.InBufferCount >= 2
Buffer = MSComm1.Input
MsgBox Buffer
MSComm1.Output = "AT+CSCA=" & Chr$(34) & "8613800200500" & Chr$(34) + vbCr '8613010341500是短消息中心,各地的号码不一样,必须设置当地的短消息号码
Do
DoEvents
Loop Until MSComm1.InBufferCount >= 2
Buffer1 = MSComm1.Input
MsgBox Buffer1
MSComm1.Output = "AT+CMGS=" & Chr$(34) & "8613560254658" & Chr$(34) + vbCr '13057575064是对方手机号
Do
DoEvents
Loop Until MSComm1.InBufferCount >= 2
Buffer2 = MSComm1.Input
MsgBox Buffer2
MSComm1.Output = "abcdefgh" + Chr(26) '是Ctlr+ Z
Do
DoEvents
Loop Until MSComm1.InBufferCount >= 2
Buffer3 = MSComm1.Input
MsgBox Buffer3

End Sub
问题点数：100、回复次数：16Top

1 楼xiaoBrother（）回复于 2005-01-07 15:09:52 得分 0

另外，我的手机是Nokia 5510Top

2 楼qffhq（qffhq）回复于 2005-01-07 15:28:44 得分 0

以前看到过CSDN文档中心中有,这方面较多的文档,Top

3 楼xiaoBrother（）回复于 2005-01-07 15:31:14 得分 0

谢谢，我也参考了其中的文档。问题还是不明白为什么不行。Top

4 楼chuiyun（吹云）回复于 2005-01-07 17:09:00 得分 0

关注！Top

5 楼noahroom（）回复于 2005-01-11 23:34:31 得分 0

您好：
您的短信问题我们可以帮您解决：
如果您需要手机短信开发接口以及相关手机短信软件，请登录我工作室网站：
http://220.194.153.26:8089/noah/ 或 http://www.TaoBaoZhe.com
北京诺亚软件工作室Top

6 楼xiaoBrother（）回复于 2005-01-14 00:31:44 得分 0

？？Top

7 楼charise（黑码）回复于 2005-01-16 18:57:21 得分 0

我刚开发了一个，运行很稳定，有意者可与我联系,qq:83336469Top

8 楼wljin（衣冠清瘦）回复于 2005-01-16 20:34:48 得分 0

给我发一个吧，谢谢！
wljin2004@sina.comTop

9 楼xjdcxm（）回复于 2005-01-16 22:04:43 得分 0

给我发一个吧，谢谢！
xjdcxm@163.com
Top

10 楼NetShape（）回复于 2005-01-17 09:14:42 得分 50

你可以先通过超级终端来调试一下你的设备,如果从超级终端可以用AT指令发送出去,说明你的设备安装没有问题.另外一个用超级终端可以直接输入AT指令刚好也可以验证一下你程序中使用的AT指令是否正确...Top

11 楼noahroom（）回复于 2005-01-30 19:20:10 得分 0

12 楼samwzhang（分全给我）回复于 2005-01-30 19:30:28 得分 0

MSComm1.Output = "abcdefgh" + Chr(26) '是Ctlr+ Z
这里是不是少了个回车啊？？？？Top

13 楼samwzhang（分全给我）回复于 2005-01-30 19:31:34 得分 30

还有，建议你用PDU模式发送。
就是：AT+CMGF=0
这样可以发送中文，还不容易出错。Top

14 楼samwzhang（分全给我）回复于 2005-01-30 19:32:12 得分 20

MSComm1.Output = "abcdefgh" + Chr(26)+chr(10)+chr(13)Top

15 楼noahroom（）回复于 2005-02-05 20:44:37 得分 0

您好：
您的短信问题我们可以帮您解决：
如果您需要手机短信开发接口以及相关手机短信软件，请登录我们的网站：
http://www.taobaozhe.com
诺亚软件Top

16 楼noahroom（）回复于 2005-02-19 17:21:26 得分 0

您好：
您的短信问题我们可以帮您解决：
如果您需要手机短信开发接口以及相关手机短信软件，请登录我们的网站下载：
http://www.taobaozhe.com
Top