QTP自動化對象模型

   正如使用 QuickTest 實現應用程序測試自動化一樣，也可以使用 QuickTest Professional 自動化對象模型實現 QuickTest 操作自動化。 可以使用由 QuickTest 自動化對象模型公開的對象、方法和屬性來編寫程序，用以配置 QuickTest 選項和運行測試或業務組件，而不必使用 QuickTest 界面手動執行這些操作。

   自動化程序在以下情形特別有用：多次執行相同任務或就多個測試或組件執行相同任務；根據特定環境或應用程序的需要快速配置QuickTest。

   其實要自動化運行QuickTest 相當簡單,只需自己在電腦上建個vbs文件,完成后雙擊運行就可以實現了.下面給個最簡單的配置QuickTest自動化啟動,打開測試腳本,然后保存測試結果,然后自己關閉QuickTest程序的例子腳本.

dim qtApp  

dim qttest

set qtApp = Createobject("QuickTest.Application")   '創建 Application 對象

qtApp.launch   ' 啟動

qtApp.Options.Run.ViewResults = true

qtApp.Visible = True  '可見

qtApp.open "E:\Test1",true   '用只讀的方法打開測試腳本

Set qtTest = qtApp.Test   '創建 Test 對象

Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions") ' 創建 Run Results Options 對象

qtResultsOpt.ResultsLocation = "E:\Test1\Res1" ' 設置測試結果保存位置

qtTest.run qtResultsOpt   '   執行測試

qtTest.close   ' 關閉測試

qtApp.quit    '關閉QTP

Set qtTest = Nothing ' 釋放 Test 對象

set qtApp =nothing   '釋放

有興趣的可以自己再研究更深層次的配置運行,QTP中基本上大多數的配置都可以通過它提供的對象及其方法和屬性來通過代碼實現

原文轉自：http://www.anti-gravitydesign.com