原创定时执行qtp脚本
上一篇 /
下一篇 2013-07-02 14:23:49
set ws=CreateObject("wscript.shell")
'获得这个对象的句柄,用于下面的操作
do
'设置循环,不停监视时间
if abs(DateDiff("s",CDate("19:47:00"),time))<60 then
'判断时间是不是在要求范围内,即与11点45分接近
exit do'在时间范围内就退出循环
end if
loop
Dim qtQpp
Set qtQpp = CreateObject("QuickTest.Application") '创建一个qtp对象
qtQpp.Launch
qtQpp.Visible = true
qtQpp.Open "E:\正在看\测试\脚本"
Set qtTest= qtQpp.Test
Set bjTestRecovery = qtQpp.Test.Settings.Recovery
Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions")
qtTest.Run qtResultsOpt
qtTest.Close
qtQpp.quit
Set qtQpp = Nothing
收藏
举报
TAG: