2017-01-06 3 views
0

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 
+0

私の[**答え**](http://stackoverflow.com/aをチェック/ 32056517/1652222)と同じ質問があります。 – ManishChristian

+0

ありがとうございます。しかし、前にその投稿を見た後、私はすでに試しましたが、それは私にとってはうまくいかなかったのです。 – Ramesh

+2

それはうまくいかなかったという意味ですか? ALM Explorerをインストールしましたか? – ManishChristian

答えて

0

これは古いスレッドですが、私の応答はもう役に立ちません。 私は同じ問題を抱えていました。解決策は、スクリプトの最後のオブジェクトをきれいにしていました。最終的にこれを追加します。

設定oDesc =何も

設定TempIndex =何も

グッドラック、

関連する問題