1、數據驅動測試1. 參數化測試步驟的數據2. 編輯數據表格3. 設置迭代次數參數化測試1.數據表參數化2.環境變量參數化3.隨機數參數化ItemCount=Window("Flight Reservation").Dialog("Flights Table").WinList("From").GetItemsCountSelectItem=RandomNumber(0,ItemCount)Window("Flight Reservation").Dialog("Flights Table").Wi

2、nList("From").Select SelectItem使用數據驅動器來參數化測試'獲取操作系統名稱OS=Environment.Value ("OS")'獲取操作系統版本OSVersion=Environment.Value ("OSVersion")'獲取測試腳本名TestName=Environment.Value ("TestName")Reporter.ReportEvent micDone,"Environment","運行測試腳本"

3、&TestName & "的操作系統為:" & OS&"版本為:" & OSVersion'設置環境變量MyVariable的值為10Environment.Value("MyVariable")=10MyValue=Environment.Value("MyVariable")MsgBox MyValue'導入外部文件Environment.LoadFromFile ("D:exampleMyVariables.xml")'讀取其

4、中的環境變量值MyUserNameMyUserName=Environment.Value ("MyUserName")MyPassword=Environment.Value ("MyPassword")'讀取其中的環境變量值MyVariantMyVariant= Environment.Value ("MyVariant")Reporter.ReportEvent micDone,"讀取MyVariables.xml文件","MyUserName="&MyUserName &

5、amp;",MyPassword="&MyPassword & ",MyVariant="&MyVariantWindow("Flight Reservation").WinButton("FLIGHT").Click'定位到FlightList Table窗口的WinList控件Set FlightsList=Window("Flight Reservation").Dialog("Flights Table").WinList("

6、From")'獲取WinList控件中的所有項,并通過Print方法顯示出來For i=1 to FlightsList.GetItemsCountPrint FlightsList.GetItem(i-1)NextWindow("Flight Reservation").Dialog("Flights Table").WinButton("OK").ClickDim str'定位到FlightList Table窗口的WinList控件Set FlightsList=Window("Flight

7、Reservation").Dialog("Flights Table").WinList("From")'獲取WinList控件中的所有項,并通過msgbox方法顯示出來For i=1 to FlightsList.GetItemsCountstr=str+FlightsList.GetItem(i-1)+vbCRLFNextMsgBox strMsgbox Window("Flight Reservation").WinEdit ("Order No:").GetROProperty (&qu

8、ot;text")Window("Flight Reservation").WinButton("Insert Order").ClickWait 10'獲取自動生成的訂票記錄號Msgbox Window("Flight Reservation").WinEdit ("Order No:").GetROProperty ("text")虛擬對象管理：讓QTP學會認識某些它不認識的對象。方法是把這些控件所在的區域定義為虛擬對象（Virtual Object）.'設置QTP

9、在判斷一個對象是否存在的最大時間Milliseconds=30000Setting("DefaultTimeout")=Milliseconds'獲取efaultTimeoutDefaultTimeout=Setting("DefaultTimeout")If DefaultTimeout<5000 ThenMsgBox(DefaultTimeout)Milliseconds=50000Setting("DefaultTimeout")=MillisecondsEnd IfSetting對象有一個名為“Item”的屬性，

10、可以把其作為測試腳本的全局變量來使用，獲取和設置測試腳本的全局信息。With Setting'判斷名為IterNumber的Item是否存在，如果不存在，則添加一個，并且設置其值為If Not .Exists("IterNumber") Then .Add "IterNumber",1'如果存在，則把其值累加Else .Item("IterNumber")=.Item("IterNumber")+1End IfEnd withMsgbox Setting("IterNumber")利用DotNetFactory對象訪問.NET類庫'通過CreateInstance創建System.Environment的實例Set var_CreateInstance=DotNetFactory.CreateInstance("System.Environment")'訪