Dim user_name,user_pwd,status
user_name=DataTable("user_name", dtGlobalSheet)
user_pwd=DataTable("user_pwd", dtGlobalSheet)
Browser("用户登陆").Page("用户登陆").WebEdit("userId").Set (user_name)
Browser("用户登陆").Page("用户登陆").WebEdit("userPass").SetSecure (user_pwd)
Browser("用户登陆").Page("用户登陆").WebButton("登 录").Click
status= Browser("用户登陆").Page("通讯录").WebElement("D1").Exist(2)
If status= "True" Then
Browser("用户登陆").Page("通讯录").Link("登出").Click
Reporter.ReportEvent micPass,"用户名为:"&user_name&",用户密码:"& user_pwd,"登录成功"
else
Reporter.ReportEvent micFail,"用户名为:"&user_name&",用户密码:"& user_pwd,"登录不成功"
End if
上面使用到了 数据表的参数化 报告的优化等
来源:http://007.1010zz.com/blog.php?do=showone&uid=2&type=blog&itemid=7