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

Find page load time

Dim Stimer, Etimer, Toltimer,a
systemutil.Run "iexplore.exe","www.naukri.com"
Stimer = Timer()
a = Browser("Naukri.com - Search Jobs").Page("Naukri.com - Search Jobs").Sync
If (a.exists) then
Etimer = timer()
Toltimer = Etimer - Stimer
Msgbox Toltimer
Reporter.ReportEvent micPass,"Naukri","Page is Loaded"
Else
Reporter.ReportEvent micFail,"Naukri","Page is not Loaded"
End if

Write a program to enter data in login screen

Browser(Obj).Page(Obj).Frame(Obj).Webedit(LoginName).Enter “ Vinodh”
Browser(Obj).Page(Obj).Frame(Obj).Webedit(Password).SetSecure
Browser(Obj).Page(Obj).Frame(Obj).Webbutton(click).Click
(OR)
'Application Name : flight Reservation
Dialog("Login").WinEdit("Agent Name:").Set "vinodh"
Dialog("Login").WinEdit("Password:").SetSecure "4b5fe91c45e512baf4facd0a169a41c192aa47c4"
Dialog("Login").WinButton("OK").Click

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