vbs启动QuickTest并管理插件的实现

user603

黑羽祭

回复 1# user603


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

user603

回复 2# 黑羽祭


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

user603

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

黑羽祭

回复 4# user603


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

user603

回复 5# 黑羽祭


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