QTp中实现用户登录测试的脚本

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