|
出现错误信息提示。
Line (14): "Browser("亿芯工程样片零售网").Page("亿芯工程样片零售网").WebEdit("password").SetSecure DataTable("password", dtLocalSheet)".
Dim i '定义行号
Dim outputvalue '读取系统实际的提示信息
Dim istatus '定义读取系统预期提示信息的变量
For i=1to datatable.GetSheet("Action1").getrowcount
Browser("亿芯工程样片零售网").Page("亿芯工程样片零售网").WebEdit("username").Set DataTable("username", dtLocalSheet)
Browser("亿芯工程样片零售网").Page("亿芯工程样片零售网").WebEdit("password").SetSecure DataTable("password", dtLocalSheet)
Browser("亿芯工程样片零售网").Page("亿芯工程样片零售网").WebButton("submit").Click
utputvalue=datatable("outmsg",dtlocalsheet) '将实际输出值赋予变量 outputvalue
istatus=datatable("statue",dtlocalsheet) '将与其输出值赋予变量istatus
If outputvalue<>istatus Then
reporter.ReportEvent 1,"登陆功能测试","预期值为:"+status+",实际值为:“+outputvalue"
End If
datatable.GetSheet("Action1").setnextrow '获取action1中的下一行 数据
Next
Browser("亿芯工程样片零售网").Page("会员中心首页 - 亿芯工程样片零售网").Link("退出").Click |
|