Friday, March 25, 2011

Script to maximize the Browser

Public Function fnBrowserMaximize()
fnBrowserMaximize=false

wait(2)
If Browser("Creationtime:=0").exist(1) then
If Browser("Creationtime:=0").Object.Top <> "-1" then

Browser("Creationtime:=0").Page("Creationtime:=0").sync
Browser("Creationtime:=0").FullScreen
fnBrowserMaximize=true
End If
End If
End Function

No comments: