Working With QTP: Close Quality Center Browsers Window

Showing posts with label Close Quality Center Browsers Window. Show all posts

Saturday, June 11, 2011

Dim intIndex

Set oDesc=Description.Create

oDesc(“micclass”).Value=”Browser”

intIndex=0

While Browser(“micclass:=Browser”,”index:=”&intIndex).exist(0) and intIndex

If instr(1, Browser("micclass:=Browser","index:="&intIndex).getRoProperty("name"),"Quality Center") = 0 Then

SystemUtil.CloseProcessByHwnd( Browser("micclass:=Browser","index:="&intIndex).getRoProperty("hwnd"))

else

intIndex=intIndex+1

End if

wend