主题：[求助]

 例子发上来，不可能。

 方法二改一下

 

Dim MsPhone As String = ""
For Each r As Row In Tables("对公客户明细").rows
    Dim server As String = e.Form.Controls("TextBox1").Text
    Dim phones As String = r("手机")
    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)
    catch ex As exception
        MsPhone = MsPhone & r("手机号") & ","
    End try
Next
If msPhone > "" Then
    MessageBox.Show(MsPhone & "发送失败,请确认服务器地址设置正确!","提示")
End If

版主您好！成功了。就是“提交发送成功”的句子写在哪行？谢谢

If msPhone > "" Then
    MessageBox.Show(MsPhone & "发送失败,请确认服务器地址设置正确!","提示")

Else

    MessageBox.Show("全部成功!","提示")
End If

非常感谢版主！

版主，想加入测试设备连接语句，连接成功继续，连接不成功退出。谢谢！

 

直接执行一次发送代码

 

Dim server As String = e.Form.Controls("TextBox1").Text
Dim phones As String = ""
Dim context As String = ""

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
    msgbox("成功")
catch ex As exception
    msgbox("失败,请确认服务器地址设置正确!")
End try