通过USB GSM调制解调器发送短信

时间:2012-11-22 11:22:31

标签: vb.net serial-port

我正在尝试开发一个模块来从我的应用程序发送短信。问题是,当我向连接的手机发送AT命令时,我的应用程序停止响应。我正在使用诺基亚6720C,我已经安装了Pc Suite。它也出现在Com Ports。

我的代码如下。我做错了什么?

Imports System
Imports System.IO.Ports
Imports System.Threading
Imports System.ComponentModel

Public Class Form1
Delegate Sub SetTextCallback(ByVal [text] As String)
Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click

    With SerialPort1
        .PortName = "COM14"
        .DataBits = 8
        .Parity = IO.Ports.Parity.None
        .StopBits = StopBits.One
    End With

    SerialPort1.Open()
    SerialPort1.Write("AT" & vbCr)
    SerialPort1.Close()
End Sub

Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
    ReceivedText(SerialPort1.ReadExisting())
End Sub

Private Sub ReceivedText(ByVal [text] As String)
    'compares the ID of the creating Thread to the ID of the calling Thread
    If Me.TxtResponse.InvokeRequired Then
        Dim x As New SetTextCallback(AddressOf ReceivedText)
        Me.Invoke(x, New Object() {(text)})
    Else
        Me.TxtResponse.Text &= [text]
    End If
End Sub

1 个答案:

答案 0 :(得分:0)

那么,在AT命令结束时你必须添加Chr(13)和Chr(10),你只使用了Chr(13)(这是“vbCr”),尝试用vbCrLf替换它(Carriage-Return“ Chr(13)“和换行”Chr(10)“)。我认为这是问题(命令字符串不完整)。

如果问题仍然存在,请尝试以下方法测试您的工作:

  1. 尝试使用VB.NET代码与GSM调制解调器(而不是手机)进行通信。如果它工作正常,那么手机可能不接受AT命令。

  2. 尝试使用终端程序将AT命令发送到手机。终端程序可以像“超级终端”或“Maestro智能终端”(您可以在谷歌上搜索它)。

  3. 我希望这很有帮助,祝你好运。