51Testing软件测试论坛

标题: 大家帮看看代码，有点小问题！ [打印本页]

作者: nbawz 时间: 2007-9-13 10:13
标题: 大家帮看看代码，有点小问题！
Dim objectCount, tags, element    '
Set tags = Browser("name:=百度一下，你就知道").Page("title:=百度一下，你就知道").Object.WebButtons
objectCount = 0
For Each element in tags
  If element.name= "百度一下" then
      objectCount = objectCount + 1
End if
Next
msgbox objectCount

我想统计页面中某一类按钮的数量！

[ 本帖最后由 nbawz 于 2007-9-13 12:58 编辑 ]

作者: nbawz 时间: 2007-9-13 11:38
up！！！

作者: hsjzfling 时间: 2007-9-13 12:33
请教楼主Set tags = Browser("name:=百度一下，你就知道").Page("title:=百度一下，你就知道").Object.WebBurrons
中的"WebBurrons"是什么东东。。。Plz check~

作者: nbawz 时间: 2007-9-13 13:03

原帖由 hsjzfling 于 2007-9-13 12:33 发表
请教楼主Set tags = Browser("name:=百度一下，你就知道").Page("title:=百度一下，你就知道").Object.WebBurrons
中的"WebBurrons"是什么东东。。。Plz check~

sdlkfj8 是我太不小心了！！！发帖子的时候抄错了！！！我已经改正了！

作者: walker1020 时间: 2007-9-13 13:53
你运行代码时遇到了什么问题？把你的问题说出来呀，否则怎么帮你？

作者: nbawz 时间: 2007-9-13 14:04
[attach]32790[/attach]
就是这个提示，是不是不支持WebButton呀？查找Link就好使！

作者: hsjzfling 时间: 2007-9-13 14:29
page().object中是没有WebButton这个东西的,Links是有的,当然会报错...
用yabest的话来说就是:
LZ进了家水果店...
LZ:我要苹果
QTP:给你苹果
LZ:我还要猪肉
QTP:不供应猪肉...
LZ:为什么不卖猪肉呢...

作者: nbawz 时间: 2007-9-13 14:42

原帖由 hsjzfling 于 2007-9-13 14:29 发表
page().object中是没有WebButton这个东西的,Links是有的,当然会报错...
用yabest的话来说就是:
LZ进了家水果店...
LZ:我要苹果
QTP:给你苹果
LZ:我还要猪肉
QTP:不供应猪肉...
LZ:为什么不卖猪肉呢...

那假如我想查找页面中的某类按钮的数量，应该怎么办？？？

作者: hsjzfling 时间: 2007-9-13 15:46
试试看这段代码吧
Set oDesc = Description.Create()
oDesc("micclass").Value = "WebButton"
Set WebButtonCollection = Browser("name:=百度一下，你就知道").Page("title:=百度一下，你就知道").ChildObjects(oDesc)
msgbox WebButtonCollection.Count

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