Как закрыть все броузеры, кроме центра качества в QTP?

У меня есть код ниже, но иногда он получает сообщение об ошибке, поскольку объект не отображается.

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

источник

2017-01-06 Ramesh

Проверьте мой [** ответ **] (http://stackoverflow.com/a/32056517/1652222) за тот же вопрос. – ManishChristian

Спасибо, но я уже пробовал, увидев это сообщение раньше, но это не сработало для меня. – Ramesh

Что значит, что это не сработало? Установили ли вы ALM Explorer? – ManishChristian

Это старая нить, но, возможно, мой ответ будет полезен больше. У меня была такая же проблема. Решение было чистым для объектов в финале скрипта. Добавьте это в финале:

Set oDesc = Ничто

Set TempIndex = Nothing

Гудлак,

источник

2018-01-31 14:40:32

Как закрыть все броузеры, кроме центра качества в QTP?

ответ

Смежные вопросы