|
先请看代码
'检查连接是否正确
set userurl = Description.Create()
'设置检查属性和属性的值,如需要可设置多个属性和属性值 long_name用户名
userurl("text").value = "家务中心"
userurl("index").value = 0
userurl("url").value = "(.)*"&DataTable("home_name", dtGlobalSheet)&"(.)*"
Dim true_userurl
true_userurl = allpage.webelement(username).GetROProperty("url")'取实际登陆用户数据
'设置检查控件---目前是检查 webelement 对象
If allpage.link(userurl).Exist Then
Reporter.ReportEvent micPass, "用户连接正确", "家务中心连接:"&true_userurl '设置通过时的描述语句
Else
Reporter.ReportEvent micFail, "用户连接不正确", "Fail" '设置不通过时的提示语句
End If
'------------------------------------------------------------------------------
我参数化判断一个对象的连接,然后取实际对象的rul地址,最后结果如附件.就是没有rul显示 |
|