Foxtable(狐表)用户栏目专家坐堂 → 代码怎么写


  共有7088人关注过本帖树形打印复制链接

主题:代码怎么写

帅哥哟,离线,有人找我吗?
有点甜
  61楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85329 积分:427820 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/17 16:33:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
oyei
  62楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:81 积分:635 威望:0 精华:0 注册:2018/4/6 15:09:00
  发帖心情 Post By:2018/5/17 16:46:00 [只看该作者]

图片点击可在新窗口打开查看谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
oyei
  63楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:81 积分:635 威望:0 精华:0 注册:2018/4/6 15:09:00
  发帖心情 Post By:2018/5/18 12:38:00 [只看该作者]


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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  64楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85329 积分:427820 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/18 14:38:00 [只看该作者]

把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


 回到顶部
帅哥哟,离线,有人找我吗?
oyei
  65楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:81 积分:635 威望:0 精华:0 注册:2018/4/6 15:09:00
  发帖心情 Post By:2018/5/18 14:51:00 [只看该作者]

图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看感谢老师不辞劳苦解答问题!谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
oyei
  66楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:81 积分:635 威望:0 精华:0 注册:2018/4/6 15:09:00
  发帖心情 Post By:2018/5/21 7:31:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20180521072728.png
图片点击可在新窗口打开查看注册了短信账号,代码操作后有扣钱但没有收到短信。我代码有没有问题?

 回到顶部
帅哥哟,离线,有人找我吗?
oyei
  67楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:81 积分:635 威望:0 精华:0 注册:2018/4/6 15:09:00
  发帖心情 Post By:2018/5/21 7:31:00 [只看该作者]

电话号码是改了的

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  68楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85329 积分:427820 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/21 8:59:00 [只看该作者]

合成的url不正确,看看

 

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

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
oyei
  69楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:81 积分:635 威望:0 精华:0 注册:2018/4/6 15:09:00
  发帖心情 Post By:2018/5/21 13:16:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  70楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85329 积分:427820 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/21 14:35:00 [只看该作者]

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

 回到顶部
总数 103 1.. 上一页 2 3 4 5 6 7 8 9 10 11 下一页