0

我想向很多人发送 SMS 消息。我有 MySQL 表中每个人的人员类型和电话号码。使用存储过程，我调用数据库中的存储过程来获取特定类型的所有人的电话号码列表并将其存储在一个DataTable对象中。我有一个 URL，我需要使用它来为所有同一类型的人发送所有消息。以下代码中的变量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 回答