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 does QTP identifies the object in the application

6 Answers   Convergys,

---

If there are 100 checkboes in a page then how can we select 10th & 11th & 14th chexkboxes at once through descriptive programing in QTP using vb script. Please send the answers...

5 Answers   NTT Data,

---

WHAT IS THE DIFFERENCE BETWEEN QTP SCRIPT AND VB SCRIPT? HOW MUCH PERCENTAGE WE USE IN QTP SCRIPT REAL TIME AND HOW MUCH PERCEN OF VB SCRIPT,,,,,,,

0 Answers  

---

Hi All, I wanted know how does QTP identifies a DataCombo. While recording I clicked on the data combo and selected a value from the list. The click of Data Combo is recorded but the selection of the value from the list is not recorded. My application is based on VB and SQL server as the database. Please let me know as how do I record the action of selecting a value from a DataCombo list. The list is being loaded from the Database Record set.

0 Answers  

---

can some one help me how to compare the values from one sheet to values in another sheet? suposse i have a feild called Temp in action1 and i also have temp in action2. i want to compare the values of those two actions sheets data table? how can i do it using descriptive programming?

1 Answers  

---

what is meant by automation tool?

1 Answers  

---

What should we say if interviewer asks "What is ur project architecture?".......Can any one help me with clear information.?????????

0 Answers   Infotech,

---

What issues come up in test automation, and how do you manage them?

0 Answers  

---

How QTP recognize the object??how to add objcts into object repository??

3 Answers  

---

Whether it is possible to test the adobe's controls like zoom, resize, save etc using QTP...If yes, how u can do the same?

1 Answers  

---

Is it possible to return multiple values from a function..? Then how..?

3 Answers  

---

In QTP TEST DIRECTOR COMBINATION WHAT IS THE PURPOSE OF TEST DIRECTOR? In Somebody says to store test cases and design test cases.?ok fine , but In test director 5.0 , QTp not launching. what u do?

0 Answers  

---