2015-08-16 81 views
1

目前,我正在使用以下代碼關閉除運行測試套件的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 

回答

1

Tools ⇒ Options ⇒ GUI Testing ⇒ Web存在忽略ALM複選框,這可以與瀏覽器識別被幹擾。嘗試設置/取消設置此複選框,看看是否可以解決您的問題。

+0

這樣做。再次感謝Motti –

+0

嗯,我想我輸入太快了。它只適用於我從UFT運行測試用例。它不是當我從ALM運行時。在這兩種情況下,自動轉輪窗口都打開。唯一的區別是前者中的自動轉輪窗口處於空閒狀態,後者處於執行狀態 –

2

另一種選擇是使用ALM explorer

檢查this鏈接瞭解更多信息。

通過使用這個你不必擔心關閉任何瀏覽器。

+0

我沒有管理員權限來安裝它。感謝有關它的信息 –