vb抓取网页内容()

　　vb抓取网页内容()

　　vb 获取网页的所有元素 2008-12-11 22:20 vb 获取网页的所有元素

　　结果就像获取网页的所有元素一样简单：

　　将 HTML 调暗为新的 HTMLDocument

　　设置 HTML = wb.document

　　' wb = ActiveX 网页浏览器

　　' HTML。就是这样！

　　...所以获取所有链接很容易！ :

　　将 collLink 设为 IHTMLElement采集

　　'获取所有链接

　　设置 collLink = theHTML.All.tags("a")

　　对于 i = 0 到 collLink.length-1

　　Debug.Print "Link "& CStr(i + 1) &":" & collLink(i) &vbNewLine

　　下一步

　　相信未来所有的html元素都会被征服！

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

　　私有子 WebBrowser1_DocumentComplete(ByVal pDisp As Object,URL As Variant)

　　对于 WebBrowser 中的每个 sform1.Document.links

　　List1.AddItem 表单

　　下一步

　　结束子

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

　　私有子 WebBrowser1_DocumentComplete(ByVal pDisp As Object, URLAs Variant)

　　暗 x 长

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

　　Debug.Print WebBrowser1.Document.links.Item(x)

　　下一个 x

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

　　Debug.Print "Total" &WebBrowser1.Document.links.length & "links."

　　结束子

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

　　DimdtAsHTMLDocument

　　Setdt=WebBrowser1.文档

　　Me.Caption=dt.getElementsByTagName_r("title")(0).innerText'显示网页链接的标题文字信息

　　【CBM666 抓取正在运行的网页句柄的标题和 URL】

　　具体：

　　私有子 Form_Load()

　　Inet1.执行“您的 URL”

　　结束子

　　私有子 Inet1_StateChanged(ByVal State As Integer)

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

　　如果状态 = 12 那么

　　做

　　DoEvents

　　php调用C++程序的例子

　　> sTmp = Inet1.GetChunk(1024)

　　如果 Len(sTmp) = 0 然后退出 Do

　　sHtml = sHtml + sTmp

　　循环

　　文本1.文本 = sHtml

　　如果结束

　　结束子

　　这非常快。

　　如何用vb获取页面标题

　　几乎用它来完成采集任务！做出贡献很容易。

　　FunctionstrCut(strContent,StrStart,StrEnd)AsString'通用拦截函数

　　DimstrHtml,S1,S2AsString

　　dimstrstart,strendasstring

　　strHtml=strContent

　　OnErrorResumeNext

　　S1=InStr(strHtml,StrStart)+Len(StrStart)

　　S2=InStr(S1,strHtml,StrEnd)

　　strCut=Mid(strHtml,S1,S2-S1)

　　结束函数

　　PrivateSubForm_Load()

　　Dimhunzi1,hunzi2AsString

　　hunzi1="thisistitle"

　　hunzi2=strCut(hunzi1,"","")

　　MsgBoxhunzi2

　　结束订阅