Script to check how many link are present of any Webpage

'//Script to check How many link are present on any Webpage


'Step1:- Create Description object for link

Set olink=Description.Create
olink("micclass").value="Link"
'olink("html tag").value="A"


'2. Collect all links in variable
Dim alllink

set alllink=browser("title:=.*").Page("title:=.*").ChildObjects(olink)

'3. Count how many links are present

msgbox alllink.count

'4.Get name of all the links

For i=0 to alllink.count-1

    msgbox alllink(i).getroproperty("innertext")


Next