51Testing软件测试论坛

标题: QTP8.2 录制web如何设置循环 [打印本页]

作者: wyqwyq 时间: 2008-7-17 10:50
标题: QTP8.2 录制web如何设置循环
1) 【add-in Manager】中设置网址www.google.cn;
2) 专家视图中脚本如下：
For i = 1 to 5

Browser("Google").Page("Google").WebEdit("q").Set "奥运门票"
Browser("Google").Page("Google").WebEdit("q").Submit
Browser("Google").Page("奥运门票 - Google 搜索").Link("资讯").Click
Browser("Google").Page("奥运门票 - Google 资讯").Sync
Browser("Google").Close

Next
3）不能完成循环回放。

录制web脚本，如何设置循环？？
谢谢！

作者: zte_boy 时间: 2008-7-17 11:14
你这个连Browser都关闭了，当然不行
把打开浏览器的动作一并加入到循环中，运行设置设置成：record and run test on any open browser
For i = 1 to 5

SystemUtil.Run "iexplore.exe"

'创建对象
Set BrowDesc = Description.Create()
Set PageDesc = Description.Create()
Set CurPage = Browser(BrowDesc).Page(PageDesc)
CurPage.sync
Browser(BrowDesc).Navigate "www.google.com"
CurPage.sync

Browser("Google").Page("Google").WebEdit("q").Set "奥运门票"
Browser("Google").Page("Google").WebEdit("q").Submit
Browser("Google").Page("奥运门票 - Google 搜索").Link("资讯").Click
Browser("Google").Page("奥运门票 - Google 资讯").Sync
Browser("Google").Close

Next

[ 本帖最后由 zte_boy 于 2008-7-17 11:25 编辑 ]

作者: lingxin5013 时间: 2008-7-17 12:35
en

作者: wyqwyq 时间: 2008-7-17 13:14
标题: 回复 2# 的帖子
Thank you

作者: wangdongting 时间: 2008-7-17 15:12
学习下

作者: wangdongting 时间: 2008-7-17 15:34
版主问一下呐，我run后说报错了，在第9行

The "[ Browser ]" object's description matches more than one of the objects currently displayed in your application. Add additional properties to the object description in order to uniquely identify the object.
Line (9): "CurPage.sync".
为什么呐？

作者: lingxin5013 时间: 2008-7-17 16:07
For i = 1 to 5
SystemUtil.Run "iexplore.exe","该WEB的IE地址输入到这里"
Browser("Google").Page("Google").WebEdit("q").Set "奥运门票"
Browser("Google").Page("Google").WebEdit("q").Submit
Browser("Google").Page("奥运门票 - Google 搜索").Link("资讯").Click
Browser("Google").Page("奥运门票 - Google 资讯").Sync
Browser("Google").Close
Next
应该可行了兄弟

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