Question

如何用WebBrowser控件获得html网页完整源代码

如何用WebBrowser控件获得html网页完整源代码
请高手指点
Set doc = WebBrowser1.Document
For Each i In doc.All
str1 = str1 & i.innerhtml & vbclrf
Next
Debug.Print str1

对象变量或with块变量未设置
指的是这一行 For Each i In doc.All
是不是要在模块里写什么啊。

Answer 1

Set doc = WebBrowser1.Document
For Each i In doc.All
str1 = str1 & i.innerhtml & vbclrf
Next
Debug.Print str1

你得等网页加载完毕才可以

Answer 2

用
控件.DocumentStream 属性
可以获得包含 HTML 源代码的流

Answer 3

WebBrowser1.Document.body.innerhtml