Suppose there are 10 browsers opened on desktop. I want to
close all browsers except one browser in QTP. Can any one
give the code for this?
Answers were Sorted based on User's Feedback
Answer / sharath
you can use descriptives programming concepts.
"CreationTime" is a QTP browser property, which indicates
the order in which browsers were opened.
To close 1st browser --> Browser("CreationTime:=0").Close
2nd browser --> Browser("CreationTime:=1").Close.
you can use a loop to close other 9 browsers..
Is This Answer Correct ? | 17 Yes | 3 No |
Answer / nihar ranjan sethy
set odesc=description.create
odesc("micclass").value="browser"
set x=desktop.childobjects(odesc)
for i=10 to 2 step-1
x(i).close
next
Is This Answer Correct ? | 4 Yes | 0 No |
Answer / rico
just made a small correction. Here goes the updated answer
Set browserDesc = Description.Create()
browserDesc(”application version”).Value = “internet
explorer 6"
Set Allbrowsers = DeskTop.ChildObjects(browserDesc)
BrowserCnt = Allbrowsers.Count
For i = 0 To (browserCnt -2)
Allbrowsers(i).Close
Next
Set browserColl = Nothing
Set browserDesc = Nothing
Is This Answer Correct ? | 7 Yes | 7 No |
Answer / sireesha
If you want to close all browsers except gmail browser then you will follow this code.
set ObjDesk = Description.Creation
ObjDesk("micclass").Value="Browser"
set ObjDec =Desktop.ChildObjects(ObjDesk)
BroCount=ObjDec.Count
msgbox BroCount
if BroCount >0 then
for i=BroCount-1 to 0 step-1
if Instr(1,Browser("CreationTime=&i").GetRoproperty("name"),"gmail")=0 then
Browser("CreationTime:=&i").Close
End If
Next
End If
Is This Answer Correct ? | 2 Yes | 2 No |
Answer / vijay
While Browser("creationtime=0").exist(0)
Browser("creationtime=0").close
wend
Is This Answer Correct ? | 1 Yes | 1 No |
Answer / shankar
set brow=description.create
brow("micclass").value="browser"
set brows=Desctop.childobjects(brow)
for i=0 to brows.counts-1
browser(brow).close
please reffer this and if it is wrong give me clarification.
Is This Answer Correct ? | 0 Yes | 1 No |
Answer / rico
Assuming all 10 browsers are IE6
Set browserDesc = Description.Create()
browserDesc(”application version”).Value = “internet
explorer 6″
Set Allbrowsers = DeskTop.ChildObjects(browserDesc)
BrowserCnt = Allbrowsers.Count
For i = 0 To (browserCnt -2)
Allbrowsers(i).Close
Next
Set browserColl = Nothing
Set browserDesc = Nothing
Is This Answer Correct ? | 4 Yes | 8 No |
How to use descriptive programming?
How to merge the two object repositories
What is environment variable in qtp and why to use it?
What is the syntax to use out of two characters. Pls anybody can give the answer.. Thanks in advance...
How to carry out bit map check points in QTP
Please have a look at this: a = Browser("Travel Boutique Online").Page("Travel Boutique Online_2").webelement("innerhtml:=2622").getroproperty("y") a=a+9 msgbox a Browser("Travel Boutique Online").Page("Travel Boutique Online_2").image("alt:=check","y:=a").click Now please let me explain. As clear from code I am trying to enter value of variable 'a' as Property y. But each time QTP AND MY SYSTEM stops responding when this line is execcuted. But When i enter some number in place of 'a' in the last line. it works fine. Please let me know what I am doing wrong at time of entering the variable in last line. Thanks a lot
IF we use batch testing.the result shown for last action only.in that how can i get result for every action.
Tell me the situations where we will use Data Driven?
How to run a script from lines 50 - 100 alone (if the script has 1- 200 lines of code)?
How to connect to data base?
If you have given 1000 manual test scripts, what test you will do? and how?
Can anyone explain me about child objects in detail;when they are used and why do we need them ? please give me sample code for this if possible.