描述性编程登录实例

 

systemutil.CloseProcessByName "iexplore.exe"
systemutil.Run "iexplore.exe","http://192.168.2.52:8004/Account/Login"
Set Systembrowser = description.Create
Set Systempaye =description.Create
Set LoginZH =description.Create
Set Loginpsw = description.Create
Set Loginbutton = description.Create
Systembrowser("name").value ="数据中心系统"
Systempaye("title").value ="数据中心系统"
LoginZH("name").value ="userName"
Loginpsw("name").value ="password"
Loginbutton("name").value ="登 录"
Browser(Systembrowser).page(Systempaye).WebEdit(LoginZH).Set "sso"
Browser(Systembrowser).page(Systempaye).WebEdit(Loginpsw).Set "1"
Browser(Systembrowser).page(Systempaye).WebButton(Loginbutton).Click