获取符合某特定属性值的所有对象

获取符合某特定属性值的所有对象，可通过描述性编程实现，以下以web页面为例：
On error resume next
   err.clear
   Dim i
   Set CheckboxOBJ=Description.Create()
   CheckboxOBJ("visible").value=True
   CheckboxOBJ("type").value="checkbox"
   ‘Obj数组中存储了所有符合条件的对象
   Set        bj=Browser("micClass:=Browser").Page("micClass:=Page").ChildObjects(CheckboxOBJ)
  
   For i=0 to Obj.count-1
       Obj(i).Set "ON"
   Next