51Testing软件测试论坛

标题: 求助UFT12怎么用vbs脚本启动并执行测试过程 [打印本页]

作者: ppguo 时间: 2016-9-29 11:48
标题: 求助UFT12怎么用vbs脚本启动并执行测试过程
求助UFT12怎么用vbs脚本启动并执行测试过程

作者: 歪歪只是嗨皮 时间: 2016-9-29 17:30
本帖最后由歪歪只是嗨皮于 2016-9-29 17:40 编辑

Dim qtApp

'创建UFT实例
Set qtApp = CreateObject("QuickTest.Application")
'启动UFT实例
qtApp.Launch
qtApp.Visible = true
'打开相应的UFT脚本（如脚本为保存在D盘的Test1）
qtApp.Open "D:\Test1"
Set qtTest= qtApp.Test
Set objTestRecovery = qtApp.Test.Settings.Recovery
'设置UFT存储报告的目录
Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions")
'运行UFT

qtTest.Run qtResultsOpt
'运行完毕，退出脚本
qtTest.Close
'测试任务结束后，退出UFT实例
qtApp.quit
Set qtApp = Nothing

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)