2013-08-11 5 views
0

В моем приложении VB.Net, я сделал с отправкой SMS с помощью модема (ключа), а также связанного с ним мобильного телефона.Как получить подтверждение после отправки 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 

ответ

0

-вы должны сделать событие Recieve данных;

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 

И тогда вам нужно выяснить, как получить подтверждение со своим поставщиком и оборудованием.

+0

Спасибо за ответ .... Позвольте мне проверить ... – Vikram

+0

Я пробовал - MsgBox (SMSPort.ReadLine(). ToString), но он показывает пустое. – Vikram

Смежные вопросы