如何在 webBrowser 中获得 网页的代码

Question

Dim doc As IHTMLDocument2
Set doc = WebBrowser.Document
debug.print doc.all.toString我用以上办法，得到的只是 [object]
请问应该如何才能 获得 WebBrowser 中的html 代码

Answer 1

Dim Fs,File
Dim ContentSet Fs = CreateObject("Scripting.FilesystemObject")
If Fs.FileExists("aaa.htm") Then
Set File = Fs.OpenTextFile("aaa.htm",1)
Content = File.ReadAll()
msgbox Content

Answer 2

debug.print doc.documentElement.outerHTML

Answer 3

debug.print webbrowser1.document.body.innerhtml