如何得到 Webbrowser控件的当前URL源文件

Question

目前已知：webbrowser1.Navigate2 currentUrl 方法、webbrowser1.document 属性，但无法得到其源文件（脚本）？

Answer 1

Dim o           As HTMLDocument
    Dim v           As Object
    
    Do While WebBrowser1.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Loop    Set o = WebBrowser1.Document
    
    For Each v In o.All
        Debug.Print v.innerText
    Next

Answer 2

Dim o           As HTMLDocument
    Dim v           As Object
    
    Do While WebBrowser1.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Loop    Set o = WebBrowser1.Document
    
    For Each v In o.All
        Debug.Print v.innerhtml
    Next