How to click on all links dynamically in UFT?

[Rohan]

This is exact code that works for any page in capturing all the link urls to the data table. By clicking on all the links dynamically.

Code:

Set oBrowser= Description.Create()
oBrowser("micclass").Value = "Browser"
set oPage = Description.Create()
oPage("micclass").Value = "page"

set Links = Description.Create()
Links("micclass").Value = "Link"
set objLinks = Browser( oBrowser).Page( oPage).ChildObjects(Links)
LinkCount = objLinks.Count
msgbox LinkCount


For i = 0 To LinkCount-1
set Links = Description.Create()
Links("micclass").Value = "Link"
set objLinks = Browser( oBrowser).Page( oPage).ChildObjects(Links)
  objLinks(i).Click
datatable.SetCurrentRow(i+1)
datatable("Lname",global)=Browser( oBrowser).Page( oPage).GetROProperty("href")
Browser(oBrowser).Back
set objLinks=nothing       
Next

Thanks all.