用不着那么复杂[code=VB]    Dim objDoc     As MSHTML.HTMLDocument
    Dim tmpDoc     As MSHTML.HTMLDocument
    Dim objFrame   As MSHTML.HTMLFrameElement
    '取浏览器的文档接口
    Set tmpDoc = Webbrowser.document
    '枚举所有框架
    For Each objFrame In tmpDoc.frames
        '获取该框架的文档
        Set objDoc = objFrame.document
        '获取该框架文档的HTML代码
        Debug.Print objDoc.body.outerHTML
        
        Set objDoc = Nothing
    Next
    Set tmpDoc = Nothing[code]