【软件自动化测试-QTP实战技能 22】== QTP_DP_for the DeskTop objects

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