ramen79 Ответов: 1

SMS с помощью gsm модема VB.NET


Я пытаюсь написать программу отправки SMS с помощью SIMCOM 900A. С моим нижеприведенным кодом я сталкиваюсь с проблемами...

1.
отправка при получении последовательный порт получил-данные
> AT+CMGS="9674642260"
TESTING SMS-1


Он отправляет текст сообщения, которому предшествуют все полученные данные serialport.
message sent : <pre>ATAT+CMGS="9674642260"
TESTING SMS-1


2.
Но не отправляете СМС, когда получил данные
AT+CMGS="9674642260"
TESTING SMS-1
> 


если я снова нажму кнопку Отправить, то он успешно отправит sms, но снова со всем набором команд + текстом сообщения.

может ли кто-нибудь помочь мне, где изменить мой текущий код? Кроме того, мне нужно отправить сообщение на несколько номеров.
заранее спасибо.

Что я уже пробовал:

my send button code:

<pre> If SerialPort1.IsOpen Then
            SerialPort1.Close()
        End If

        SerialPort1.Open()
        Try
            With SerialPort1
                .Write("AT" & vbCrLf)
                Threading.Thread.Sleep(1000)
                ' .Write("AT+COPS?" & vbCrLf)
                ' Threading.Thread.Sleep(1000)
                .Write("AT+CMGF=1" & vbCrLf)
                Threading.Thread.Sleep(1000)
                .Write("AT+CMGS=" & Chr(34) & txtNumber.Text & Chr(34) & vbCrLf)
                .Write(txtMsg.Text & Chr(26))
                Threading.Thread.Sleep(1000)
                '.Write("AT" & vbCrLf)
            End With
            rcvData.Text = recData.ToString
            SerialPort1.Close()
        Catch ex As Exception

        End Try

1 Ответов

Рейтинг:
0

Richard MacCutchan

Видеть В CMGS-Google Search[^].