如何通過計劃任務調用QuickTest測試腳本

　　腳本如下：
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Dim qtApp
Dim qtTest
Dim qtResultsOpt

Set qtApp = CreateObject("QuickTest.Application")
qtApp.Launch
qtApp.Visible = True
qtApp.Open "C:\QuickTest Professional\tests\test1\test1.usr", True

Set qtTest = qtApp.Test
qtTest.Settings.Run.OnError = "NextStep"
Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions")
qtResultsOpt.ResultsLocation = "C:\QuickTest Professional\tests\test1\"
qtTest.Run
 
Set qtResultsOpt = Nothing
Set qtTest = Nothing
Set qtApp = Nothing
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

文章來源于領測軟件測試網 http://www.kjueaiud.com/

TAG: quicktest QuickTest 腳本 任務