Answer / badri

Above script for weblists

To count No of Links in webpage:

Set chobj=description.Create
chobj("micclass").value="Link"
Set obj=Browser(" ").Page(" ").ChildObjects(chobj)
'Count the no of objects
n=obj.count
msgbox "No of Links: "&n

Answer / bkiranratna

Set oDesc = Description.Create()

oDesc("micclass").Value = "WebList"

Set Lists = Browser("Mercury Interactive").Page("Mercury
Interactive").ChildObjects(oDesc)

NumberOfLists = Lists.Count()

Answer / u v r murthy

By using Page Check point also we could find out the total
link which are available in that particualr page.

Procedure: insert Standard check point then select any
object in the page, you will get Object selections popup,
there u can select page object, again you will get one more
popup called "Page Check point properties" in this popup
make sure that u have selected Links check box under ALl
OBJECTS IN PAGE then click ok.

Finally run the script. you will get the no of links
available in current used page in result window

Answer / sudheerreddym

Set link obj=description.Create
linkobj("micclass").value="link"
Set link childobjs=browser("Yahoo").Page("Yahoo").chldobjects(linkobj)childcount=link childobjs.Count

for i=0 to child Count-1
msgbox link childobjs(i).getRoproperty("innertext")
next
if u want to click on the last link on that page:

browser("Yahoo").page("Yahoo").link(index:="&childCount-1).cclick
set linkobj=nothing

Key word driven framework

1 Answers   Wipro,

---

How many types of recording modes are there?

1 Answers  

---

how to merge 2 object repositories in qtp 9.0.what is use of merge and y merge is used?

1 Answers  

---

why we use check points , In qtp we use the any check points , what r they , when and why

1 Answers   Polaris,

---

how to reverse the string without using bultin functions(i.e mean mid,len ,reverse functions)

6 Answers   GE,

---

Which MS Excel formulas are possible to use in the DataTable? I am searching a formula for searching a field in the datatable

3 Answers   HP,

---

Dim ExcelSheet Set ExcelSheet = CreateObject("Excel.Application") excelsheet.application.visible = true ExcelSheet.ActiveSheet.Cells(1,1).Value = "This is column A, row 1" ' Save the sheet. ExcelSheet.SaveAs "C:\DOCS\TEST.XLS" ' Close Excel with the Quit method on the Application object. ExcelSheet.Application.Quit after run this script i am getting error"The test cannot continue due to unrecoverable error"

3 Answers  

---

How Can I find the least value in a bunch of variables using qtp.. E.g.:- A = 210, B = 212, C = 60, D = 111 I don’t want to write bunch of lines for this…. Is there a way to get the result in one line…..

1 Answers  

---

write progamming connecting QTP to database sql? this is question asked by interview? please give sql, pl/sql related answer?pls any answer this?

3 Answers   IBM,

---

What is the difference in the global and action sheet in qtp?

1 Answers  

---

what is the use of descriptive programming in QTP ? when we need to use DP? can we test the application completely with out useing DP?? please explan with example

2 Answers  

---

How do we handle run-time errors?

1 Answers  

---