Отправка SMS через GSM-модем на мобильный телефон

Использование VB.NET Мне нужно отправить SMS с помощью GSM-модема на мобильный телефон.Отправка SMS через GSM-модем на мобильный телефон

В настоящее время у меня есть следующий код:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
    If serialport.IsOpen Then 
     serialport.Close() 
    End If 
    Try 
     With serialport 
      .PortName = ComboBox1.Text 
      .BaudRate = 96000 
      .Parity = Parity.None 
      .DataBits = 8 
      .StopBits = StopBits.One 
      .Handshake = Handshake.RequestToSend 
      .DtrEnable = True 
      .RtsEnable = True 
      .NewLine = vbCrLf 
     End With 
     serialport.Open() 
    Catch ex As Exception 
    End Try 
    serialport.WriteLine("AT+CMGF=1" & vbCr) 
    System.Threading.Thread.Sleep(200) 
    serialport.WriteLine("AT+CMGS=" & Chr(34) & "destination" & Chr(34) & vbCr) 
    System.Threading.Thread.Sleep(200) 
    serialport.WriteLine("test message" & vbCrLf & Chr(26)) 
    System.Threading.Thread.Sleep(200) 
End Sub

Дело в том, что, кажется, что этот код не работает.

Можете ли вы проверить, правильно это или нет. Или просто дайте мне некоторые темы, которые могут помочь мне в этом.

источник

2013-02-24 MakAdin

Не могу точно сказать, что не так с вашим кодом, но 'BaudRate' выглядит не так:' .BaudRate = 96000'. Это должно быть 9600. –

Я изменю его, спасибо – MakAdin

Эй, @ dan radu, можете ли вы дать мне пример об этом? – MakAdin

-1

я нашел некоторые рабочие исходные коды, вы можете попробовать их :)

http://www.sourcecodester.com/visual-basic/sending-sms-using-commands-gsm-modemgsm-phone-receiving-sms-updated.html

http://www.sourcecodester.com/visual-basic-net/net-version-sending-sms-using-commands-gsm-modemgsm-phone.html

источник

2013-06-01 12:57:45 Shim

, пожалуйста, покажите рабочее решение, а не только ссылки. – slfan

у него есть исходники, и скачать и протестировать их самостоятельно – Shim

ссылки имеют тенденцию устаревать. – slfan

Этот код работает для меня и может послать сообщение на телефон:

{ 
    SerialPort1.WriteLine("AT") 
    System.Threading.Thread.Sleep(300) 
    SerialPort1.WriteLine("AT+CMGF=1" & vbCrLf) 
    System.Threading.Thread.Sleep(300) 
    SerialPort1.WriteLine("AT+CSCA=" & Chr(34) & MessageCenter & Chr(34) & vbCrLf) 
    System.Threading.Thread.Sleep(300) 
    SerialPort1.WriteLine("AT+CMGS=" & Chr(34) & PhoneNumber & Chr(34) & vbCrLf) 
    System.Threading.Thread.Sleep(300) 
    SerialPort1.WriteLine(Message & Chr(26)) 
    MsgBox("Send") 
}

Примечание; этот код я пробовал и получал сообщение с моего телефона, как это; "????? # $ ?? # ????".

источник

2016-04-07 03:10:15

Отправка SMS через GSM-модем на мобильный телефон

ответ

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