Answer Posted / 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

What are the challenges u faced in testing with crm domain? How u overcome with?

1996

---

Is there anyway to automatically update the Datasource name in Database Checkpoints object when we migrate tests to a new release?

3943

---

What is file database?

2222

---

What are the technologies supported by qtp?

1024

---

what testplan contents and what test strategy contents,what is the diff b/w them

2201

---

How often were they executed?

2497

---

How do you delete unwanted results in qtp?

1172

---

Describe how Smart Identification is used

2292

---

How many types of status are there?

1097

---

Explain quicktest professional testing process?

1065

---

What is the meaning Work bench?

2268

---

Is it possible to use two instances of UFT on the same machine? If not why?

1171

---

What is a Patch in QTP?

1109

---

What is qtpro? What is quick test pro?

1106

---

In the website, the protocol has been changed http: to https what you will do? Tell me your approach?

1065

---