如何验证超联接名称和打开页面的标题是否一致

tianye258

测试网站：http://www.suzhou.gov.cn   
测试需求：
测试“政务新闻”栏目中的链接有效，验证打开页面的正确性，即打开页面中文章标题与链接相符。注：政务新闻会实时更新，要保证脚本能通用。
1．        录制脚本：点击一条政务新闻，打开新闻页面，验证新闻标题。
2．        实现“政务新闻”栏目中所有链接的验证。
3．        将已完成的脚本设成可重用Action，将对象仓库设成共享对象仓库，新建一个Test，调用该脚本。

脚本（修改后的），运行后提示第5行有问题。。
1，Dim a,b
2，Browser("中国苏州").Page("中国苏州").Link("政协苏州市第十二届委员会主席、副主...").Click
3，a=Browser("中国苏州").Page("中国苏州").Link("政协苏州市第十二届委员会主席、副主...").GetROProperty("innertext")
4，Browser("政协苏州市第十二届委员会主席、副主席、秘书长简历").Page("政协苏州市第十二届委员会主席、副主席、秘书长简历").Sync
5，b=Browser("政协苏州市第十二届委员会主席、副主席、秘书长简历").Page("政协苏州市第十二届委员会主席、副主席、秘书长简历").webtable("政协苏州市第十二届委员会主席、副主席、秘书长简历").webelement("政协苏州市第十二届委员会主席、副主席、秘书长简历").GetROProperty("innertext")
6，If instr(a,b,1) Then
7，reporter.ReportEvent pass,"判断正确性","正确"
8，else
9，reporter.ReportEvent erro,"判断正确性","错误"
10，End If
11，Browser("政协苏州市第十二届委员会主席、副主席、秘书长简历").Close
12，Browser("中国苏州").Page("中国苏州").Sync
13，Browser("中国苏州").Close

[ 本帖最后由 walker1020 于 2008-1-15 13:56 编辑 ]

walker1020

第5行有问题，到底有什么问题？

walker1020

楼主，你的第7行和 第9行对 reporter.ReportEvent  的使用有错误。关于它的使用方法，请参考 QTP 的帮助

tianye258

我也感觉应该没问题的。可是跑到第5行就报错走不下去了。
7，9错了哦，呵呵，这个到 没有在意，哈哈哪个不是重点拉。谢谢你哦

eden_guo

7,9有什么问题?你用的是 qtp 什么版本....
你的 pass ...我的9.2 是 micPass

[ 本帖最后由 eden_guo 于 2008-1-16 11:22 编辑 ]

tianye258

我用的是V8.2的。

tianye258

由于涉及到通用性的问题，我的想法就是能不能先将链接的那一块用ChildObjects("link")以表格的形式，识别出所有的 “link”。
不过这个只是个想法，具体怎么操作还要请教各位大大