How to close all other browsers,except gmail,yahoo?

[kalyani0820@gmail.com]

Hi all,

Suppose there are many browsers which are opened, i want to close all browsers except gmail, yahoo, google. How should i script this in QTP?
Thanks in advance.....

Kalyani

[PrabhatN]

Hi Kalyani,

I don't understand on what situation you may need to leave few browsers and close rest all. Anyway, to achieve this, you can use the code below:

Code:

bIndex = 0 'Set Browser index to 0
While Browser("CreationTime:="&bIndex).Exist(1) 'Loop untill the last browser
    bTitle = Browser("CreationTime:="&bIndex).GetROProperty("title") 'Get the browser title
    If InStr(bTitle,"Google") = 0 And InStr(bTitle,"Yahoo") = 0 And InStr(bTitle,"Gmail") = 0 Then
        Browser("CreationTime:="&bIndex).Close 'If the title doesn't contain Google or Gmail or Yahoo, close it
        If bIndex <> 0 Then
            bIndex = bIndex - 1 'If browser index is more than 0 and a browser is closed, decrease the index value by 1
        End If
    Else
        bIndex = bIndex + 1 'If no browser is closed for certain run, increase the index value by 1
    End If
Wend

There is another built-in functionality provided by QTP. That might not be pertinent to your case but you may want to explore.

Go to Tools-->Options-->Web

Here you can see an option "Ignore the following browsers" where you can add your required browser details which QTP will ignore during record/run.

[kalyani0820@gmail.com]

Hi prabhat,

Thanks a lot, your code worked without any changes.........but i dint understand logic completely.....i mean how it works, though u gave comments. I din understand line no:2,4. Thanks for ur time.

Kalyani