主题：甜版看一下短信批量发布问题

Dim server As String = e.Form.Controls("TextBox1").Text
Dim phones As String = DataTables("第一列").GetComboListString("第一列").Replace("|", ",")
Dim context As String = System.Web.HttpUtility.UrlEncode(e.Form.Controls("TextBox3").Text)

Dim url  As String = server & "/?numbers=" & phones & "&text=" & context
try
    Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)
    Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse
    rsps.close
    'Dim stm As System.IO.Stream = rsps.GetResponseStream()
    'Dim reader As New System.IO.StreamReader(stm)
    'Dim strResult As String = reader.ReadToEnd
    'msgbox(strResult)
    msgbox("提交发送成功")
catch ex As exception
    msgbox("发送失败,请确认服务器地址设置正确!")
End try

Dim server As String = e.Form.Controls("TextBox1").Text
Dim context As String = System.Web.HttpUtility.UrlEncode(e.Form.Controls("TextBox3").Text)
For Each r As Row In Tables("表A").Rows
    Dim phones As String = r("第一列")
    Dim url  As String = server & "/?numbers=" & phones & "&text=" & context
    try
        Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)
        Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse
        rsps.close
        'Dim stm As System.IO.Stream = rsps.GetResponseStream()
        'Dim reader As New System.IO.StreamReader(stm)
        'Dim strResult As String = reader.ReadToEnd
        'msgbox(strResult)
        msgbox("提交发送成功")
    catch ex As exception
        msgbox("发送失败,请确认服务器地址设置正确!")
    End try
Next

 回复4楼，不是。你那台手机打开软件以后，会有一个ip地址的，是手机的ip地址