51Testing软件测试论坛

标题: 获取网页中的所有LINK对象 [打印本页]

作者: xueqinzhaoqing 时间: 2007-8-13 14:41
标题: 获取网页中的所有LINK对象
我想获取页面的所有LINK对象,采用的如下代码：
Set Desc=description.create
Desc("micclass").value="Link"
Set List=Browser("百度一下，你就知道").Page("百度一下，你就知道").ChildObjects(Desc)
Num=List.count-1
For i=0 to Num
list(i).click
wait 3
Next
可是执行到i=1时，提示错误：General run error.请教各位是什么原因呢？

作者: ling_2005 时间: 2007-8-13 15:55
用qtp9.0对象管理，直接就可以把页面所有的对象都能获取，如果你只想要link，那你就只check link 选项就可以得到面所有link 对象了

作者: nbawz 时间: 2007-8-13 16:04
我这有一段代码，看看你能不能参考一下！
Dim objectCount, tags, element    'objectCount是统计页面上面带有删除字样的链接数量，tags暂时存储页面上全部的链接，element是取出tags中每一条数据
Set tags = Browser("name:=百度一下，你就知道").Page("title:=百度一下，你就知道").Object.Links '把该页面的所有链接储存在tags中
objectCount = 0
For Each element in tags
  If element.innerText= "贴吧" Then                   '查找每一个链接对象的innerText属性为"贴吧" 的
      objectCount = objectCount + 1                '统计其个数
end if
Next

希望对你有帮助！

作者: yaojichang 时间: 2007-8-13 16:24
标题: 回复 #1 xueqinzhaoqing 的帖子
有用

作者: yaojichang 时间: 2007-8-13 16:24
忘了谢谢了

作者: rivermen 时间: 2007-8-13 17:15
标题: 回复 #1 xueqinzhaoqing 的帖子
Set List=Browser("百度一下，你就知道").Page("百度一下，你就知道").ChildObjects(Desc)
Num=List.count-1
For i=0 to Num
list(i).click
wait 3
Next

i=0的时候，主页面上的link被点中了，主页面发生跳转
i=1的时候，当前已经不是原来的主页面了，当然找不到那个link了

或者你可以在 list(i).click之后，录制一个“后退”的操作，这样可能就能跑下去了

作者: winfood 时间: 2007-8-13 17:20

原帖由 xueqinzhaoqing 于 2007-8-13 14:41 发表
我想获取页面的所有LINK对象,采用的如下代码：
Set Desc=description.create
Desc("micclass").value="Link"
Set List=Browser("百度一下，你就知道").Page("百度一下，你就知道").ChildObjects(Desc)
Num= ...

这段代码里面有一个错误：
循环语句里面i=0时，第一个Link被Click。这时候页面应该已经跳转了吧？
循环语句执行到i=1时，已经不是刚才的页面了当然会出错了。

如果要统计个数，只要用楼上介绍的方法就可以了；
如果需要点击某个特定的Link，应该在Click那行语句上加入限制条件。否则页面跳转后，后面的对象集合以及Click事件都是无效的；

作者: suifengpiao 时间: 2007-8-14 10:36
运行到这句就报错了，Set List=Browser("百度一下，你就知道").Page("百度一下，你就知道").ChildObjects(Desc)

[ 本帖最后由 suifengpiao 于 2007-8-14 10:56 编辑 ]

作者: zhangj8826 时间: 2007-8-15 10:18
guanzhu

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