目前,我正在使用以下代碼關閉除運行測試套件的ALM瀏覽器之外的所有瀏覽器。但是,當我從ALM運行套件時,下面的代碼標識2個瀏覽器 - ALM瀏覽器和測試用例瀏覽器。它首先關閉測試用例瀏覽器,當它執行ALM瀏覽器的迭代時,它表示瀏覽器在嘗試查找瀏覽器名稱時未識別。我不確定爲什麼它會將其視爲瀏覽器,如果它稍後無法識別它。任何想法如何解決這個問題?QTP/UFT - 關閉除QC/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
這樣做。再次感謝Motti –
嗯,我想我輸入太快了。它只適用於我從UFT運行測試用例。它不是當我從ALM運行時。在這兩種情況下,自動轉輪窗口都打開。唯一的區別是前者中的自動轉輪窗口處於空閒狀態,後者處於執行狀態 –