How to get count of all links on a web page and click on each link using Description Object (Description.Create) in QTP

'Open the URL
Systemutil.Run "iexplore","www.gooogle.com"

'Create the Browser object  -  No need to create for this example as we are using 'creationtime' to recognise the browser
Set oBrowser = Description.Create
oBrowser("micclass").value = "Browser"
oBrowser("name").value = "Google"

'Create the Page object
Set oPage = Description.Create
oPage("micclass").value = "Page"
oPage("title").value = "Google"

'Create the Link object
Set oLink = Description.Create
oLink("micclass").value = "Link"
oLink("html tag").value =  "A"

'Get all links (child items with link as type) for the browser
Set colObject = Browser("Creationtime:=0").Page(oPage).ChildObjects(oLink)

'Display count of all links
Msgbox ColObject.Count

'Open each link and capture its name and URL values
'For i=0 to ColObject.Count - 1
For i=2 to ColObject.Count -1
    URL =  colObject(i).GetROProperty("url")
    Namee = colObject(i).GetROProperty("Name")
    Browser("Creationtime:=0").Object.Navigate URL, Clng(&H800) 'The 'Clng(&H800)' parameter will open the URL in new tab
If Browser( "creationtime:=1").Exist (30) Then 
    Browser( "creationtime:=1").Sync
    Wait 2
    Browser( "creationtime:=1").Close
    Reporter.ReportEvent micPass, "The link:- " &Namee &" is opened sucessfully with URL: " &URL, ""
Else
    Reporter.ReportEvent micFail, "The link:- " &Namee &" is not opened sucessfully with URL: " &URL, ""
End If

Next

Comments

Popular Posts

Elevating Your Automation: Best Practices for Effective Test Automation

The Art of Payments Testing: Ensuring Seamless and Secure Transactions

Demystifying Automation Frameworks: A Comprehensive Guide to Building Scalable Solutions

Guide to Database Testing

Key Differences Between Different Programming and Scripting Languages