Dim cenNO As String = "AT+CSCA=" & chr(34) & e.Form.Controls("cenNumber").value & chr(34) & chr(13)
Ports(c_comPortName).Write(cenNO )
2．发送短消息 AT+CMGF=1回车(采用文本格式发送，如用PDU格式，则AT+CMGF=0) Dim c_comPortName As String = e.Form.Controls("cmbPort").value
Dim AT_string As String = e.Form.Controls("TextBox1").value & Chr(13)
Ports(c_comPortName).Write(AT_string)
AT+CMGS=“+8613xxxxxxxxx”回车 >输入短消息。Crtl+Z结束并发送。 Dim c_comPortName As String = e.Form.Controls("cmbPort").value
Dim teleNO As String = "AT+CMGS=" & chr(34) & e.Form.Controls("txtNumber").value & chr(34) & chr(13)
Ports(c_comPortName).Write(teleNO )
我直接读写串口，短信猫反应都正确，就最好一句 ：AT+CMGS=“+8613xxxxxxxxx”回车 >输入短消息。Crtl+Z结束并发送。
也出现> 符号了，但是不知道怎么发送短信（Crtl+Z结束并发送），请老师帮帮忙！谢谢
加好友 
发短信
Post By：2017/6/8 11:33:00 [显示全部帖子]
