vb6中webbrowser控件树转换备忘

Dim doc As HTMLDocument
    Set doc = WebBrowser1.Document

    Dim inputs As IHTMLElementCollection
    Set inputs = doc.getElementsByTagName("input")