从QC自动启动qtp如何自动加载插件

David_D_Liu

从QC的测试集中自动启动QTP的时候安装的那些插件都是没有被加载的，请问一下如何设置自动启动QTP时QTP插件的加载设置？是在QC下设置还是在QTP下设置，请指教。

hihotb

谢谢，学习了

songyq521

请问下，这个函数是加在QC里面吗？

hsjzfling

'此函数用于加载指定Test所有的插件，若要运行Test可自己加个qtApp.Test.Run
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
                Call ErrorLog(errorDescription)  '这里是调用自己的日志函数，可替换为自己的或注释掉
                  WScript.Quit
            End If
        End If
        If Not qtApp.Launched Then
            qtApp.Launch
        End If
        qtApp.Visible = True
        qtApp.Open testPath
'可在此加入qtApp.Test.Run来运行Test
        Set qtApp = Nothing
End Function