急求,使用SerialPort收发短信的有关问题

急求,使用SerialPort收发短信的问题
求大神指出下面的代码哪里有问题,运行后啥反应都没有,DataReceived和ErrorReceived事件也没有触发


Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim sendNum As String = "13712345678"
        Dim message As String = "message"

        If SerialPort1.IsOpen Then
            SerialPort1.Close()
        End If

        Try
            SerialPort1.Open()
            SerialPort1.Write("AT+CMGF=1")
                  Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            SerialPort1.Close()
        End Try

    End Sub

    Private Sub SerialPort1_DataReceived(sender As Object, e As SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
        MsgBox("DataReceived")
    End Sub

    Private Sub SerialPort1_ErrorReceived(sender As Object, e As SerialErrorReceivedEventArgs) Handles SerialPort1.ErrorReceived
        MsgBox("ErrorReceived")
    End Sub
------解决思路----------------------
你把消息发到哪里去了,发给本机?
本机发送的是在串口的发送缓冲区里,而接收是要在接收缓冲区里接收

要么你弄跟串口线,两台电脑连起来测试
要么你下载个虚拟串口软件,虚拟出两个串口,然后在内存里把它们连起来
------解决思路----------------------
那么"AT+CMGF=1"又是个啥?
连接短信猫,你要查看短信猫的通信协议啊
你前面定义的手机号和短信内容,根本都没有拼接到要发送的字符串里去,短信猫能认识你要发给谁,发什么东西??
------解决思路----------------------
你不点击 button2 按钮，当然“运行后啥反应都没有”。
------解决思路----------------------
另外，把你的 Try...Finally 删掉，仅留下有用的代码。

写上了这种 try，你就丧失了调试的能力。
------解决思路----------------------
以前见过的短信猫都是基于以太网的,串口的没用过
问厂家要协议,应该发什么东西,什么意思