获取网页中的所有LINK对象

xueqinzhaoqing

我想获取页面的所有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.请教各位是什么原因呢？

zhangj8826

guanzhu

suifengpiao

运行到这句就报错了，Set List=Browser("百度一下，你就知道").Page("百度一下，你就知道").ChildObjects(Desc)

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

winfood

原帖由 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事件都是无效的；

rivermen

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之后，录制一个“后退”的操作，这样可能就能跑下去了

yaojichang

忘了谢谢了

yaojichang

有用

nbawz

我这有一段代码，看看你能不能参考一下！
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


希望对你有帮助！

ling_2005

用qtp9.0对象管理，直接就可以把页面所有的对象都能获取，如果你只想要link，那你就只check link 选项 就可以得到面所有link 对象了