51Testing软件测试论坛

标题: 怎么样检查LINK或者按妞是否可用 [打印本页]

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

作者: JerryYe 时间: 2008-10-27 11:57
检查link可以试试用专门的链接测试工具进行。

作者: marco 时间: 2008-10-28 17:21
Qtp 有链接检查的

作者: caodongjian 时间: 2008-10-28 17:41
Qtp 有链接检查的可以选择以的..

作者: jifeng 时间: 2008-10-28 17:43
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 时间: 2008-10-28 17:44
也是收集的，给你参考吧

作者: skyphoenix 时间: 2008-10-28 22:33
enable and disable???

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)