Dim Ele_name
Set Ele_name=description.Create()
Ele_name("Class Name").value="JavaEdit"
Dim obj
set obj = JavaWindow("title:=test1").JavaObject("name:=test2").ChildObjects(Ele_name)
For i=0 to obj.count-1
print obj(i).GetROProperty("developer name")
Next
转载于:https://www.cnblogs.com/zhangfei/archive/2011/08/02/2124835.html