standard windows/desktop object/childobject实现获取某一页面全部dom

Function WebLinkClick_Function_Module(IsHaveFrame, Object_Browser, Object_page)
     Dim m_Link
     Dim All_Link
     Dim Count
     Dim AllLinkValue( 3000)
     Dim AllLinkId( 3000)
     Dim AllLinkName( 3000)
     Dim Object_def( 3000)
     Dim i,j,k
    k =  0
     If IsHaveFrame =  ""  OR IsHaveFrame >  1  Then
        IsHaveFrame =  1
     End  If
     'MsgBox IsHaveFrame
     'Set m_Link = Description.Create()
     'm_Link("Link").Value = "link"
     'MsgBox m_Link("Link").Value
     If IsHaveFrame =  0  Then
         Set All_Link = Browser( "" & Object_Browser &  "").Page( "" & Object_page &  "").ChildObjects
     End  If
    Count = All_Link.Count()
     'MsgBox Count
    
      Set oWordApp =  CreateObject( "Word.Application")
    oWordApp.Visible =  True
     Set oWordDoc = oWordApp.Documents.Open( "C:\testbbk.doc")
    
    
    
    
     For i =  0  To Count -  1
         '得到节点文本值
        AllLinkName(j) =  "when " &   Chr( 34) & All_Link(i).GetRoProperty( "Text") &   Chr( 34)
         '得到节点类型
         '大写转小写  Lcase 小写转大写 Ncase
        AllLinkValue(j) =  Lcase(All_Link(i).GetRoProperty( "html tag"))
         '得到id或者class或者href
         If All_Link(i).GetRoProperty( "html id") <>  ""  Then
         ' Chr(34) 双引号
             AllLinkId(j) =  ":id =>  " &   Chr( 34) & All_Link(i).GetRoProperty( "html id") &  Chr( 34)
         ElseIf All_Link(i).GetRoProperty( "class") <>  ""  Then 
            AllLinkId(j) =  ":class => "  &  Chr( 34) & All_Link(i).GetRoProperty( "class") &  Chr( 34)
         ElseIf All_Link(i).GetRoProperty( "href") <>  ""  Then 
            AllLinkId(j) =  ":href => " &  Chr( 34) & All_Link(i).GetRoProperty( "href")  &  Chr( 34)
         Else
             'MsgBox "未定义"
         End  If
        Object_def(j) =  "@b." & AllLinkValue(j) &  "(" & AllLinkId(j) &  ")"
       
        oWordDoc.Paragraphs.Add.Range.Text = AllLinkName(j) 
         '增加一行
        oWordDoc.Paragraphs.Add
        oWordDoc.Paragraphs.Add.Range.Text = Object_def(j)
        oWordDoc.Paragraphs.Add
        

         'MsgBox AllLinkName(j)
         'MsgBox AllLinkValue(j)
         'MsgBox  AllLinkId(j)
        
         'If AllLinkName(j) = LinkName Then
             'All_Link(i).click
             'Exit For
         'End If
        
     Next
End  Function



WebLinkClick_Function_Module  0,  "网上超市1号店，省力省钱省时间",  "网上超市1号店，省力省钱省时间"