Vb.net 在vb2010中使用nokiaat命令

我是学习命令和windows编程的初学者

我编写了一个代码，只是为了在VB 2010中读取诺基亚手机的序列号

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SerialPort1.Open()
        SerialPort1.WriteLine("AT")
        SerialPort1.WriteLine("AT+CNUM")
        TextBox1.Text = SerialPort1.ReadLine()
        SerialPort1.Close()

    End Sub
End Class

不幸的是，它不工作，没有错误消息

我选择的端口是我通过设备管理器验证的COM。波特率设置为9600。 如果有人能帮忙，请

谢谢

0）先读后写， 尝试切换：

SerialPort1.Open()
TextBox1.Text = SerialPort1.ReadLine()
SerialPort1.WriteLine("AT")
SerialPort1.WriteLine("AT+CNUM")
SerialPort1.Close()

1） 发送\r（\r\n）--字符串结尾

2） 将命令用于查看结果：

call (ATD<number>);
busy (ATH);
response call (ATA) -- for view this 2 commands to call from phone to modem;
other (blink/switch off radio/play tone)

呼叫（ATD）；
忙（ATH）；
响应呼叫（ATA）--查看这两个命令，从电话呼叫到调制解调器；
其他（闪烁/关闭收音机/播放音调）

免责声明： VB不知道，我在Linux上使用python； 对不起，我的英语太差了