怎么样检查LINK或者按妞是否可用

wshyzhywx

现在有一个用例：要检查界面上所有的按妞和LINK是否可用，那怎么样检查LINK或者按妞是否可用呢？  我现在是通过界面元素的变化来判断的 但是问题来了 由于LINK和按妞比较多而且变化后的界面元素的的属性的变化也不是很规律  导致脚本非常庞大，我想问一下有没有什么属性或者方法可以直接检查lINK或者按妞是否处于可用状态（也就是可点击的状态）？
  PS:这的按钮是：winobject

JerryYe

检查link可以试试用专门的链接测试工具进行。

marco

Qtp 有链接检查的

caodongjian

Qtp 有链接检查的 可以选择以的..

jifeng

Dim a,b,i_LinkCount
set a= Browser("百度一下，你就知道")
set b= Browser("百度一下，你就知道").Page("百度一下，你就知道")

'Browser("百度一下，你就知道").Page("百度一下，你就知道").Link("贴 吧").Click

call CheckLinks(a,b)

Function CheckLinks (BrowserObject,BrowserPage)
CheckLinks=TRUE
Dim s_URL,i_CreationTime
Dim s_LinkOuterText,s_LinkInnerText,s_Linkhref
s_URL=Browser("百度一下，你就知道").Page("百度一下，你就知道").GetROProperty("url")
msgbox s_URL
i_CreationTime=1

i_LinkCount=Browser("百度一下，你就知道").Page("百度一下，你就知道").object.links.length - 1
msgbox i_LinkCount
Dim i_Link
For i_Link=0 to i_LinkCount
       
        If Trim(Browser("百度一下，你就知道").Page("百度一下，你就知道").object.links(i_Link).target)="" Then
        Browser("百度一下，你就知道").Page("百度一下，你就知道").object.links(i_Link).target="_blank"  
        ' Set the link to open i a new window so that we dont have any change in current window
        End If
       
        BrowserPage.object.links(i_Link).click
       
        On error resume next
        Browser("CreationTime:=" & i_CreationTime).sync
        Browser("CreationTime:=" & i_CreationTime).Page("micClass:=Page").sync
        On error goto 0
        Dim s_LinkDetails
        IHTML = Browser("CreationTime:=" & i_CreationTime).Page("micClass:=Page").object.Body.innerHTML
        'Check if page was not able to be displayed
        If (InStr(IHTML,"HTTP 404") <> 0) Or (InStr(IHTML,"cannot be displayed") <> 0) Then
        s_LinkDetails="Link Broken" + vbcrlf + "Link Details:" +vbcrlf
        s_LinkDetails=s_LinkDetails+"OuterText: "+ s_LinkOuterText + vbcrlf
        s_LinkDetails=s_LinkDetails+"InnerText: "+ s_LinkInnerText + vbcrlf
        s_LinkDetails=s_LinkDetails+ "href: " + s_Linkhref+ vbcrlf
        s_LinkDetails=s_LinkDetails+ "Links Open in New Browse: " & bNewBrowser & vbcrlf
        Reporter.ReportEvent micWarning,"Check Link(" & i_Link & ") -> " & s_LinkOuterText ,s_LinkDetails
        CheckLinks=FALSE
        Else
        s_LinkDetails="Link Working" + vbcrlf + "Link Details:" +vbcrlf
        s_LinkDetails=s_LinkDetails+"OuterText: "+ s_LinkOuterText + vbcrlf
        s_LinkDetails=s_LinkDetails+"InnerText: "+ s_LinkInnerText+ vbcrlf
        s_LinkDetails=s_LinkDetails+ "href: " + s_Linkhref+ vbcrlf
        s_LinkDetails=s_LinkDetails+ "Links Open in New Browse: " & bNewBrowser & vbcrlf
        Reporter.ReportEvent micPass,"Check Link(" & i_Link & ") -> " & s_LinkOuterText ,s_LinkDetails
        End If
        Browser("CreationTime:=1").close
        ' Close the link open.
Next
End Function

jifeng

也是收集的，给你参考吧

skyphoenix

enable and disable???