软件测试论坛 › [QuickTest Professional] › 大家帮忙看下 运行Vbscript脚本 自动加载指定脚本包含的插件，运行报错（见内）

tianbuxia77 发表于 2010-9-20 22:37:59

大家帮忙看下 运行Vbscript脚本 自动加载指定脚本包含的插件，运行报错（见内）

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, errorDescrīption)
            If Not blnActivateOK Then
                Call ErrorLog(errorDescrīption)'这里是调用自己的日志函数，可替换为自己的或注释掉
                  Wscrīpt.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

TIB 发表于 2010-9-21 11:18:00

可以啊，没错

查看完整版本: 大家帮忙看下 运行Vbscript脚本 自动加载指定脚本包含的插件，运行报错（见内）