如何用QTP实现定时运行一系列操作

Posted 2023-03-18

我想用QTP实现在某个指定的时间开始运行一系列操作，这个定时的功能应该如何做呢？

参考技术A 把下面的脚本略作修改成适合你要求的。然后存为vbs。在通过计算机的计划任务，设定你要运行的时间即可。

Dim qtApp
Dim qtTest
Dim qtResultsOpt

Set qtApp = CreateObject("QuickTest.Application") ' 创建 Application 对象
qtApp.Launch ' 启动 QuickTest
qtApp.Visible = True ' 使 QuickTest 应用程序可见

' 设置 QuickTest 运行选项
qtApp.Options.Run.CaptureForTestResults = "OnError"
qtApp.Options.Run.ImageCaptureForTestResults = "OnError"
'qtApp.Options.Run.RunMode = "Fast"
qtApp.Options.Run.ViewResults = False

Set fso = CreateObject("scripting.filesystemobject")
path="要执行的脚本的目录"
qtApp.Open path,True ' 以只读模式打开测试

' 为测试设置运行设置
Set qtTest = qtApp.Test
qtTest.Settings.Run.IterationMode = "rngIterations" ' 仅运行循环 2 到 4
qtTest.Settings.Run.StartIteration = 2
qtTest.Settings.Run.EndIteration = 4
qtTest.Settings.Run.OnError = "Stop" ' 指示 QuickTest 在发生错误时执行下一步骤NextStep -> Stop

Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions") ' 创建 Run Results Options 对象
qtResultsOpt.ResultsLocation = path+"\Result" ' 设置结果位置

qtTest.Run qtResultsOpt ' 运行测试

qtTest.Close ' 关闭测试

Set fso = Nothing
Set qtResultsOpt = Nothing ' 释放 Run Results Options 对象
Set qtTest = Nothing ' 释放 Test 对象
qtApp.Quit ' Exit QuickTest
Set qtApp = Nothing ' 释放 Application 对象本回答被提问者采纳