主题：如何能历遍IE中的所有元素

Dim OjbIe As New System.Windows.Forms.WebBrowser()
With OjbIe
    .Visible = 1
    .Navigate("http://www.foxtable.com/")
    Do Until .ReadyState = 4
        Application.DoEvents
    Loop
   
    Dim DoM = .Document
    With DoM
        Dim hec = .GetElementsByTagName("li") '获得当前页面的HTML元素集合
        Output.show(50)
        For Each cc As system.windows.forms.htmlelement In  hec '循环所有元素
            Output.show(cc.OuterHtml)
        Next
    End With
End With