如何使用AT命令在vb6中发送多个手机#

Question

大家好，我在 vb6.0 中开发了一个应用程序，发送到手机 # 很好，但是当我尝试发送两个或更多手机时，它只会发送到第一个 # 而另一个没有。这是我的代码，请看一下。

MSComm1.Output = "AT" & vbCrLf
                Sleep 100
                MSComm1.Output = "AT+CMGF=1" & vbCrLf
                Sleep 200

                MSComm1.Output = "AT+CMGS=" & Chr(34) & tmpM_MobileNum & Chr(34) & vbCrLf
                Sleep 300

                MSComm1.Output = "AT+CMGS=" & Chr(34) & tmpF_MobileNum & Chr(34) & vbCrLf
                Sleep 400

                MSComm1.Output = TMPMESEJ & Chr(26) & vbCrLf
                Sleep 500

我希望你能在这方面帮助我。 谢谢

Answer 1

要通过调制解调器发送短信，您使用 AT+CMGS 是正确的，但我认为您没有正确遵循命令的语法。

您需要发送以下内容：

1. AT+CMGS=<Mobile phone number><cr>
2. <Message text><ctrl-Z>

您一次只能向一个手机号码发送一条消息。从我可以看到您的代码在尝试发送<ctrl-Z>之前尝试发送多条消息@

顺便说一下，ascii 字符是 26。

////////////////////////////////////////
// Send message to first mobile number
////////////////////////////////////////

MSComm1.Output = "AT+CMGS=" & Chr(34) & tmpM_MobileNum & Chr(34) & vbCrLf
// Wait for answer from modem should return ">"

MSComm1.Output = "Test Message One" & Chr(26)
// Wait for answer to check if OK came back

////////////////////////////////////////
// Send message to second mobile number
////////////////////////////////////////

MSComm1.Output = "AT+CMGS=" & Chr(34) & tmpF_MobileNum & Chr(34) & vbCrLf
// Wait for answer from modem should return ">"

MSComm1.Output = "Test Message Two" & Chr(26)
// Wait for answer to check if OK came back