请教下childobject

hepeihao

我想通过childobject把页面中某个区域的所有链接都遍历一遍可以吗？
是否可以使用x,y坐标实现？？求高手解答

lyscser

1. Set BrowserObj = Description.Create()
   
2. BrowserObj("micclass").Value = "Browser"
   
3. Set Win32Browser = Desktop.ChildObjects(BrowserObj)
   
4. 
   
5. For bindex = 0 to Win32Browser.Count - 1
   
6.         Set PageObj = Description.Create()
   
7.         PageObj("micclass").value = "Page"
   
8.         Set Win32Page = Win32Browser(bindex).ChildObjects(PageObj)
   
9.        
   
10.         For pindex = 0 to Win32Page.Count - 1
    
11.                 Set FrameObj = Description.Create()
    
12.                 FrameObj("micclass").Value = "Frame"
    
13.                 Set Win32Frame = Win32Page(pindex).ChildObjects(FrameObj)
    
14.                
    
15.                 For findex = 0 to Win32Frame.Count  - 1   
    
16.                         Set LinkObj = Description.Create()
    
17.                         LinkObj("micclass").Value = "Link"
    
18.                         Set Win32Link = Win32Frame(findex).ChildObjects(LinkObj)
    
19.                        
    
20.                         For lindex = 0 To Win32Link.Count - 1
    
21.                                 Win32Link(lindex).Click
    
22.                                 Win32Browser(bindex).Sync
    
23.                         Next
    
24.                        
    
25.                         Set Win32Link = Nothing
    
26.                         Set LinkObj = Nothing                       
    
27.                 Next
    
28.                
    
29.                 Set Win32Frame = Nothing
    
30.                 Set FrameObj = Nothing
    
31.         Next
    
32.        
    
33.         Set Win32Page = Nothing
    
34.         Set PageObj = Nothing
    
35. Next
    
36. 
    
37. Set Win32Browser = Nothing
    
38. Set BrowserObj = Nothing

复制代码

lyscser

在一般的页面中无需使用Frame这一层，IE也不需要Count，如果确定了Page对象在哪里就更简单了

1. Set LinkObj = Description.Create()
   
2. LinkObj("micclass").Value = "Link"
   
3. Set Win32Link = Browser("已知的Browser").Page("已知的的Page").ChildObjects(LinkObj)
   
4. 
   
5. For lindex = 0 To Win32Link.Count - 1
   
6.         Win32Link(lindex).Click
   
7.         Browser("已知的Browser").Page("已知的的Page").Sync
   
8. Next
   
9. 
   
10. Set Win32Link = Nothing
    
11. Set LinkObj = Nothing

复制代码

rogerliu0303

不需要用坐标。
用描述性变成就可以了。
先确定区域，是frame还是div，这些都可以DOM来解决。
然后描述link的属性，一般用micclass、html tag、html id三个属性来确定控件

hepeihao

可是我的link上面一层就是整个page了，如果把整个page中所有的link都遍历出来会有很多不需要的link。
而这些需要和不需要的link又没有属性一目了然，所以我想用区域来区分link。
而且childobjects遍历效率也不高啊，有没有相对简单的方法，比如坐标范围

rogerliu0303

回复 5# hepeihao


    你试试index或sourceIndex吧

hepeihao

多谢了，其实我也找其他办法能解决
只是想问问有没有办法能直接取区域的方法实现，如果可以取区域以后很多地方都能派上用场，呵呵
回复 6# rogerliu0303