登录页面验证:
1.用户名输入框为空验证
2.密码为空验证
3.密码错误验证
4.正确登录验证
Datatable数据如下图:
代码如下:
systemutil.CloseProcessByName "iexplore.exe"
systemutil.Run"iexplore.exe","www.testdbk.com",3
'定义excle取值,excel表,行,列
Dim dtvalue,dtsheet,dataRow,dtvalue1,a
a=0
'定位表格
set dtsheet = datatable.GetSheet("Action1")
'设置起始行为第一行
dtsheet.SetCurrentRow(1)
For i = 0 to dtsheet.GetRowCount+1
dtvalue = datatable("A","Action1")
dtvalue1= datatable("B","Action1")
dtvalue = dtsheet.GetParameter("A").Value
dtvalue1= dtsheet.GetParameter("B").Value
dtvalue = dtsheet.GetParameter(1).value
Dim Browser1
Set Browser1 = Browser("micClass:=Browser").Page("micClass:=Page")
Browser1.WebElement("innertext:=登录").click
Browser1.WebEdit("name:=username").Set dtvalue
Browser1.WebEdit("type:=password").Set dtvalue1
Browser1.WebElement("innertext:=登 录").click
Dim strArr,abc
strArr=array ( "用户名不能为空","密码不能为空","密码不正确","")
If Browser1.WebElement("class:=am fl").Exist Then
abc = Browser1.WebElement("class:=am fl").GetROProperty("innertext")
If abc = strArr(a) Then
reporter.ReportEvent micWarning,strArr(a),abc
Else
reporter.ReportEvent micFail,strArr(a),abc
End If
Else
Desktop.CaptureBitmap "D:\截图\登录完成.png", true
reporter.ReportEvent micPass,"登录成功","登录完成.png"
End If
systemutil.CloseProcessByName "iexplore.exe"
systemutil.Run"iexplore.exe","www.testdbk.com",3
dtsheet.SetNextRow
i=i+1
a=a+1
next
问题描述:
1. 是否能够优化表格列的读取,若为多列可以如何修改,进行遍历。
2. 提示内容的校验,是否能更好的适配提示内容的变化。