Question

我有一个MS SQL Linked-Server（来自Mysql） - 生成包含

的表TBL

*Index
*StdNo
*MobileNo

我有一个用于短信发送的VB2012代码：

Private Sub cmdsend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsend.Click
    Try
        If SerialPort1.IsOpen Then
            With SerialPort1
                .Write("AT" & vbCrLf)
                .Write("AT+CMGF=1" & vbCrLf)
                .Write("AT+CMGS=" & Chr(34) & TextBox1.Text & Chr(34) & vbCrLf)
                .Write(RichTextBox1.Text & Chr(26))


            End With
        Else
            MsgBox("Error on the port selected")
        End If
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub

TextBox1.Text是实际手动输入数字的文本框和RichTextBox1.Text是将要发送的消息。

我想要的是创建一个代码，该代码将自动为MobileNo选择表TBL的每一行，然后发送SMS。由于VB代码不是真正用于批量消息传递，我的想法是创建一个循环，它将扫描每一行，获取每个MobileNo，发送消息，然后在下一行扫描之前延迟几秒钟。我甚至不知道是否有可能。但我认为是，我只是不知道如何提出循环，我甚至不知道如何创建数据库之间的连接。有没有人知道如何做到这一点？

Answer 1

可能是您可以使用此代码：

Private Sub cmdsend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsend.Click
    Try
        If SerialPort1.IsOpen Then
            With SerialPort1
                .Write("AT" & vbCrLf)
                .Write("AT+CMGF=1" & vbCrLf)
                .Write("AT+CMGS=" & Chr(13) 
.Write(TextBox1.Text)
                .Write(Chr(26))
            End With
        Else
            MsgBox("Error on the port selected")
        End If
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub

VB2012中自动短信发送的行扫描和延迟

1 个答案: