新手 SIM900A 用vb练习做串口测试助手，怎么发短信不成功？

ccbstraw

Private Sub BtnSndMsg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSndMsg.Click
        Dim sndstr As String

        sndstr = "AT+CMGF=1" & vbCr
        Me.SerialPort1.Write(sndstr)

        sndstr = "AT+CSCS=""GSM""" & vbCr
        Me.SerialPort1.Write(sndstr)

        sndstr = "AT+CMGS=""13837906035""" & vbCr
        Me.SerialPort1.Write(sndstr)

        sndstr = "ATK SIM900A TEST"
        Me.SerialPort1.Write(sndstr)

        sndstr = Chr(26)

        Me.SerialPort1.Write(sndstr)
    End Sub

显示信息如下：
AT+CMGF=1
AT+CSCS="GSM"
AT+CMGS="13837906035"
ATK SIM900A TEST
OK
==========
为什么手机收不到短信？急急

ST-FAE-SALE

&h1A，VB支持这样写

ccbstraw

短信内容结束发送 1A 这句话该怎么写？

ccbstraw

回复【3楼】ST-FAE-SALE:
---------------------------------
感谢版主回复。
我的问题已经调试解决，为了更好地与新手交流，我把改进后成功发送英文短信的代码贴出。

Private Sub BtnSndMsg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSndMsg.Click
        Dim sndstr As String

        System.Threading.Thread.Sleep(50)  '这个很重要！
        sndstr = "AT+CMGF=1" & vbCr
        Me.SerialPort1.Write(sndstr)

        System.Threading.Thread.Sleep(50)  '这个很重要！
        sndstr = "AT+CSCS=""GSM""" & vbCr
        Me.SerialPort1.Write(sndstr)

        System.Threading.Thread.Sleep(50)  '这个很重要！
        sndstr = "AT+CMGS=""18613796705""" & vbCr
        Me.SerialPort1.Write(sndstr)

        System.Threading.Thread.Sleep(50)  '这个很重要！
        sndstr = "ATK SIM900A TEST"
        Me.SerialPort1.Write(sndstr)

        System.Threading.Thread.Sleep(50)  '这个很重要！
        
        sndstr = Chr(26)
        Me.SerialPort1.Write(sndstr)
    End Sub

===========
原来短信发不出的原因是没有延时，加上延时，一切OK。发送“1A”的问题，确认可以这样写：
        sndstr = Chr(26)
        Me.SerialPort1.Write(sndstr)