主题：代码怎么写

If e.DataCol.Name = "第二列" Then
    Dim s As String = ""
    For Each r As Row In Tables("表C").rows
        s &= r("第一列") & "," & r("第二列") & vbcrlf
    Next
    msgbox(s)
    Dim server As String = "http://192.168.0.101:8080"
    Dim phones As String = "134207****3"
    Dim context As String = System.Web.HttpUtility.UrlEncode(s)
   
    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
End If

谢谢

此主题相关图片如下：qq图片20180518122707.png

发信息时会弹出窗口，要人工确认，要把人工确认步骤取消要怎样改代码？目标是：有异常值导入c表时，发信息出去无需人工干预。老师再帮我看看，谢谢
此主题相关图片如下：qq图片20180518122652.png

把msgbox的代码都删除即可

 

If e.DataCol.Name = "第二列" Then
    Dim s As String = ""
    For Each r As Row In Tables("表C").rows
        s &= r("第一列") & "," & r("第二列") & vbcrlf
    Next
    msgbox(s)
    Dim server As String = "http://192.168.0.101:8080"
    Dim phones As String = "134207****3"
    Dim context As String = System.Web.HttpUtility.UrlEncode(s)
   
    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
End If

感谢老师不辞劳苦解答问题！谢谢

此主题相关图片如下：qq图片20180521072728.png
注册了短信账号，代码操作后有扣钱但没有收到短信。我代码有没有问题？

电话号码是改了的

合成的url不正确，看看

 

http://www.foxtable.com/webhelp/scr/0221.htm

 

不会做贴出你写的代码，不要截图。

If e.DataCol.Name = "第二列" Then Dim s As String = "" For Each r As Row In Tables("表C").rows s & = r("第一列") & "," & r("第二列") & vbcrlf Next Dim url As String Dim http As Object url = "http://service.winic.org:8009/sys_port/gateway/?id = qiang & pwd = qi***830713 & to = 19928*****85 & content = s & time = " http = CreateObject("MSXML2.XMLHTTP") http.Open("get", url, False) http.send() MessageBox.Show("返回信息:" & http.responseText) End If

If e.DataCol.Name = "第二列" Then
    Dim s As String = ""
    For Each r As Row In Tables("表C").rows
        s & = r("第一列") & "," & r("第二列") & vbcrlf
    Next
    Dim url As String
    Dim http As Object
    url = "http://service.winic.org:8009/sys_port/gateway/?id=qiang&pwd=qi***830713&to=19928*****85&c&time = "
    msgbox(url)
    http = CreateObject("MSXML2.XMLHTTP")
http.Open("get", url, False)
    http.send()
    MessageBox.Show("返回信息:" & http.responseText)
End If