Interested to Buy Any Domain ? << Click Here >> for more details...
write a script to close all open browser in qtp except one
browser whose name is xyz
- 6 Answers
- 12633 Views
- Cap Gemini, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / gangadhar
set objbrowser=Description.Create
objbrowser("micclass").value="Browser"
set a=Desktop.ChildObjects(objbrowser)
msgbox a.count
for i=o to a.count-1
s=a(i).GetRoProperty("Title")
If instr(s,"Gmail")=0 Then
a(i).close
End If
Next
| Is This Answer Correct ? | 9 Yes | 1 No |
Answer / milan das
Set objbrowser=description.Create
objbrowser("micClass").value="Browser"
Set objbrwcnt=Desktop.ChildObjects(objbrowser)
msgbox objbrwcnt.count
For i=0 to objbrwcnt.count -1
If objbrwcnt(i).GetRoProperty("name")<>"xyz" Then
objbrwcnt(i).close
End If
Next
| Is This Answer Correct ? | 5 Yes | 1 No |
Answer / guest
Set odesc=Description.Create
odesc("micclass").Value="Browser"
Set a=Desktop.ChildObjects(odesc)
For i = 0 To a.count-1
t=a(i).GetRoProperty("Title")
print t
If Trim(t)<>"xyz" Then
a(i).Close
End If
Next
--Ganesh
| Is This Answer Correct ? | 1 Yes | 0 No |
Answer / pravati
set obj=Description.create()
obj("micclass").value="Browser"
set brsrobj=Desktop.childobjects(obj)
msgbox brsrobj.count
for i=0 to brsrobj.count -1
x=Browser("micclass:=Browser","creationTime:=&i-1").Getroproperty("name")
if instr(x,"xyz')=0 Then
Browser("micclass:=Browser","creationTime:=&i-1").close
| Is This Answer Correct ? | 1 Yes | 0 No |
Answer / lak
dim oBrowser,oAllBrowser,nProcessId,nCounter
set oBrowser = Description.Create
oBrowser("micclass").vlaue="Browser"
set oAllBrowser = Desktop.childObjects(oBrowser)
for nCounter=0 to oAllBrowser.count-1
if(instr(oAllBrowser(nCounter).getRoProperty
("title"),"xyz"))<=0 then
nProcessId = oAllBrowser(nCounter).getRoProperty("process
id")
Systemutil.closeProcessById nProcessId
End if
else
oAllBrowser(nCounter).close
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / manjunathareddy
Dim iIndex
iIndex=0
While Browser("CreationTime:="&iIndex).Exist(1)
Title=Browser("CreationTime:="&iIndex).GetRoProperty("title")
If InStr(Title,"xyz")=0 Then
Browser("CreationTime:="&iIndex).Close
If iIndex<>0 Then
iIndex=iIndex - 1
End If
Else
iIndex=iIndex+1
End If
Wend
| Is This Answer Correct ? | 0 Yes | 1 No |
1.How do u prepare the test suits in QC? 2.How do u convert requirements to test plan in QC?
Hi let me ask one questin 1.How to use outputof the one function input to the another function pls give the script for above 2.what is the purpose of action parameter , how to create it
How can I check if a environment variable exist or not?
How the exception handling can be done using quicktest professional (qtp)?
what difference between client and server applications exatly?
How can the name of a checkpoint be changed in Qtp
What is BPT?
Hello Guys, Can anybody Explain me about Automation framework?? and how can we prepareAutomation Framework using QTP
It seems Interview questions from Ordain Solutions are almost BASIC LEVEL-Easy. I am asking one tough question..(I think.. May be easy for some people) In recorded script the - WebLink("cityinfo") In reality, the WebLink name is "generalinfo" How you can write function to click that changed web link. NOTE: This functin should work with any Dynamic text link. I will post the answer later.
How to remove associated function library?
Which scripting language QTP is using?
A web page title might be xxxx@xyz.com or xxxy@xxx.co or xyz@abc.in.Using what mandatory properties can be the page identified.Give the regular expression for that.
WinRunner 
