对于一个给定的网址，如何枚举改网页全部的frame？（网页有N个frame，每个frame又有层数不等的frame）

Question

对于一个给定的网址，如何枚举改网页全部的frame？（网页有N个frame，每个frame又有层数不等的frame）
dim x as object
dim str1 as string  
 str1=""
For Each x In wb.Document.All
      If x.tagname = "IFRAME" Or x.tagname = "FRAME" Or x.tagname = "FRAMESET" Then
             str1=str1 & x.name & vbcrlf
      End If
Next
这个只能取一个层的frame
谢谢先！

Answer 1

过去的网页没有框架,现在的网页不少有框架,但一般也就一层,象还有第二层,第三层的即使有也是极少数.如果有这样的情况,你用webbroser将框打开再一次运用你那个代码就行了,嵌套循环

Answer 2

你用webbroser将框打开再一次===这个怎么搞？webbroser1.naviage2 webbroser1.document.frames(1).locationurl????
继续请教！

Answer 3

打开一个网页的时候，也全部将里面的frame打开了
不可能还要重新打开frame，莫名其妙啊

Answer 4

web--|--frame1--|--frame11
     |          |--frame12
     |          |--frame13--|--frame131     
     |                      |--frame132                
     |          
     |--frame2--|--frame21--|--frame211
     |          |--frame22
     |          
     |--frame3--|--frame31--|--frame311--|--frame3111
     |          |--frame32
     |
     |--frame4--|--frame41--frame411--frame4111
                |--frame42--|--frame421--frame4211--frame42111--frame421111  
                            |--frame422--|--frame4221  
                                         |--frame4222 
假设使用webbrowser打开的网页（web）就是类似上面这样结构，怎么将这个结构的frame全部枚举出来？最好就是和这个结构一样列出来。