自动化对象模型AOM的应用（使用AOM的方式运行UFT中的脚本）

自动化对象模型AOM的应用（使用AOM的方式运行UFT中的脚本）

'定义qtapp对象变量

Dim qtapp

'创建qtapp对象

Set qtapp =CreateObject("quicktest.application")

'启动uft

qtapp.Launch

'设置uft显示类型

qtapp.Visible =true

'打开脚本

qtapp.Open"E:\qtp jaioben\使用AOM运行脚本"

'运行脚本

qtapp.Test.Run

'关闭脚本

qtapp.Test.Close

'退出qtapp对象

qtapp.Quit

'释放资源

Set qtapp =nothing