Browser QTP/UFT-关闭除QC/ALM之外的所有浏览器

目前，我正在使用下面的代码关闭除运行测试套件的ALM浏览器之外的所有浏览器。但是，当我从ALM运行套件时，下面的代码标识了两种浏览器—ALM浏览器和测试用例浏览器。它首先关闭测试用例浏览器，当它为ALM浏览器执行迭代时，它表示当它试图查找浏览器名称时，浏览器未被识别。我不知道如果它以后不能识别它，为什么它会把它算作浏览器。如何解决这个问题有什么想法吗

 Dim oBrDes  
 Dim oBrObjList  
 Dim objIndex  

 Set oBrDes=Description.Create  
 oBrDes("micclass").Value = "Browser"

 Set oBrObjList=Desktop.ChildObjects(oBrDes)  
  N = oBrObjList.count-1 
 For objIndex=0 to N 
  If(oBrObjList(objIndex) is nothing) then
  'Do Nothing
  Else
  name = lcase(oBrObjList(objIndex).GetROproperty("name"))
  If (Instr(1,name,"quality center") <> 0 or Instr(1,name,"automatic runner") <> 0 or name <> "") then  
   value = oBrObjList(objIndex).getroproperty("visible")
   If(trim(value) <> "True") then
   'Do Nothing
   Else
            oBrObjList(objIndex).close  
    End If
   End If  
   End If
 Next  

 Set oBrObjList=Nothing  
 Set oBrDes=Nothing  

Dim oBrDes
模糊oBrObjList
模糊对象索引
Set oBrDes=Description.Create
oBrDes（“micclass”）.Value=“浏览器”
Set oBrObjList=Desktop.ChildObjects（oBrDes）
N=oBrObjList.count-1
对于objIndex=0到N
如果（oBrObjList（objIndex）为nothing），则
“什么也不做
其他的
name=lcase（oBrObjList（objIndex）.GetROproperty（“name”））
如果（Instr（1，名称，“质量中心”）0或Instr（1，名称，“自动运行程序”）0或名称“”，则
value=oBrObjList（objIndex）.getroproperty（“可见”）
如果（修剪（值）“True”），则
“什么也不做
其他的
对象列表（对象索引）。关闭
如果结束
如果结束
如果结束
下一个
Set oBrObjList=Nothing
Set oBrDes=Nothing
工具中的⇒ 选择权⇒ GUI测试⇒ Web
存在“忽略ALM”复选框，这可能会干扰浏览器标识。尝试设置/取消设置此复选框，看看这是否解决了您的问题。
另一个选项是使用ALM explorer

有关更多信息，请查看链接

通过使用它，您无需担心关闭任何浏览器
 我想我打字太快了。只有当我从UFT运行测试用例时，它才起作用。当我从ALM跑出来的时候，它没有。在这两种情况下，“自动转轮”窗口都会打开。唯一的区别是自动运行程序窗口在前者中是空闲的，而在后者中执行该案例。我没有安装该软件的管理员权限。谢谢你提供的信息