【软件自动化测试-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