VBscript获取脚本插件

上一篇 / 下一篇  2016-03-18 17:36:45 / 个人分类:QTP自动化测试

   在串跑脚本的过程中,需要自动去获取脚本加载的插件,并根据插件的状态去判断是否需要手动加载插件。

Rem 将指定脚本涉及到的插件放入数组中
AddInsArray = QtpApp.GetAssociatedAddinsForTest("D:\AuotoCheckAutoResult\AuotoCheckAutoResult")
msgbox ubound(AddInsArray)

Rem 验证当前QTP程序是否加载了脚本所需要的插件
For each TestAddIn in AddInsArray
msgbox TestAddIn

Rem 验证
If QtpApp.Addins(TestAddIn).Status <> "Active" Then

Rem 需要修改插件
NeedChangeAdd = True
Exit For

End If

Next

Rem 如果需要修改插件,则选退出QTP
If QtpApp.Launched and NeedChangeAdd Then

Rem 退出QTP
QtpApp.Quit
Wscript.Sleep 2000

End If

Rem 加载所需要插件,返回加载的结果
ActivateResult = QtpApp.SetActiveAddins(AddInsArray,ErrorDescription)

Rem 加载失败时的处理
If NOt ActivateResult Then

Rem 显示错误信息并退出脚本
msgbox ErrorDescription
Wscript.Quit

End If
     有的时候获取的插件与我们单跑程序的插件不一致,比如说测试一个C#程序,需要加载.net、wpf、web,单跑的时候可以手动加载,但是在串跑时脚本只能获取到web插件,出现这个情况的原因是:脚本未保存加载的插件,这样解决的方法是打开UFT->选择脚本所需要的插件->加载脚本->打开设置->查看properties中插件->若插件未保存完全,点击modify选择需要保存的插件,点击保存。这样再次串跑脚本时就能获取出对应的插件了。

TAG:

 

评分:0

我来说两句

Open Toolbar