vb.net - 发送短信成功后如何得到确认？

Question

在我的 VB.Net 应用程序中，我已经使用调制解调器（加密狗）以及连接到它的手机完成了 SMS 发送。

我已经使用 AT 命令完成了此操作。
发送短信后，我需要在屏幕上显示确认/响应。
我怎样才能做到这一点 ？

一些代码片段：

If IsOpen = True Then
        SMSPort.Write("AT" & vbCr)
        SMSPort.Write("AT+CSCS=""GSM""" & vbCr)
        SMSPort.Write("AT+CMGF=1" & vbCr)
        SMSPort.Write("AT+CMGS=""+91" & CellNumber & """" & vbCr)
        _ContSMS = False
        SMSPort.WriteLine(MyMessage & vbCrLf & Chr(26))
        _Continue = False
        RaiseEvent Sending(False)
    End If

Answer 1

-you need to make a recieve data event;

Imports System
Imports System.IO.Ports

Class PortDataReceived
Public Shared Sub Main()
    Dim mySerialPort As New SerialPort("COM1")

    mySerialPort.BaudRate = 9600
    mySerialPort.Parity = Parity.None
    mySerialPort.StopBits = StopBits.One
    mySerialPort.DataBits = 8
    mySerialPort.Handshake = Handshake.None

    AddHandler mySerialPort.DataReceived, AddressOf DataReceivedHandler

    mySerialPort.Open()

    Console.WriteLine("Press any key to continue...")
    Console.WriteLine()
    Console.ReadKey()
    mySerialPort.Close()
End Sub 

Private Shared Sub DataReceivedHandler(
                    sender As Object,
                    e As SerialDataReceivedEventArgs)
    Dim sp As SerialPort = CType(sender, SerialPort)
    Dim indata As String = sp.ReadExisting()
    Console.WriteLine("Data Received:")
    Console.Write(indata)
End Sub 
End Class

And then you need to figure out how to get a acknowledgement with your provider and hardware.