VBS脚本控制QTP

Dim qtApp
Dim qtTest
Set qtApp = CreateObject("QuickTest.Application") ' 创建QTP对象
qtApp.Launch 'Start QuickTest
qtApp.Visible = True ' 设置为可见
qtApp.open "C:\Test1",True  '打开脚本
Set qtTest=qtApp.Test  '返回脚本对象
qtTest.run   '运行脚本
WScript.Sleep 5000
qtTest.Close '关闭脚本
qtApp.Quit '关闭 QTP
Set qtTest=Nothing
Set qtApp=Nothing

自己写的例子，记忆力越来越不行了，mark一下