[如需转载，请在转载时注明出处，并保证本文的完整性]
周末，抽点时间整理下QTP实现用户登录的自动化测试案例，拿出来分享下…欢迎广大窝友提出宝贵意见哈…共同学下…
一、测试步骤：
1、设计自动化测试用例：（测试用例只设计部分的）
1）用户名、密码为空，点击【登录】按钮，期望系统提示“请输入用户名。”，测试数据：无；
2）输入用户名，密码为空，点击【登录】按钮，期望系统提示“密码一栏为空。”，测试数据：test，空；
3）输入错误的用户名、密码，点击【登录】按钮，期望系统提示“无效用户名。”，测试数据test，test；
4）输入正确的用户名、错误的密码，点击【登录】按钮，期望系统提示“test 的密码不正确。”，测试数据test，123456；
5）输入正确的用户名、密码，点击【登录】按钮，通过系统验证，正常登录系统，测试数据：test，111111.
2、录制脚本，通过正常的业务流程，登录系统，然后再退出系统；
3、回放脚本
4、保存脚本；
5、增强脚本，对用户名、密码进行参数化；
6、在datatable中创建一个预期值列表status；
7、按照设计的测试用例，填写用户名username、密码password以及期望值status的参数值；
8、创建相应变量，创建一个表示datatable中行号i；
9、用for循环，能够自动读取每一行用户名和密码；
10、插入一个文本输出点，输出系统的实际提示信息，并将该输出值保存datatable中的action1的outmsg列；
11、定义一个读取系统实际提示信息的变量outputvalue；
12、将系统实际提示信息赋予定义的变量outputvalue；
13、定义、并将预期提示信息的值赋给变量istatus；
14、预期结果与实际结果进行比较；
15、设置自动获取action1中下一行值继续执行测试；
16、调试、优化脚本，并执行测试，结果分析。
二、测试脚本：
Dim i ’定义行号
Dim outputvalue ’定义系统获取实际的提示信息变量
Dim istatus ’定义系统获取预期的提示信息变量
For i=1 to datatable.GetSheet(“Action1″).GetRowCount
Browser(“测试屋|软件测试工程师的网上书店”).Page(“测试屋|软件测试工程师的网上书店”).Link(“登录”).Click
Browser(“测试屋|软件测试工程师的网上书店”).Page(“测试屋|软件测试工程师的网上书店 › 登录”).WebEdit(“log”).Set DataTable(“username”, dtLocalSheet)
Browser(“测试屋|软件测试工程师的网上书店”).Page(“测试屋|软件测试工程师的网上书店 › 登录”).WebEdit(“pwd”).SetSecure DataTable(“password”, dtLocalSheet)
Browser(“测试屋|软件测试工程师的网上书店”).Page(“测试屋|软件测试工程师的网上书店 › 登录”).WebButton(“登录”).Click
Browser(“测试屋|软件测试工程师的网上书店”).Page(“测试屋|软件测试工程师的网上书店 › 登录”).Output CheckPoint(“测试屋|软件测试工程师的网上书店 › 登录”)
outputvalue=datatable(“outmsg”,dtlocalsheet) ’将实际输出值赋予变量outputvalue
istatus=datatable(“ststus”,dtlocalsheet) ’将预期输出值赋予变量istatus
If outputvalue<>istatus Then
reporter.ReportEvent 1,”登录测试”,”预期值为：”+istatus+”, 实际值为：”+outputvalue ‘预期结果与实际结果进行对比
End If
datatable.GetSheet(“Action1″).SetNextRow ’获取Action1中的下一行数据
Next
Browser(“测试屋|软件测试工程师的网上书店”).Page(“仪表盘 ‹ 测试屋|软件测试工程师的网上书店”).Link(“登出”).Click
Browser(“测试屋|软件测试工程师的网上书店”).Page(“测试屋|软件测试工程师的网上书店 › 登录_2″).Sync
Browser(“测试屋|软件测试工程师的网上书店”).Close
三、datatable数据：
