QTP检测页面所有链接是否包括“HTTP Status500-”
功能说明：登录系统后，检查noTestLink以外所有链接是否可能正常打开，主要是通过判断所打开页面是否包含“HTTP Status500-”，如果页面包含“HTTP Status500-”，表示页面打开失败，通过Report函数将结果输出到Excel中Browser("直放站综合网管系统").Page("直放站综合网管系统").WebButton("登录").Click
'不需要检查的链接
noTestLink="注销,添加网元,修改网元,网元删除,网元详细信息,性能详细信息,系统管理,系统监控,配置管理,轮询管理,故障管理,拓扑管理,工单管理,报表管理,代维管理,日志管理,系统帮助,定时任务管理,轮询成功率统计,告警前转管理,短信发送平台,上报报表"
Dim pageCount,frameCount,webElementCount
Dim linkIndex,frameIndex
Set linkObj=Description.Create()
Set frameObj=Description.Create()
Set webElementObj=Description.Create()
linkObj("micclass").value="Link"
frameObj("micclass").value="Frame"
webElementObj("micclass").value="WebElement"
Set all_link=Browser("直放站综合网管系统").Page("直放站综合网管系统V5.3.02.0002").ChildObjects(linkObj)
linkCount=all_link.Count()
For linkIndex = 0 To linkCount -1
link_text=all_link(linkIndex).GetROProperty("text")
If 0=instr(1,noTestLink,link_text,1) Then
Browser("直放站综合网管系统").Page("直放站综合网管系统V5.3.02.0002").Link("text:="&link_text).Click
Set all_frame=Browser("直放站综合网管系统").Page("直放站综合网管系统V5.3.02.0002").ChildObjects(frameObj)
frameCount=all_frame.Count()
frameName=all_frame(frameCount-1).GetROProperty("name")
isOpen=Browser("直放站综合网管系统").Page("直放站综合网管系统V5.3.02.0002_4").Frame("name:="&frameName)WebElement("name:=HTTP Status 500 -").Exist(5)
If false=isOpen Then
Report link_text,"PASS",link_text&"打开成功"
else
Report link_text,"FAIL",link_text&"打开失败"
End If
Browser("直放站综合网管系统").Page("直放站综合网管系统V5.3.02.0002_2").Image("关闭").Click
End If
Next
结果代码运行到isOpen=Browser("直放站综合网管系统").Page("直放站综合网管系统V5.3.02.0002_4").Frame("name:="&frameName)WebElement("name:=HTTP Status 500 -").Exist(5)时，isOpen的值始终为false，对于真正打不开的页面，在报告中也显示打开成功，请教高手如何处理啊？有没有其他办法解决呢？ isOpen=Browser("直放站综合网管系统").Page("直放站综合网管系统V5.3.02.0002_4").Frame("name:="&frameName)WebElement("name:=HTTP Status 500 -").Exist(5)
中
Frame("name:="&frameName)WebElement应为“”Frame("name:="&frameName).WebElement ;
If false=isOpen Then
Report link_text,"PASS",link_text&"打开成功"
else
Report link_text,"FAIL",link_text&"打开失败"
End If 的条件句写反了吧 If false=isOpen Then
=> If isOpen Then 问题已经解决了，通过Text checkpoint就可以了
页:
[1]
