This is Very Useful.....
SystemUtil.Run "http://www.gmail.com/"
Dim gm
Set gm = Description.Create
gm("html tag").value="INPUT"
gm("html id").Value="Email"
gm("name").Value ="Email"
Set Pwd= Description.Create
Pwd("name").Value="Passwd"
Set SignIN= Description.Create
SignIN("html id").Value="signIn"
Dim Br
Set Br= Description.Create
Br("name").Value="Gmail: Email from Google"
Br("title").Value="Gmail: Email from Google"
Dim pg
Set pg = Description.Create
pg("title").Value ="Gmail: Email from Google"
Browser(Br).Page(pg).WebEdit(gm).Set "gmail id"
Browser(Br).Page(pg).WebEdit(Pwd).Set "password"
Browser(Br).Page(pg).WebButton(SignIN).Click
If You have any question. Please let me know.
Thanks,
Shahadat Khan
No comments:
Post a Comment