页面导航：首页 → 脚本专栏 → vbs → 正文内容

如何通过计划任务调用QuickTest测试脚本

发布：dxy 字体：[增加减小] 类型：转载

我们可以编写一个Vbs脚本，直接在Windows平台下直接运行调用qtp的测试脚本，也可以将这个脚本添加到计划任务中，可以定时执行。
脚本如下：
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

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  