51Testing软件测试论坛

标题: 怎么从QC启动QTP的时候自动加载插件? [打印本页]

作者: 风起河边    时间: 2007-10-30 11:58
标题: 怎么从QC启动QTP的时候自动加载插件?
我在使用QC连接QTP录制了组件以后,从QC中运行测试用例的时候自动启动QTP,但是不能加载我自己安装的DELPHIE插件,请问有什么方法吗?谢谢了。
作者: hsjzfling    时间: 2007-10-30 12:18
可以使用automation object model
在你脚本执行之前先调用下面的Function
Function Load_Addins(testPath)
        Dim qtApp 'As QuickTest.Application
        Dim blnNeedChangeAddins
        Dim arrTestAddins
        Set qtApp = CreateObject("QuickTest.Application")
        arrTestAddins = qtApp.GetAssociatedAddinsForTest(testPath)
        blnNeedChangeAddins = False
        For Each testAddin In arrTestAddins
            If qtApp.Addins(testAddin).Status <> "Active" Then
                blnNeedChangeAddins = True
                Exit For
            End If
        Next
        If qtApp.Launched And blnNeedChangeAddins Then
                qtApp.Quit
        End If
        If blnNeedChangeAddins Then
            Dim blnActivateOK
            blnActivateOK = qtApp.SetActiveAddins(arrTestAddins, errorDescription)
            If Not blnActivateOK Then
                MsgBox errorDescription
            WScript.Quit
            End If
        End If
        If Not qtApp.Launched Then
            qtApp.Launch
        End If
        qtApp.Visible = True
        qtApp.Open testPath
        Set qtApp = Nothing
End Function
作者: 风起河边    时间: 2007-10-30 15:33
谢谢 原来是需要写脚本  我回去研究一下 呵呵




欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2