Get total links visible on a webpage

[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