运用childobjects获取桌面上的顶级对象!实现关闭特定browser的方法.

Desktop对象允许访问桌面上的顶级对象.运用childobjects方法可以返回此对象中的所有对象列表:以下代码实现了,从桌面顶级对象中查找title=Mercury Tours的browser,然后将该browser的图像抓取出来存到特定的文件夹下.

Set des=Descrīption.Create()
set dobj=Desktop.ChildObjects(des)
For i=0 to dobj.count-1
    If dobj(i).getroproperty("title")="Mercury Tours" then
              dobj(i).captureBitmap "c:\result\"&i&".bmp",true
               dobj(i).close
   End If
Next

'当用captureBitmap时,如果采用决对路径,如上例中,必须确保C盘中存在名为result的文件夹,抓图才能成功,QTP的capturebitmap方法不能实现自动创建文件夹的功能;如果只写出文件名,那么该抓图将显示在QTP运行时的result文件夹中.