ChildObjects问题：请高手看看

tianya6607 · 发表于 2012-7-17 17:14:10

本帖最后由 tianya6607 于 2012-7-17 17:20 编辑

Dim ImageObj,allCheck
Set ImageObj = Description.Create
ImageObj("alt").value = "编辑"
ImageObj("html tag").Value = "IMG"

Set allCheck = Browser("Browser").Page("Page").Frame("frame_main").ChildObjects(ImageObj)
For i = 0 to allCheck.Count - 1 '共计循环8次
allCheck.item(i).Click
Browser("Browser").Page("Page").Frame("name:=window_.*").WebButton("name:=确认").Click
Browser("Browser").Dialog("Microsoft Internet Explorer").WinButton("确定").Click
Next

运行该脚本总是运行两次后在红色部分报错，报错如下：

tianya6607 · 发表于 2012-7-17 17:37:23

后来通过调试，将代码修改如下：

Dim ImageObj,allCheck
Set ImageObj = Description.Create
ImageObj("alt").value = "编辑"
ImageObj("html tag").Value = "IMG"

Set allCheck = Browser("Browser").Page("Page").Frame("frame_main").ChildObjects(ImageObj)
For i = 0 to allCheck.Count - 1
allCheck.item(i).Click
wait(1)
Browser("Browser").Page("Page").Frame("name:=window_.*").WebButton("name:=确认").Click
Next
Browser("Browser").Dialog("Microsoft Internet Explorer").WinButton("确定").Click

该脚本运行正常，请高手解释，谢谢！

joykao · 发表于 2012-7-17 20:26:08

难道是performance的原因？系统性能不怎么好吧

tianya6607 · 发表于 2012-7-19 13:21:53

通过群里高手指导，问题得以解决，问题原因：点击确定后，页面相当于被刷新，原有对象失效，需要Set allCheck = Browser("Browser").Page("Page").Frame("frame_main").ChildObjects(ImageObj)，重新获取对象

AntonioNikki · 发表于 2012-7-25 11:05:07

学习了

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

[原创] ChildObjects问题：请高手看看

本帖子中包含更多资源

相关帖子

站长推荐 /1