求助UFT12怎么用vbs脚本启动并执行测试过程

ppguo · 发表于 2016-9-29 11:48:32

歪歪只是嗨皮 · 发表于 2016-9-29 17:30:02

本帖最后由歪歪只是嗨皮于 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

求助UFT12怎么用vbs脚本启动并执行测试过程

站长推荐 /1