QTP检测页面所有链接是否包括“HTTP Status500-”

Raymondzfy

功能说明：登录系统后，检查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，对于真正打不开的页面，在报告中也显示打开成功，请教高手如何处理啊？有没有其他办法解决呢？

yawenhui

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 的条件句写反了吧

deting

If false=isOpen Then
=> If isOpen Then

Raymondzfy

问题已经解决了，通过Text checkpoint就可以了