以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  为什么不能循环执行这段代码？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94372)
--  作者：bobolan521
--  发布时间：2016/12/22 10:28:00
--  为什么不能循环执行这段代码？
你好老师，下面的代码，如果drs只有一个值的时候能正常执行，但是如果集合数不止一个就不能正常执行了
代码要如何优化才可以正常执行啊
Dim w1 As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim drs As List(of DataRow)  = DataTables("人员发送表").SQLSelect("按钮名称 = \'" & e.sender.name &  "\'")
For Each dr As DataRow In drs
    
    If  dr("微信编号") IsNot Nothing Then
        Dim str As String
        str = "1尊敬的各位领导,考勤系统温馨提示!请您及时给部门的人员填写考勤,发送时间:" & Date.Now & "<a href=\'http://61.174.171.202:81/glt/weixin/weixinkqtx.asp?Userid=" & dr("微信编号")& "\'>详情点击</a> "
        w1.Address= "http://www.greatlan.cn/lanbo/example/mkq.php?neir&fsr=" & dr("微信编号")
    End If
Next

[此贴子已经被作者于2016/12/22 12:34:23编辑过]
--  作者：有点色
--  发布时间：2016/12/22 10:56:00
--  

 有必要，用webbrowser做这个操作吗？直接弄一个get请求即可。

 

Dim url As String = "http://www.greatlan.cn/lanbo/example/mkq.php?fsr="
Dim drs As List(of DataRow)  = DataTables("人员发送表").SQLSelect("按钮名称 = \'" & e.sender.name &  "\'")
For Each dr As DataRow In drs
    Dim request As Net.HttpWebRequest = Net.HttpWebRequest.Create(url & dr("微信编号"))
    request.Method = "GET"
    Using responseStream As IO.Stream = request.GetResponse.GetResponseStream
    Dim reader As New IO.StreamReader(responseStream)
    Dim result As String = reader.ReadToEnd
    msgbox(result)
End Using
Next
--  作者：bobolan521
--  发布时间：2016/12/22 12:32:00
--  
老师用你这段代码执行后，没有得到我想要的结果啊，一条信息也没有推送出去了
Dim drs As List(of DataRow)  = DataTables("人员发送表").SQLSelect("按钮名称 = \'" & e.sender.name &  "\'")
For Each dr As DataRow In drs
    Dim str As String
    str = "尊敬的各位领导,考勤系统温馨提示!请您及时给部门的人员填写考勤,发送时间:" & Date.Now & "<a href=\'http://61.174.171.202:81/glt/weixin/weixinkqtx.asp?Userid=" & dr("微信编号")& "\'>详情点击</a> "
    Dim url As String = "http://www.greatlan.cn/lanbo/example/mkq.php?neir&fsr=" & dr("微信编号")
    Dim request As Net.HttpWebRequest = Net.HttpWebRequest.Create(url)
    request.Method = "GET"
    Using responseStream As IO.Stream = request.GetResponse.GetResponseStream
    Dim reader As New IO.StreamReader(responseStream)
    Dim result As String = reader.ReadToEnd
    msgbox(result)
End Using
Next
[此贴子已经被作者于2016/12/22 12:39:29编辑过]
--  作者：bobolan521
--  发布时间：2016/12/22 12:41:00
--  
http://www.greatlan.cn/lanbo/example/mkq.php?neir&fsr=" & dr("微信编号")
执行这句URL后实际上是给企业微信推送了一条消息
--  作者：bobolan521
--  发布时间：2016/12/22 13:24:00
--  
你好老师，我按照你的代码去试了，发现一个问题 
如果我的str 是字符就可以正常执行，如果是中文，就不可以
请问一下该如何解决

Dim url As String = "http://www.greatlan.cn/lanbo/example/mkq.php?neirfont-family: Verdana;">Dim drs As List(of DataRow)  = DataTables("人员发送表").SQLSelect("按钮名称 = \'" & e.sender.name &  "\'")
For Each dr As DataRow In drs

 Dim str As String
    str = "我的主页"
    url = url & str & "&fsr=" & dr("微信编号")
      MessageBox.Show(url)
    Dim request As Net.HttpWebRequest = Net.HttpWebRequest.Create(url)
    request.Method = "GET"
    Using responseStream As IO.Stream = request.GetResponse.GetResponseStream
    Dim reader As New IO.StreamReader(responseStream)
    Dim result As String = reader.ReadToEnd
    \'msgbox(result)
End Using
Next
--  作者：有点色
--  发布时间：2016/12/22 14:14:00
--  

项目添加System.Web.dll引用

 

Dim s As String = "测试abc测试"
s = System.Web.HttpUtility.UrlEncode(s)
Output.Show(s)

 

[此贴子已经被作者于2016/12/22 14:14:19编辑过]