写几行脚本,检测网页上是否存在某个链接,老是检测不出,明明这个链接是存在的。
Dim links,nulinks,linkcheck,i,aa
Set linkobj=Description.Create()
linkobj("micclass").value="link"
set links=Browser("51Testing软件测试论坛 软件测试 |").Page("[QTP精华区] - [QuickTest").ChildObjects(linkobj)
nulinks=links.count
aa="QTP用户指南(中文版6.80M)"
For i=0 to nulinks-1
linkcheck=Trim(Browser("51Testing软件测试论坛 软件测试 |").Page("[QTP精华区] - [QuickTest").link("micclass:=link","index:="&i).GetROProperty("innertext"))
'print linkcheck
If linkcheck=aa Then
reporter.ReportEvent micPass,"检查","pass"
else
reporter.ReportEvent micFail,"检查","fail"
End If
Next
原先以为检测的有问题,后来加了个打印(标颜色的那句),把web上存在的link都打印出来,确实存在我要检测的连接,但是报告都是显示fail,空格什么都检查过了,为什么啊!!!!!作者: joykao 时间: 2012-9-3 09:17
这个循环每一次都会去验证下,那个页面肯定不止那一个link哇,有一个不匹配的话result就会使整体结果fail 的哇。。。。你可以查看那个result,如果你验证的Link存在,那么总有一个是pass的,
'打开到浏览器到右面的链接地址:
'http://bbs.51testing.com/forumdisplay.php?fid=69&filter=&orderby=dateline
Dim links,nulinks,linkcheck,i,aa
Set linkobj=Description.Create()
linkobj("micClass").value ="Link"
set links=Browser("micClass:=Browser").Page("micClass:=Page").ChildObjects(linkobj)
nulinks=links.count
aa="VBScript 脚本语言教程(51Testing官方教材)"
For i=0 to nulinks-1
linkcheck=Trim(Browser("micClass:=Browser").Page("micClass:=Page").Link("micClass:=Link","index:="&i).GetROProperty("innertext"))
print linkcheck
If linkcheck= aa Then
reporter.ReportEvent micPass,"This link exist","pass"
else
reporter.ReportEvent micFail,"NOT THIS LINK","fail"
End If
Next
Dim links,nulinks,linkcheck,i,aa
Set linkobj=Description.Create()
linkobj("micClass").value ="Link"
set links=Browser("micClass:=Browser").Page("micClass:=Page").ChildObjects(linkobj)
nulinks=links.count
print nulinks
''aa="VBScript 脚本语言教程(51Testing官方教材)"
For i=0 to nulinks-1
linkcheck=Trim(Browser("micClass:=Browser").Page("micClass:=Page").Link("micClass:=Link","index:="&i).GetROProperty("innertext"))
print linkcheck
' If linkcheck= aa Then
' reporter.ReportEvent micPass,"This link exist","pass"
' else
' reporter.ReportEvent micFail,"NOT THIS LINK","fail"
' End If
Next作者: zxmxjl 时间: 2012-9-3 14:52 回复 6#joykao