ChildObjects问题：请高手看看

tianya6607

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

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

AntonioNikki

学习了

tianya6607

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

joykao

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

tianya6607

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

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

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