How to click on all links dynamically in UFT?

[vinod123]

try the below code

Code:

Set Des_Obj = Description.Create
Des_Obj("micclass").Value = "Link"
Set link_col = Browser("micclass:=Browser").Page("micclass:=Page").ChildObjects(Des_Obj)
a = link_col.count
For i = 0 to a-1
tag = link_col(i).GetROProperty("name")
href = link_col(i).GetROProperty("url")
Browser("micclass:=Browser").Navigate href
Next