ramen79 Ответов: 1

Отправка SMS на несколько мобильных телефонов vis GSM


Мне нужно автоматически отправлять SMS на несколько номеров формы базы данных. Я использую GSM-модуль SIM900.

С помощью приведенного ниже кода я могу это сделать, но используя диалог сообщений, теперь как я могу это сделать с помощью диалога сообщений.Мне нужно отправить sms на все мобильные номера автоматически, без вмешательства пользователя.

Заранее спасибо, кто - нибудь может помочь.

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

For i As Integer = 0 To mobNo.Rows.Count - 1
                       mobnos = mobNo.Rows(i)(0)
                       MessageBox.Show(mobnos & "==>" & avgSMS)

                       SerialPort1.Write("AT" & vbCrLf)
                       System.Threading.Thread.Sleep(200)
                       SerialPort1.Write("AT+CMGF=1" & vbCrLf)
                       System.Threading.Thread.Sleep(200)
                       SerialPort1.Write("AT+CMGS=" & Chr(34) & mobnos & Chr(34) & vbCrLf)
                       System.Threading.Thread.Sleep(200)
                       SerialPort1.Write(avgSMS & Chr(26))
                       System.Threading.Thread.Sleep(400)
                       'MsgBox("Sent")


                   Next

1 Ответов

Рейтинг:
2

OriginalGriff

Уберите эту линию:

MessageBox.Show(mobnos & "==>" & avgSMS)


ramen79

Я пробовал, он только отправляет МС на 1-й номер.

OriginalGriff

Затем воспользуйтесь отладчиком и выясните, что именно происходит. Например, сколько раз он проходит по кругу. Что там в мобно.На ряды тоже стоит посмотреть.