Monday, January 3, 2011

Descriptive Programming

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