vb抓取网页内容( -日报())

　　vb抓取网页内容(

-日报())

　　VB获取网页的所有元素

　　2008-12-11 22:20

　　VB获取网页的所有元素

　　事实证明，获取网页的所有元素非常简单：

　　将HTML设置为新的HTMLDocument

　　设置html=wb.document

　　'wb=ActiveX WebBrowser

　　”他说。就这些

　　。。。所以很容易获得所有链接！：

　　Dim collLink作为IHTMlement采集

　　'获取所有链接

　　Set collink=theHTML.All.tags（“a”）

　　对于i=0到collLink.length-1

　　调试。打印“Link”和CStr（i+1)&）：“&collLink（i）和vbNewLine

　　下一个

　　我相信我将在未来征服所有HTML元素

　　------------------------------------------------------------------------------------------------------

　　PrivateSub WebBrowser1_文档完成（ByVal pDisp作为对象，URL作为变体）

　　WebBrowser1.Document.links中的每个sform

　　列表1.附加项格式

　　下一个

　　端接头

　　-------------------------------------------------------------------------------------------------

　　私有子WebBrowser1_DocumentComplete（ByVal pDisp作为对象，URL作为变体）

　　暗x等长

　　对于x=0到WebBrowser1.Document.links.length-1

　　调试.打印WebBrowser1.文档.链接.项目（x）

　　下一个x

　　'length属性返回元素集中的元素数

　　Debug.Print“total”和WebBrowser1.document.Links.Length和“Links”

　　端接头

　　------------------------------------------------------------------------------------------

　　DimdtAsHTMLDocument

　　Setdt=WebBrowser1.文档

　　Me.Caption=DT.GetElementsByTagName（“title”）（0).InnerText”显示网页链接的标题文本信息

　　[cbm666捕获正在运行的网页句柄标题和url]

　　具体：

　　专用子表单_加载（）

　　INET1.执行“您的网址”

　　端接头

　　私有子Inet1_StateChanged（ByVal状态为整数）

　　Dim sTmp作为字符串，sHtml作为字符串

　　如果状态=12，则

　　做

　　多芬特

　　sTmp=Inet1.GetChunk（1024)

　　如果Len（sTmp）=0，则退出Do

　　sHtml=sHtml+sTmp

　　环路

　　Text1.Text=sHtml

　　如果结束

　　端接头

　　这可以很快实现

　　如何用VB获取网页标题

　　几乎所有人都用它来完成采集任务！贡献，非常简单

　　功能struct（strContent、strstart、strand）作为字符串的通用侦听功能

　　DimstrHtml、S1、S2AsString

　　dimstrstart，strendasstring

　　strHtml=strContent

　　下一个

　　S1=仪表（strHtml，StrStart）+Len（StrStart）

　　S2=仪表（S1、标准、强度）

　　strCut=Mid（strHtml，S2-S1)

　　端功能

　　PrivateSubForm_Load（）

　　Dimhunzi1，Hunzi2字符串

　　hunzi1=“蓟”

　　hunzi2=struct（hunzi1，“，”）

　　MsgBoxhunzi2

　　EndSub

　　总结

　　以上是编程之家为您采集的VB获取的网页所有元素的全部内容，希望文章能帮助您解决VB获取网页所有元素时遇到的程序开发问题

　　如果您认为programming home网站的内容不错，欢迎您向程序员和朋友推荐programming home网站