读书人

怎么获取谷歌的查询结果

发布时间: 2013-03-22 09:49:50 作者: rapoo

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

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
自己处理跳转。

读书人网 >VB Dotnet

热点推荐