Set des=description.Create()
des("Class name").Value = "Window"
des("enabled").Value =True '状态为激活的
set dobj=desktop.ChildObjects(des) '在桌面对象中查找
print dobj.count
后发现在增加了 des("enabled").Value =True 以后一个对象都找不到了
进一步实验:
Set des=description.Create()
des("Class name").Value = "Window"
'des("enabled").Value =True
set dobj=desktop.ChildObjects(des)
print dobj.count
For i=0 to dobj.count-1
If dobj(i).GetROProperty("enabled") Then '如果对象的enabled属性为True则
print "enabled="&dobj(i).GetROProperty("enabled")&" "&dobj(i).GetROProperty("foreground")&" "&dobj(i).GetROProperty("focused")&" "&i&" "&dobj(i).GetROProperty("text")
End If
Next