'得到当前browser的页面字体内容 PublicFunction getWebContent()Function getWebContent(browser As WebBrowser) AsString Dim doc AsObject Dim i AsObject Dim strHtml AsString Set doc = browser.Document ForEach i In doc.All strHtml = strHtml &Chr(13) & i.innerText Next getWebContent = strHtml End Function上面这个函数可以得到browser中所有文字信息.
'得到当前browser的页面Html内容 PublicFunction getWebHtml()Function getWebHtml(browser As WebBrowser) AsString Dim doc AsObject Dim i AsObject Dim strHtml AsString Set doc = browser.Document ForEach i In doc.All strHtml = strHtml &Chr(13) & i.innerHtml Next getWebHtml = strHtml End Function