51Testing软件测试论坛

标题: vbs启动QuickTest并管理插件的实现 [打印本页]

作者: user603 时间: 2013-6-21 09:26
标题: vbs启动QuickTest并管理插件的实现

作者: 黑羽祭 时间: 2013-6-21 13:21
回复 1# user603

启动QTP的vbs脚本不难找，随便搜搜就有很多，我网站里也有。
管理插件是个什么概念？

作者: user603 时间: 2013-6-21 13:25
回复 2# 黑羽祭

就是决定启动的QTP要加载哪些插件，如.net、web。
稍后附上代码，现在还没有。

作者: user603 时间: 2013-6-21 14:45
Dim QtpApp
Dim AddInArray
Dim Adds
Dim NeedAddIns
Dim AddResult
NeedAddIns = False

Set QtpApp = CreateObject("QuickTest.Application")

If QtpApp.Launched Then

QtpApp.Quit
WScript.Sleep 2000

End If

AddInArray = QtpApp.GetAssociatedAddinsForTest("TestPath")

For Each Adds In AddInArray

If QtpApp.Addins(Adds).Status <> "Active" Then
NeedAddIns = True
Exit For
End If

Next

If NeedAddIns Then

AddResult = QtpApp.SetActiveAddins(AddInArray,ErrorDescription)

If AddResult = False Then

msgbox "加载失败，描述信息为：" & ErrorDescription
WScript.Quit

End If

Else

MsgBox "不需要加载插件"

End If

MsgBox "开始加载QTP"

QtpApp.Launch
QtpApp.Visible = True
QtpApp.Options.Run.RunMode = "Fast"
QtpApp.Options.Run.ViewResults = False
QtpApp.Open "TestPath"

QtpApp.Quit
Set QtpApp = Nothing

作者: 黑羽祭 时间: 2013-6-21 14:55
回复 4# user603

这个能用了是吧，问题解决了是吧

作者: user603 时间: 2013-6-21 20:50
回复 5# 黑羽祭

能用的。我看这方面的资料不多，所以贴出来共享一下。

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