1:
eg:
For example, this will input all the text fields within a gaven page:
Dim oDesc
Set oDesc = Description.Create
oDesc("micclass").Value = "WebEdit"
Dim oChildren
Dim i
Set oChildren = Browser("index:=0").Page("index:=0").ChildObjects(oDesc)
For i = 0 to oChildren.Count - 1
oChildren.Item(i).Set "input value"
Next
2:
eg:
The .ChildObjects command can be combined with the Desktop object. to run through all the top-level
windows and applications.
For example, this will hightlight every opened Notepad window.
Dim oDesc
Set oDesc = Description.Create
oDesc("nativeclass").Value = "Notepad"
Dim oChildren
Dim i
Set oChildren =Desktop.ChildObjects(oDesc)
For i = 0 to oChildren.Count - 1
oChildren.HighLight
Next