如何关闭QTP中质量中心以外的所有broswers？

Question

我有下面的代码，但有时它会因为对象不可见而出错。

Dim TempIndex,oDesc
'1) Create a Browser object'
Set oDesc=Description.Create
oDesc("micclass").Value="Browser"
TempIndex=0

'2) loop and Check if a browser is open'
While Browser("micclass:=Browser","index:="&TempIndex).exist(0) and TempIndex<Desktop.ChildObjects(oDesc).count
'3) Close the browser if its not Quality center '
        If instr(1, Browser("micclass:=Browser","index:="&TempIndex).getRoProperty("name"),"HP Application Lifecycle Management 12.50") = 0 Then
        Browser("micclass:=Browser","index:="&TempIndex).close
        else
        TempIndex=TempIndex+1
        End if
Wend

Answer 1

这是一个旧帖子，但也许我的回复对此有用了。 我遇到了同样的麻烦。解决方案是清理脚本最后的对象。在最后添加：

设置oDesc = Nothing

设置TempIndex = Nothing

古德勒克，