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