以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  foxtable怎样实现抓取网页内容的源码内容  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=40218)

--  作者:samo
--  发布时间:2013/9/12 11:26:00
--  foxtable怎样实现抓取网页内容的源码内容
主要是想实现查询关键词到百度上的竞价排名。
我的思想是先抓取百度搜索结果的网页代码,然后对这个网页代码进行分析得了排名结果。

但是不知道什么实现网页源代码的抓取。
webbrowser能否实现,或者还有其他方法???
--  作者:有点甜
--  发布时间:2013/9/12 21:36:00
--  
 可以实现的。

Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("www.beijing-time.org/time.asp")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop

\'取数据
Dim data As String = web.Document.Body.InnerText
msgbox(data)