Я хочу отправить смс во весь список контактов в выпадающем списке, используя команду - PullRequest
Новая
       39

Я хочу отправить смс во весь список контактов в выпадающем списке, используя команду

0 голосов
/ 09 сентября 2018

Вот мой код

'ДЛЯ ОТОБРАЖЕНИЯ ВСЕХ КОНТАКТНЫХ НОМЕРОВ В COMBOBOX Private Sub BroadcastSMS_Load (отправитель как объект, e как EventArgs) обрабатывает MyBase.Load 

    Try
        Dim lnard As New MySqlConnection("server = localhost; userid = root; password = 12345; DATABASE = sms;")
        Dim da As MySqlDataAdapter = Nothing
        Dim DT As New DataTable
        Dim sql As String = " "
        sql = "select distinct contactNumber from students" 
        lnard .Open()
        da = New MySqlDataAdapter(sql, lnard)
        da.Fill(DT)

        With combobox1
            .DataSource = DT
            .DisplayMember = "contactNumber "
            .ValueMember = "contactNumber "
        End With
        lnard .Close()
    Catch ex As Exception

    End Try

ДЛЯ ОТПРАВКИ SMS 

    Try
        If SerialPort1.IsOpen Then
            SerialPort1.Close()
        End If


        Dim message As String
        '' message = tbUserName.Text
        message = " Notification : " + " " + tbMessage.Text
        SerialPort1.Open()
        If SerialPort1.IsOpen() Then
            SerialPort1.Write("AT" & vbCrLf)
            SerialPort1.Write("AT+CMGF=1" & vbCrLf)
            SerialPort1.Write("AT+CMGS=" & Chr(34) & combobox1.Text & Chr(34) & vbCrLf)
            SerialPort1.Write(message & Chr(26))
            MsgBox("Message Sent")
            SerialPort1.Close()
...