|
Dim i '定义行号
Dim outputvalue '读取系统实际的输出值的变量
Dim dateh '定义系统预期提示信息的变量
For i=1 to datatable.GetSheet("Action1").getrowcount
Browser("江苏省政务和公益域名网上申报系统").Page("江苏省政务和公益域名网上申报系统").WebEdit("username").Set DataTable("username", dtLocalSheet)
Browser("江苏省政务和公益域名网上申报系统").Page("江苏省政务和公益域名网上申报系统").WebEdit("password").SetSecure DataTable("password", dtLocalSheet)
Browser("江苏省政务和公益域名网上申报系统").Page("江苏省政务和公益域名网上申报系统").Image("dl").Click 28,17
'但是我想要的是验正时弹出一个对话框来验正输入是否正确。下面一行的文本验正应该如何修改??
Browser("江苏省政务和公益域名网上申报系统").Page("江苏省政务和公益域名网上申报系统").Output CheckPoint("江苏省政务和公益域名网上申报系统")'插入文本输出点
outputvalue=datatable("stamsg",dtlocalsheet) '将实际输出值赋于变量outputvalue
dateh=datatable("status",dtlocalsheet) '将预期值赋于变量dateh
If outputvalue<>dateh Then
Reporter.ReportEvent 1, "登录功能测试", "预期值为 " &dateh & " 实际值为" &outputvalue
End If
datatable.GetSheet("Action1").setnextrow '获取action1中的下一行数据
Next
Browser("江苏省政务和公益域名网上申报系统").Page("江苏省政务域名网上申报系统").Frame("menu").Link("退出系统").Click
Browser("江苏省政务和公益域名网上申报系统").Page("江苏省政务和公益域名网上申报系统").Sync
Browser("江苏省政务和公益域名网上申报系统").Close |
|