wyqwyq 2008-7-17 10:50
QTP8.2 录制web如何设置循环
1) 【add-in Manager】中 设置网址[url]www.google.cn[/url];
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
[[i] 本帖最后由 zte_boy 于 2008-7-17 11:25 编辑 [/i]]
lingxin5013 2008-7-17 12:35
en
wyqwyq 2008-7-17 13:14
回复 2# 的帖子
Thank you:victory:
wangdongting 2008-7-17 15:12
学习下:D
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
应该可行了 兄弟