Forum Discussion
Dmitry_Nikolaev
Staff
14 years agoHi uday,
Here's the VBScript version of the routine:
Sub Test
Dim Page
Set Page = Sys.Process("iexplore").Page("*")
Log.Message GetLinksCount(Page)
End Sub
Function GetLinksCount(page)
Dim Links, LinksCount
Links = page.FindAllChildren("ObjectType", "Link", 9000)
LinksCount = 0
LinksCount = UBound(Links)
GetLinksCount = linkscount
End Function