怎么获取谷歌的查询结果

如何获取谷歌的查询结果？

Dim req As HttpWebRequest = WebRequest.Create("http://www.google.com.hk/search?hl=zh-CN&newwindow=1&safe=strict&tbo=d&site=&source=hp&q=vb.net+%E8%8E%B7%E5%8F%96%E9%A1%B5%E9%9D%A2%E4%BB%A3%E7%A0%81&btnK=Google+%E6%90%9C%E7%B4%A2")

        Dim res As HttpWebResponse = req.GetResponse()

        Dim strm As StreamReader = New StreamReader(res.GetResponseStream(), Encoding.UTF8)

        Dim sline As String

        RichTextBox1.Text = strm.ReadToEnd() '这就是网页代码

执行其他的网站都行但谷歌就不行，

     Dim res As HttpWebResponse = req.GetResponse() 尝试自动重定向的次数太多。

应该如何获取谷歌的查询结果呢？
[解决办法]
HttpWebRequest的autoredirect设置为false
自己处理跳转。

查看更多 下一篇