21???????????????

????For i =1 to10

   Randomize

   IndexNum=Int((10 - 5 + 1) * Rnd + 5)

   Browser("Mercury Tours").Page("FindFlights_2").WebList("arrive").Select "#"&IndexNum

   wait(3)

  Next

Sub ChildObjects_Example()

'The following example uses theChildObjects method to find all the

'list objects on a Web page?? and then toselect an item in each list.

Set ??Desc = Descr??ption.Create()

oDesc("micclass").Value ="WebList"

Set Lists = Browser("MercuryInteractive").Page("Mercury Interactive").ChildObjects(oDesc)

NumberOfLists = Lists.Count()

For i = 0 To NumberOfLists - 1

Lists(i).Select i + 1

Next

End Sub

22????????????????ó???

??????????

Browser("Browser").Page("").WebList("fid").GetItem(1)

??????

Browser("Browser").Page("").WebList("fid").GetROProperty("allitems")

???????????????????????

Window("Flight Reservation").WinComboBox("FlyFrom:").Select "Frankfurt"

a=window("FlightReservation").wincombobox("Fly From:").GetItem(1)

reporter.ReportEvent 2??"?????б???"??a

23??????????

??????QTP?в????и?Quality Center Connection???????????????????????????????http://computer_name/tdbin??????computer_name???????????????????????????????defect??????TD???????