|
这是我的代码,但是测试结果都是最后的webelement的值
Dim result
Dim status
Dim value1,value2
Browser("后台登录").Page("后台登录").WebEdit("TextBox1").Set DataTable("userId", dtLocalSheet)
value1=Browser("后台登录").Page("后台登录").WebElement("名称不能为空").Check( CheckPoint("名称不能为空"))
If value1<>false Then
result=Browser("后台登录").Page("后台登录").WebElement("名称不能为空").GetROProperty("innertext")
End If
Browser("后台登录").Page("后台登录").WebEdit("TextBox2").Set DataTable("password", dtLocalSheet)
value2=Browser("后台登录").Page("后台登录").WebElement("密码不能为空").Check (CheckPoint("密码不能为空"))
If value2<>false Then
result=Browser("后台登录").Page("后台登录").WebElement("密码不能为空").GetROProperty("innertext")
End If
Browser("后台登录").Page("后台登录").WebButton("登录").Click
If Browser("后台登录").Dialog("来自网页的消息").Static("用户名密码不正确!").Exist(3) Then
result=Browser("后台登录").Dialog("来自网页的消息").Static("用户名密码不正确!").GetROProperty("text")
Browser("后台登录").Dialog("来自网页的消息").WinButton("确定").Click
End if
status=datatable("status",dtLocalSheet)
If result<>status Then
Reporter.ReportEvent micFail,"提示错误","实际的:"+result+"预期的:"+status+"不相同"
else
Reporter.ReportEvent micPass,"提示正确","实际的:"+result+"预期的:"+status+"相同"
End If
|
|