VB使用WebBrowser读取网页内容

正在装载数据……

'得到当前browser的页面字体内容

Public Function getWebContent(browser As WebBrowser) As String

Dim doc As Object

Dim i As Object

Dim strHtml As String

Set doc = browser.Document

For Each i In doc.All

strHtml = strHtml & Chr(13) & i.innerText

getWebContent = strHtml

End Function

上面这个函数可以得到browser中所有文字信息.

'得到当前browser的页面Html内容

Public Function getWebHtml(browser As WebBrowser) As String

Dim doc As Object

Dim i As Object

Dim strHtml As String

Set doc = browser.Document

For Each i In doc.All

strHtml = strHtml & Chr(13) & i.innerHtml

getWebHtml = strHtml

End Function

上面这个函数可以得到browser页面的HTML代码.

本文来源：http://blog.csdn.net/PL_Leaf/archive/2007/07/10/1684222.aspx

最新热点		最新推荐		相关文章
		如何在ado中使用connect… vb 贪吃蛇单人版游戏（… 关于在vb中进行com组件的… 用vb6.0编写自我升级的程… vb自动登陆网络站点详解… vb打造超酷个性化菜单（…		快速、简便使用AJAX技术的三… weblogic 9.1的domain配置my… 保留weblogic 中jsp编译后生… Ant入门－配置和使用选… ant使用简介 java现状----编程使用的语言… Cookie又见Cookie－使用Html… 一个关于Comparator的使用例… JavaWeb中的Session、Sessio… 关于JSP的隐式对象的使用（供…