VB6.0短信留言框

Question

大家好我有这个问题。

问题是我不知道如何发送消息框是否发送消息或失败。 我怎么去编码它我完全不知道。 我不能在谷歌上搜索它。我希望你能帮助我 即时通讯使用GSM Modem.below是我的发送代码。

MSComm1.Output = "AT" & vbCrLf
Sleep 100
MSComm1.Output = "AT+CMGF=1" & vbCrLf
Sleep 200
MSComm1.Output = "AT+CMGS=" & Chr(34) & MobileNum & Chr(34) & vbCrLf
MSComm1.Output = TMPMESEJ & Chr(26)
List1.AddItem MSComm1.Input
Sleep 300

Answer 1

您需要处理MSCOMM控件的OnComm事件中的逻辑。

只要MSCOMM控件的CommEvent属性值发生更改，就会生成OnComm事件，表示发生了通信事件或错误。

您需要在MSComm.CommEvent上编写Select Case语句并分析结果。

请参阅http://support.microsoft.com/kb/194922