51Testing软件测试论坛

标题: 这段是精通QTP里面的，但我运行的时候出现错误了，请帮忙看下 [打印本页]

作者: louqqson008 时间: 2012-8-27 15:24
标题: 这段是精通QTP里面的，但我运行的时候出现错误了，请帮忙看下
'打开网站页面
SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE",_
"http://www.baidu.com/gaoji/advanced.html"
'描述对象 -- WebEdit
Set all_oEdit = Description.Create
all_oEdit("micClass").value = "WebEdit"
'为WebEdit找父对象和祖父对象，并将所有对象“包装”在一起
Set all_oEdits = Browser("micClass:=Browser").Page("micClass:=Page")._
ChildObjects(all_oEdit) 运行到这句错误了
'遍历页面中的WebEdit对象，找到一个就输入一串指定的字符串
For i = 0 to all_oEdits.count - 1
Set oEdit = all_oEdits.item(i)
oEdit.Set "QTP自动化测试技术领航"
Next
'最后记得释放所有设置的对象
Set oEdit = Nothing
Set all_oEdits = Nothing
Set all_oEdit = Nothing
感觉没错啊，但放到QTP里面就提示错误了

作者: xjwldlover 时间: 2012-8-27 15:57
本帖最后由 xjwldlover 于 2012-8-27 16:10 编辑

Set oEdit = all_oEdits.item(i)
你确定这里应该有个.item,而不是“all_oEdits(i) ”？

作者: louqqson008 时间: 2012-8-27 16:06
回复 2# xjwldlover

缺少了item 连运行都不行了，直接提示 oEdit = all_oEdits.(i) 缺少标识符

作者: xjwldlover 时间: 2012-8-27 16:10
点也去掉，我发错了~

作者: louqqson008 时间: 2012-8-27 16:19
Set all_oEdits = Browser("micClass:=Browser").Page("micClass:=Page")._
ChildObjects(all_oEdit)
运行后提示错误在这句上

作者: xjwldlover 时间: 2012-8-27 16:22
换行的写法是 " "+"_",你在下划线前面少了个空格~

作者: louqqson008 时间: 2012-8-27 16:32
Set all_oEdits = Browser("micClass:=Browser").Page("micClass:=Page").ChildObjects(all_oEdit)

写成这样也一样提示错误

作者: xjwldlover 时间: 2012-8-27 16:40

'打开网站页面
SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE", _
"http://www.baidu.com/gaoji/advanced.html"
'描述对象 -- WebEdit
Set all_oEdit = Description.Create
all_oEdit("micClass").value = "WebEdit"
'为WebEdit找父对象和祖父对象，并将所有对象“包装”在一起
Set all_oEdits = Browser("micClass:=Browser").Page("micClass:=Page"). _
ChildObjects(all_oEdit)
'遍历页面中的WebEdit对象，找到一个就输入一串指定的字符串
For i = 0 to all_oEdits.count - 1
Set oEdit = all_oEdits.item(i)
oEdit.Set "QTP自动化测试技术领航"
Next
'最后记得释放所有设置的对象
Set oEdit = Nothing
Set all_oEdits = Nothing
Set all_oEdit = Nothing

复制代码

试试

作者: louqqson008 时间: 2012-8-27 16:59
回复 8# xjwldlover

我用的就是这段代码，就是我前面说的在那句出错了，你使用这段没出错吗

作者: xjwldlover 时间: 2012-8-27 17:12
①换行下划线前面加空格，或者你不换行试试
②ChildObjects(all_oEdit) '注释掉-运行到这句错误了

ps，Set oEdit = all_oEdits.item(i) 和 Set oEdit = all_oEdits(i)
效果一样

作者: louqqson008 时间: 2012-8-27 17:31
回复 10# xjwldlover

首先非常感谢
后面那句注释是因为我来提问才加上去的，并且用红色字显示
换行的话，在QTP中我都没用了，因为一行写的下

我记得以前用这段代码的时候是可以实现的，现在自己把这段运用到项目中时，不能实现了，
就回头把这段学习时用到的代码再运行一次，结果不行了。郁闷啊

作者: hsjzfling 时间: 2012-8-28 11:03
回复 1# louqqson008

直接复制粘贴1楼代码是可以正确运行的，出错可能跟环境配置、设置等相关。楼主需要提供错误截图，才能尝试定位问题

作者: ayuyua 时间: 2013-6-6 16:40
我找了一下，在赵老师的博客提示下终于找到原因了，应该是在“record and run setting”中设置成了其他网站了，只要改成“record and run test on any browser”就没问题了，小小的问题研究了一下午才弄明白，希望对其他和我一样的朋友们有用，少走点冤枉路！

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