微信公众号搜"智元新知"关注
微信扫一扫可直接关注哦!

无法使用带有AT命令的gsm调制解调器发送英文文本

如何解决无法使用带有AT命令的gsm调制解调器发送英文文本

我试图发送一个文本“ alert”,但它变成了“ 5w”,发出了其他类型的消息,它们最终都是一些奇怪的字符,例如=ìteèNñq¥tΔ6M#ΦReÅZ¡Δf¿£AfåP3TÅbVÉè/&pøo3Λ+ XKw6 ΣPΨΓ8FwΘBΩ。我不确定我做错了什么,有人可以帮助我解决这个问题吗?

Public Sub New(ByRef COMMPORT As String)
        'initialize all values
        SMSPort = New SerialPort
        With SMSPort
            .PortName = COMMPORT
            .Baudrate = 115200
            .Parity = Parity.None
            .DataBits = 8
            .StopBits = StopBits.One
            .Handshake = Handshake.RequestToSend
            .DtrEnable = True
            .RtsEnable = True
            .NewLine = vbCrLf
        End With
    End Sub
    Public Function SendSMS() As Boolean
        If SMSPort.IsOpen = True Then
            'sending AT commands
            SMSPort.WriteLine("AT")
            SMSPort.WriteLine("AT+CMGF=1" & vbCrLf) 'set command message format to text mode(1)
            SMSPort.WriteLine("AT+CMGS= " & Chr(34) + phonenumber + Chr(34) & vbCrLf)  
            _ContSMS = False
            SMSPort.WriteLine("alert" & vbCrLf & Chr(26)) 'SMS sending

            SMSPort.Close()
        End If
    End Function

    Public Sub open()
        If Not (SMSPort.IsOpen = True) Then
            SMSPort.open()
        End If
    End Sub

    Public Sub Close()
        If SMSPort.IsOpen = True Then
            SMSPort.Close()
        End If
    End Sub

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。