标题: 怎么从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
谢谢 原来是需要写脚本 我回去研究一下 呵呵