为什么不能循环执行这段代码？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 为什么不能循环执行这段代码？

共有2206人关注过本帖树形打印复制链接主题：为什么不能循环执行这段代码？

bobolan521

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：640 积分：7407 威望：0 精华：1 注册：2013/11/26 7:49:00

为什么不能循环执行这段代码？ 发帖心情

Post By：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

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

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：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

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：640 积分：7407 威望：0 精华：1 注册：2013/11/26 7:49:00

Post By：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

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

bobolan521

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：640 积分：7407 威望：0 精华：1 注册：2013/11/26 7:49:00

Post By：2016/12/22 12:41:00 [只看该作者]

http://www.greatlan.cn/lanbo/example/mkq.php?neir&fsr=" & dr("微信编号")

执行这句URL后实际上是给企业微信推送了一条消息

bobolan521

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：640 积分：7407 威望：0 精华：1 注册：2013/11/26 7:49:00

Post By：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

有点色

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：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编辑过]

下一主题 >> << 上一主题

主题：为什么不能循环执行这段代码？