0

多くの人にSMSメッセージを送りたいです。MySQLテーブルに各人の人のタイプと電話番号があります。ストアドプロシージャを使用して、データベース内のストアドプロシージャを呼び出して、特定のタイプのすべての人の電話番号のリストを取得し、それをDataTableオブジェクトに格納しています。同じタイプのすべての人にすべてのメッセージを送信するために使用する必要があるURLが1つあります。以下のコードの変数sは、ドロップダウンコントロールから取得した人物タイプです。

Dim ta As New dataset1TableAdapters.pro_selectsmsTableAdapter
Dim dt As dataset1.pro_selectsmsDataTable = ta.GetData(s)

DataTable結果をループして、URLを使用してSMSメッセージを各自に送信するにはどうすればよいですか？変数dtには、に格納されているタイプに一致する人の電話番号のリストがありsます。この問題を解決するのを手伝ってください。VB.NETは初めてです。

4

1 に答える 1

0

これはあなたが探しているようなものですか？

Private Sub sendSmsMessage(ByVal message As String, ByVal s As String)
    Dim ta As New dataset1TableAdapters.pro_selectsmsTableAdapter
    Dim dt As dataset1TableAdapters.pro_selectsmsDataTable = ta.GetData(s)
    For Each dr As DataSet1.pro_selectsmsRow In dt
        Dim client As System.Net.WebRequest = System.Net.HttpWebRequest.Create(getSmsUrl("", "")) 'dr.fld_phone, message))
        Dim response As System.Net.WebResponse = client.GetResponse()
        Dim reader As StreamReader = New StreamReader(response.GetResponseStream())
        Dim responseText As String = reader.ReadToEnd()
        ' look at response text from website to see if operation succeeded
    Next
End Sub

Private Function getSmsUrl(ByVal phone As String, ByVal message As String) As String
    ' build proprietary url and return it here
End Function
于 2012-06-28T12:49:36.723 に答える