如何使用 AT 命令发送长消息,vb.Net
How to send long message using AT Commands, vb.Net
strMessage = SplitSMS(_dtMessageQueue.Rows(0)("Response"), 155)
For i As Integer = 0 To strMessage.GetUpperBound(0)
Try
With SerialPort1
.Write("AT" & vbCrLf)
Threading.Thread.Sleep(2000)
.Write("AT+CMGF=1" & vbCrLf)
Threading.Thread.Sleep(2000)
.Write("AT+CMGS=" & Chr(34) & _dtMessageQueue.Rows(0)("MobileNo") & Chr(34) & vbCrLf)
.Write(strMessage(i) & Chr(26) & vbCrLf)
Threading.Thread.Sleep(3000)
End With
Catch ex As Exception
MsgBox(ex.Message)
End Try
Next
我已经编写了上述代码,以便将 SMS 从我的 vb.net 应用程序发送到手机 phone。
是否可以在不拆分消息的情况下发送消息,
我想将消息作为一条消息发送。
短信长度限制为 160 个七位字符。它随后被编入传输 SMS 的 SMPP 信令协议,并被限制为精确的 140 字节(或 1120 位)。
尝试阅读 this
strMessage = SplitSMS(_dtMessageQueue.Rows(0)("Response"), 155)
For i As Integer = 0 To strMessage.GetUpperBound(0)
Try
With SerialPort1
.Write("AT" & vbCrLf)
Threading.Thread.Sleep(2000)
.Write("AT+CMGF=1" & vbCrLf)
Threading.Thread.Sleep(2000)
.Write("AT+CMGS=" & Chr(34) & _dtMessageQueue.Rows(0)("MobileNo") & Chr(34) & vbCrLf)
.Write(strMessage(i) & Chr(26) & vbCrLf)
Threading.Thread.Sleep(3000)
End With
Catch ex As Exception
MsgBox(ex.Message)
End Try
Next
我已经编写了上述代码,以便将 SMS 从我的 vb.net 应用程序发送到手机 phone。
是否可以在不拆分消息的情况下发送消息,
我想将消息作为一条消息发送。
短信长度限制为 160 个七位字符。它随后被编入传输 SMS 的 SMPP 信令协议,并被限制为精确的 140 字节(或 1120 位)。
尝试阅读 this