Answer / rnashok

' Create object references to the Browser and Page objects.
Set BrowserObj =Browser("Yahoo!")
Set BrowserPageObj = Browser("Yahoo!").Page("Yahoo!")

' Set a description object to identify links.
Set oDesc = Description.Create()
oDesc("html tag").Value = "A"

' Get a collection of links
Set oLinkCollection = BrowserPageObj.ChildObjects(oDesc)
ItemCnt = oLinkCollection.Count-1
' Loop through the link collection
For i = 0 to ItemCnt
msg = ""
' Highlight and click link i.
Set oLink = oLinkCollection.Item(i)
oLink.Highlight
linkText = oLink.GetROProperty("innertext")

msg = "link text = " & linkText & vbNewLine
oLink.Click
BrowserObj.Sync

' Read page title.
titleStr = mid(BrowserPageObj.GetROProperty("title"),1,50)
msg = msg & "page title = " & titleStr & vbNewLine

' Check if page load had error.
If instr(1,titleStr,"Cannot find server") > 0 or
instr(1,titleStr,"HTTP 404") > 0 Then
msg = msg & "==> broken link" & vbNewLine
Reporter.ReportEvent micFail, "Link " & linkText, msg
else
msg = msg & "==> good link" & vbNewLine
Reporter.ReportEvent micPass, "Link " & linkText, msg
End If

' Navigate back to links page.
BrowserObj.Back
BrowserObj.Sync

' Rebuild link collection, navigating away and back
destroys previous collection.
Set oLinkCollection = BrowserPageObj.ChildObjects(oDesc)
Next

' Release the objects
Set oLinkCollection = nothing
Set BrowserObj = nothing
Set BrowserPageObj = nothing
Set oDesc = nothing

Answer / lkiran

Hi Rnashok,

I used similar function in my script.But getting syntax
error when I try to run the script.Let me know how to solve
it.Herez my function.....

Function eTimeSummary(hours)

rowCount = Browser("XYZ").Page("XYZ_8").WebTable
("Employee #").RowCount

cellData = Browser("XYZ").Page("XYZ_8").WebTable
("Employee #").GetCellData(1,1)

If cellData <> "Commission Information is not available
for this time period" Then

For i = 2 to 2'rowCount
hoursTotal = Browser("XYZ").Page
("XYZ_8").WebTable("Employee #").GetCellData(rowCount, 6)

If Trim(hours)= Trim(hoursTotal) Then
Reporter.ReportEvent 0, "Verifying
AssociateSummaryForODhours and eTimeSummaryhours
Total", "Summary Total Passed."
'msgbox "testpassed"
Else
Reporter.ReportEvent 1, "Verifying
AssociateSummaryForODhours and eTimeSummaryhours
Total", "Summary Total Failed."
End If
Next

End If

Browser("XYZ").Back
Browser("XYZ").Page("XYZ_4").Sync
End Function

How can we log a defect in Testdirector from Q.T.P ?

2 Answers   EDS,

---

how to associate object repository during runtime in qtp

1 Answers   Deloitte,

---

what is the use of automation objective model?where is used? plz tell me

2 Answers  

---

Which object repository we use in real time and can we merge 2 object repostiory and how?

3 Answers  

---

How we can add actions in the test using QTP?

4 Answers   BirlaSoft,

---

Explain the parameter in qtp?

0 Answers  

---

How Exactly we can find out the INDEX No. of any object of an application when we test that application in QTP? Explain this by giving me the example of all LINKS of G-Mail (including home page, User-account page and all possible pages you ever seen in G Mail)?????? and if your answer is that as per appearance of objects(LINKS) in application we can find out the index number in application then tell me how you find out which object(LINK) having INDEX No. 1,2,3 and so on and how you say which object(LINK) is appeared first and which is last?

4 Answers   Infosys,

---

Use of Debug Viewer?

1 Answers  

---

Hi can anyone pls suggest how to fetch username(system login name)and system name in to qtp.I am not using TD or QC.Thx

5 Answers  

---

Please Don't mind .i want in detail the real time process i.e in each document what it contains.

0 Answers  

---

How do u insert an object during runtime in qtp?

2 Answers  

---

How should I check my code( Before going to execute) without executing the script in QTP

1 Answers  

---