自动化测试工具QuickTest Professional（QTP）使用需要掌握的技巧

发布: 2011-3-19 18:42 | 作者: 网络转载 | 来源: 领测软件测试网采编 | 查看: 466次 | 进入软件测试论坛讨论

使用QuickTest Professional（QTP）需要掌握的小技巧

　　21、Q：网页下拉框的选择

A：For i =1 to 10
Randomize
IndexNum=Int((10 - 5 + 1) * Rnd + 5)
Browser("Mercury Tours").Page("Find Flights_2").WebList("arrive").Select "#"&IndexNum
wait(3)
Next

Sub ChildObjects_Example()
'The following example uses the ChildObjects method to find all the
'list objects on a Web page, and then to select an item in each list.

Set ōDesc = Descrīption.Create()
oDesc("micclass").Value = "WebList"
Set Lists = Browser("Mercury Interactive").Page("Mercury Interactive").ChildObjects(oDesc)
NumberOfLists = Lists.Count()
For i = 0 To NumberOfLists - 1
Lists(i).Select i + 1
Next

End Sub

　　22、Q：将测试数据单独拿出来

　　A：取得一个

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

　　取得全部

Browser("Browser").Page("").WebList("fid").GetROProperty("all items")

　　以下可以在自带的例子中实现

Window("Flight Reservation").WinComboBox("Fly From:").Select "Frankfurt"
a=window("Flight Reservation").wincombobox("Fly From:").GetItem(1)
reporter.ReportEvent 2,"下拉列表的值",a

　　23、Q：和TD连接

　　A：在QTP中不是有个Quality Center Connection,选择服务器连接,服务器处输入类似http://computer_name/tdbin,其中computer_name为服务器的名字，连接后在测试结果中添加defect就可以与TD相连了。

　　24、Q：处理Windows弹出窗口

A：IF Not Window("Flight Reservation").Exist(1) Then
'Calling   open flight
        If not Dialog("Login").Exist(1)   Then
    Browser("管理系统").Dialog("Microsoft Internet Explorer").WinButton("确定").Click

End If

　　25、Q：查询结果的比较

　　这是查询一个字段的，对查询结果多页的情况也涉及了，其实应该把所有查询字段联合起来的，也就是改改sql语句和判断条件。

[i]Set Conn = CreateObject("ADODB.Connection")
Set Rs = CreateObject("ADODB.Recordset")
Conn.Open "Descrīption=kml-it;DRIVER=SQL Server;SERVER=KML-IT;UID=sa;PWD=password;APP=QuickTest Professional;WSID=KML-MICHELLE;DATABASE