Program to List all links in the web page

Set ODec = Description.Object()
ODec(“Class Name”).value = “Link”
Set Colink = Browser(Obj).Page(Obj)..childobjects(ODec)
Nocollink = Colink.count()
For i =0 to Nocolink -1 Step 1
Colink(i).select
Msgbox colink(i)
‘i = i+1
Next

Check whether scrollbars exists inside a editor

IF (Browser(Obj).Page(Obj).WebEdit(Obj).FireEvent (“OnMouseOver”, “”,””,0) ) then
Msgbox “ Exists Scrollbar in the Web Editor”
Else
Browser(Obj).Page(Obj).WebEdit(Obj).Exist
Msgbox “ No Scrollbar in the Web editor”
End if
(Or)
MyString = Browser(Obj).Page(Obj).WebEdit(Obj).GoRoPerperties (“Visible items”)
Mystring1 = Browser(Obj).Page(Obj).WebEdit(Obj).GoRoPerperties (“itemscount”)
IF (MyString = MyString1 ) then
Msgbox “ Is Scrollbar is visible ”
Else
Msgbox “ Is Scrollbar is not visible ”
End if