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

ChildObjects问题：请高手看看

本帖最后由 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

学习了
页: [1]
查看完整版本: ChildObjects问题：请高手看看