Saturday, January 16, 2010

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

No comments: