With Browser("中搜第三代搜索引擎平台——开放 融合 创新")
With .Page("中搜第三代搜索引擎平台——开放 融合 创新")
.WebEdit("w").Set "北京 限号"
.WebEdit("w").Submit
End With
Dim n
Dim w
n=now '获取当前日期
w=weekday(n) '日期转换为星期 星期一至星期日为2 3 4 5 6 7 1
If w = "2" Then
.Page("北京 限号- 综合搜索 - 中搜").WebElement("限号数字").CheckProperty "innertext", "1和6"
reporter.ReportEvent micPass,"通过
测试","显示了当天正确的限行尾号数字"'通过的打印成功报告
elseif w = "3" Then
.Page("北京 限号- 综合搜索 - 中搜").WebElement("限号数字_2").CheckProperty "innertext","2和7"
reporter.ReportEvent micPass,"通过测试","显示了当天正确的限行尾号数字"'通过的打印成功报告
elseif w="4" Then
.Page("北京 限号- 综合搜索 - 中搜").WebElement("限号数字_3").CheckProperty "innertext","3和8"
reporter.ReportEvent micPass,"通过测试","显示了当天正确的限行尾号数字"'通过的打印成功报告
elseif w="5" Then
.Page("北京 限号- 综合搜索 - 中搜").WebElement("限号数字_4").CheckProperty "innertext","4和9"
reporter.ReportEvent micPass,"通过测试","显示了当天正确的限行尾号数字"'通过的打印成功报告
elseif w="6" Then
.Page("北京 限号- 综合搜索 - 中搜").WebElement("限号数字_5").CheckProperty "innertext","5和0"
reporter.ReportEvent micPass,"通过测试","显示了当天正确的限行尾号数字"'通过的打印成功报告
else reporter.ReportEvent micFail,"没有通过测试","显示错误" '不通过则提示错误
End If
'检查应用标题
With .Page("北京 限号- 综合搜索 - 中搜")
.Link("北京机动车尾号限行规定 北京市公安局交通管理局").Check CheckPoint("北京机动车尾号限行规定 北京市公安局交通管理局")
.Link("北京机动车尾号限行规定 北京市公安局交通管理局").Click
End With
End With
'单击应用标题,检查跳转后的页面
With Browser("车辆按尾号限行交管措施解读--北京市公安局公安交通管理局")
.Page("车辆按尾号限行交管措施解读--北京市公安局公安交通管理局").Image("banner").Check CheckPoint("banner")
.Close
End With
With Browser("中搜第三代搜索引擎平台——开放 融合 创新")
.Page("北京 限号- 综合搜索 - 中搜").Sync
.CloseAllTabs
End With