Functions file for Gmail site

'launch google site
function launch()
systemutil.Run("http://www.gmail.com")
end function

function login(byval x,byval y)
With Browser("title:=.*")
With .browser("title:=.*")
.webedit("name:=Email").set x
.webedit("name:=Passwd").setsecure y
.webbutton("name:=Sign in").Click
End With
End With
end function


function inbx()
With browser("title:=.*")
With .page("title:=.*")
.link("html tag:=A","index:=1").Click
End With
End With
end function

function sgnf()
With browser("title:=.*")
With .page("title:=.*")
.link("html tag:=A","name:=Sign out").Click
End With
End With
'arrange window for the new user
With browser("title:=.*")
With .page("title:=.*")
.link("name:=Sign in with a different account ").Click
End With
End With
With browser("title:=.*")
With .page("title:=.*")
.webelement("html tag:=A","x:=672","y:=274").click
End With
End With
With browser("title:=.*")
With .page("title:=.*")
.webelement("html tag:=BUTTON").Click
End With
End With
With browser("title:=.*")
With .page("title:=.*")
.link("name:=Done").Click
End With
End With
browser("title:=.*").Close

end function