大家帮看看代码，有点小问题！

nbawz · 发表于 2007-9-13 10:13:02

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 编辑 ]

hsjzfling · 发表于 2007-9-13 15:46:59

试试看这段代码吧
Set oDesc = Description.Create()
oDesc("micclass").Value = "WebButton"
Set WebButtonCollection = Browser("name:=百度一下，你就知道").Page("title:=百度一下，你就知道").ChildObjects(oDesc)
msgbox WebButtonCollection.Count

nbawz · 发表于 2007-9-13 14:42:53

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

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

hsjzfling · 发表于 2007-9-13 14:29:39

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

nbawz · 发表于 2007-9-13 14:04:34

就是这个提示，是不是不支持WebButton呀？查找Link就好使！

walker1020 · 发表于 2007-9-13 13:53:56

你运行代码时遇到了什么问题？把你的问题说出来呀，否则怎么帮你？

nbawz · 发表于 2007-9-13 13:03:59

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

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

hsjzfling · 发表于 2007-9-13 12:33:36

请教楼主Set tags = Browser("name:=百度一下，你就知道").Page("title:=百度一下，你就知道").Object.WebBurrons
中的"WebBurrons"是什么东东。。。Plz check~

nbawz · 发表于 2007-9-13 11:38:20

up！！！

		自动登录	找回密码
密码			(注-册)加入51Testing

[原创] 大家帮看看代码，有点小问题！

相关帖子

本帖子中包含更多资源

站长推荐 /1