Get total links visible on a webpage

[Sanjay_DP]

Hi,

I tried fetching all the links on a webpage using the following code.

Code:

Set oDesc = Description.Create() oDesc("micclass").Value = "Link" Set ChildCount = Browser("name:=.*").page("title:=.*").ChildObjects(oDesc) num = ChildCount.Count

But it returns me links which are even not visible on the page. I would like to get only a set of visible links on the current page.

I tried using the "Visible" property as well but it reruns 0 objects.

[Rahull]

Hi,

Try to find the "unique" property by comparing the visible link and non visible link using the getroproperty. Then specify the same in description.

--Rahul

[supputuri]

Hi,

describe below property too.

Code:

oDesc("Visible").Value = "True"

And now try to run and let me know if it does not solve your issue.

[Sanjay_DP]

Hi, It returns 0 objects if set:

Code:

oDesc("Visible").Value = "True"

[DinakarVadapalli]

Code:

Set oBrowserDescriptions = Description.Create () oBrowserDescriptions("micClass").Value = "Browser" oBrowserDescriptions("openedbytestingtool").Value = "True" Set oPageDescriptions = Description.Create () oPageDescriptions("micClass").Value = "Page" Set oBrowserObj = Browser(oBrowserDescriptions).Page(oPageDescriptions) Systemutil.Run "iexplore" Browser(oBrowserDescriptions).Navigate "www.google.com" oBrowserObj.Sync Set oBowserChObj = oBrowserObj.ChildObjects(oLinkDescriptions) Set oBowserChObj = oBrowserObj.ChildObjects() iChObjCnt = oBowserChObj.Count -1 msgbox iChObjCnt For iCount = 0 to iChObjCnt If oBowserChObj(iCount).GetROProperty("micclass") = "Link" Then If oBowserChObj(iCount).GetROProperty("visible") = true Then msgbox oBowserChObj(iCount).GetROProperty("name") End if End If Next

[Parke]

visible is boolean so use = True with no quotes

Code:

Set oDesc = Description.Create() oDesc("micclass").value = "Link" 'oDesc("visible").Value = True Set childCollection = Browser("Google").Page("Google").ChildObjects(oDesc) num = childCollection.count msgbox "number of links = " & num s = "" For i = 0 to num - 1 var = childCollection.item(i).GetROProperty("innertext") var_2 = childCollection.item(i).GetROProperty("visible") var_all = var & ": " & var_2 s = s & vbcrlf & var_all Next msgbox s

on 2012-02-16. there are 40 links. 21 links have visible = True
Run the code with visible active and not active.

hth,


Parke