please help for no of links

[excellentpawan]

this code does not give total no of links on some websites like flipkart.com

Code:

Dim des, obrowser, opage,a
Set des = description.Create
des("micclass").value = "Link"

Set obrowser = description.Create
obrowser("micclass").value = "Browser"

Set opage = description.Create
opage("micclass").value = "Page"

set a = browser(obrowser).page(opage).ChildObjects(des)
val = a.count
print "total no of link = "&val

For i=1 to val-1
print a(i).getROProperty("name") & vbnewline
Next