'输入用户名test、密码test
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("userName").Set "test"
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("password").SetSecure "4e6eba0869d817b1fa3481fdedee"
'录制的添加checkpoint脚本
'Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").Image("Sign-In").Check CheckPoint("Sign-In")
'手动获取checkpoint的值,需要将checkpoint参数两端加括号
bool=Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").Image("Sign-In").Check (CheckPoint("Sign-In"))
'判断bool值,如果不存在则提示,否则登录
if(bool=false) then
msgbox("Sign-In 对象不存在")
else
'点击sign-in登录
Browser("Welcome: Mercury Tours").Page("Welcome: Me