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

Question

运行这些代码，提示都正常，但消息发出去后对方手机却接收不到。
Private Sub Command1_Click()
    
Dim Buffer As StringMSComm1.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 IfMSComm1.PortOpen = True
MSComm1.Output = "AT" + Chr(13)
Do
    DoEvents
Loop Until MSComm1.InBufferCount >= 2
    Buffer0 = MSComm1.Input
MsgBox Buffer0MSComm1.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

Answer 1

另外，我的手机是Nokia 5510

Answer 2

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

Answer 3

给我发一个吧，谢谢！
[email protected]

Answer 4

给我发一个吧，谢谢！
[email protected]

Answer 5

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

Answer 6

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

Answer 7

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

Answer 8

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