01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
Dim
qtApp
'创建QTP实例
Set
qtApp = CreateObject(
"QuickTest.Application"
)
'启动QTP实例
qtApp.Launch
qtApp.Visible = true
'打开相应的QTP脚本(如脚本为保存在D盘的Test1)
qtApp.Open
"D:\Test1"
Set
qtTest= qtApp.Test
Set
objTestRecovery = qtApp.Test.Settings.Recovery
'设置QTP存储报告的目录
Set
qtResultsOpt = CreateObject(
"QuickTest.RunResultsOptions"
)
'运行QTP
qtTest.Run qtResultsOpt
'运行完毕,退出脚本
qtTest.Close
'测试任务结束后,退出QTP实例
qtApp.quit
Set
qtApp =
Nothing
|
补充内容:
有些同学还不知道这个怎么用,那我就补充一下,把这个脚本写在一个文本文档,保存成后缀为vbs的文件即可。
用的时候双击就好了。
还有关于想让电脑每天自己在几点就能触发这个文件的。可以尝试任务计划。
XP系统直接在控制面板里的“任务计划”
Win7系统在控制面板的管理工具里,有个“任务计划程序”
把你要的时间设置好,触发那个vbs文件,就搞定了。