脚本如下:
Dim i '定义行号
Dim outputvalue' 读取系统实际的提示信息
Dim isstatus '读取系统预期的提示信息
for i =1 to datatable.GetSheet("Action1").GetRowCount
JavaWindow("登录").JavaEdit("用户名").Set DataTable("username", dtLocalSheet)
JavaWindow("登录").JavaEdit("密码").SetSecure DataTable("password", dtLocalSheet)
JavaWindow("登录").JavaButton("登录").Click
If javawindow("登录").JavaStaticText("该用户不存在(st)").Exist Then
JavaWindow("登录").JavaStaticText("该用户不存在(st)").Check CheckPoint("该用户不存在(st)")
outputvalue= datatable("sj_value",dtlocalsheet) 'outputvalue将实际输出值赋予变量
isstatus=datatable("status",dtlocalsheet) 'isstatus将预期输出值赋予变量
If outputvalue<>isstatus Then
reporter.ReportEvent 1,"登陆功能测试","预期值为:"+isstatus+",实际值为:"+outputvalue
End If
else
JavaWindow("MainFrame").JavaButton("开始").Click
JavaWindow("MainFrame").JavaButton("开始").Click 24,21,"LEFT"
JavaWindow("MainFrame").JavaMenu("退出系统").Click
JavaWindow("MainFrame").JavaDialog("UnlockAndExit").JavaEdit("密 码").SetSecure "4de5b1799b82fba79339c68992f03581"
JavaWindow("MainFrame").JavaDialog("UnlockAndExit").JavaButton("ImageButton").Click
End If
datatable.GetSheet("Action1").SetNextRow
Next |