51Testing软件测试论坛

标题: ChildObjects问题：请高手看看 [打印本页]

作者: tianya6607 时间: 2012-7-17 17:14
标题: 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
后来通过调试，将代码修改如下：

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
难道是performance的原因？系统性能不怎么好吧

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

作者: AntonioNikki 时间: 2012-7-25 11:05
学习了

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