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

 有必要，用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