51Testing软件测试论坛

标题: QTP 循环打开IE [打印本页]

作者: hellen_ma 时间: 2008-5-12 15:09
标题: QTP 循环打开IE
各位，想请教一下
Dim Iterator
For Iterator = 1 To 10 Step 1

Browser("IT人才的理理想与现实调研问卷").Page("IT人才的理理想与现实调研问卷").WebList("A1").Select "上海"
Browser("IT人才的理理想与现实调研问卷").Page("IT人才的理理想与现实调研问卷").WebList("A3").Select "1930"
Browser("IT人才的理理想与现实调研问卷").Page("IT人才的理理想与现实调研问卷").WebList("A4").Select "无"
Browser("IT人才的理理想与现实调研问卷").Page("IT人才的理理想与现实调研问卷").WebList("A5").Select "50人以下"
Browser("IT人才的理理想与现实调研问卷").Page("IT人才的理理想与现实调研问卷").WebList("A6").Select "1年以下"
Browser("IT人才的理理想与现实调研问卷").Page("IT人才的理理想与现实调研问卷").WebList("A7").Select "管理类"
Browser("IT人才的理理想与现实调研问卷").Page("IT人才的理理想与现实调研问卷").WebList("B1").Select "半小时以内"
Browser("IT人才的理理想与现实调研问卷").Page("IT人才的理理想与现实调研问卷").WebList("B2A").Select "步行"
Browser("IT人才的理理想与现实调研问卷").Page("IT人才的理理想与现实调研问卷").WebList("B3").Select "2000元以下"
Browser("IT人才的理理想与现实调研问卷").Page("IT人才的理理想与现实调研问卷").WebList("B4").Select "很大"
Browser("IT人才的理理想与现实调研问卷").Page("IT人才的理理想与现实调研问卷").WebList("B5").Select "没有跳过槽"
Browser("IT人才的理理想与现实调研问卷").Page("IT人才的理理想与现实调研问卷").WebRadioGroup("B7").Select "1"
Browser("IT人才的理理想与现实调研问卷").Page("IT人才的理理想与现实调研问卷").WebList("B8").Select "很认同"
Browser("IT人才的理理想与现实调研问卷").Page("IT人才的理理想与现实调研问卷").WebList("B9").Select "很融洽"
Browser("IT人才的理理想与现实调研问卷").Page("IT人才的理理想与现实调研问卷").WebList("B10").Select "专制型"
Browser("IT人才的理理想与现实调研问卷").Page("IT人才的理理想与现实调研问卷").WebList("B11").Select "很融洽"
Browser("IT人才的理理想与现实调研问卷").Page("IT人才的理理想与现实调研问卷").WebList("B12").Select "没有"
Browser("IT人才的理理想与现实调研问卷").Page("IT人才的理理想与现实调研问卷").WebList("B13").Select "不加班"
Browser("IT人才的理理想与现实调研问卷").Page("IT人才的理理想与现实调研问卷").WebCheckBox("B14").Set "ON"
Browser("IT人才的理理想与现实调研问卷").Page("IT人才的理理想与现实调研问卷").WebRadioGroup("B15").Select "1"
Browser("IT人才的理理想与现实调研问卷").Page("IT人才的理理想与现实调研问卷").WebCheckBox("B16").Set "ON"
Browser("IT人才的理理想与现实调研问卷").Page("IT人才的理理想与现实调研问卷").WebList("B17").Select "会快速发展"
Browser("IT人才的理理想与现实调研问卷").Page("IT人才的理理想与现实调研问卷").WebList("C1").Select "自购房"
Browser("IT人才的理理想与现实调研问卷").Page("IT人才的理理想与现实调研问卷").WebList("C2").Select "已经购买"
Browser("IT人才的理理想与现实调研问卷").Page("IT人才的理理想与现实调研问卷").WebList("C3").Select "60平米以下"
Browser("IT人才的理理想与现实调研问卷").Page("IT人才的理理想与现实调研问卷").WebList("C4").Select "已经购买"
Browser("IT人才的理理想与现实调研问卷").Page("IT人才的理理想与现实调研问卷").WebList("C5").Select "5万以内"
Browser("IT人才的理理想与现实调研问卷").Page("IT人才的理理想与现实调研问卷").WebCheckBox("C6").Set "ON"
Browser("IT人才的理理想与现实调研问卷").Page("IT人才的理理想与现实调研问卷").WebList("D1").Select "单身,尚没有恋爱对象"
Browser("IT人才的理理想与现实调研问卷").Page("IT人才的理理想与现实调研问卷").WebRadioGroup("D2").Select "1"
Browser("IT人才的理理想与现实调研问卷").Page("IT人才的理理想与现实调研问卷").WebCheckBox("D3").Set "ON"
Browser("IT人才的理理想与现实调研问卷").Page("IT人才的理理想与现实调研问卷").WebCheckBox("D4").Set "ON"
Browser("IT人才的理理想与现实调研问卷").Page("IT人才的理理想与现实调研问卷").WebList("D5").Select "很多"
Browser("IT人才的理理想与现实调研问卷").Page("IT人才的理理想与现实调研问卷").WebButton("提交").Click
Browser("104人力银行，不止找工作，为您找方向").Page("104人力银行，不止找工作，为您找方向").Sync
Browser("104人力银行，不止找工作，为您找方向").Close
Browser("IT人才的理理想与现实调研问卷").Page("IT人才的理理想与现实调研问卷").Sync
Browser("IT人才的理理想与现实调研问卷").Close

Next
以上这段代码，只能在第一次循环的时候运行是正常的。
到了第二次的时候就错了。因为无法再次打开IE
请教各位该如何修改
谢谢

作者: bluewaves 时间: 2008-5-12 15:33
必须在循环体里增加一句打开对应网页的浏览器语句

作者: joan89 时间: 2008-5-12 15:40
标题: 回复 1# 的帖子
请问一下,怎能么加入循环体语句.

作者: huangdxx 时间: 2008-5-12 15:45
在循环里加一句，自动打开IE
SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE","对应测试网址"

作者: joan89 时间: 2008-5-12 16:01
标题: 回复 1# 的帖子
那在那里啊,能不能, 按上面的例了,写一下啊

作者: zte_boy 时间: 2008-5-12 16:08
不明白LZ的需求，为什么要循环10次，呵呵

作者: xiaonan 时间: 2008-5-12 16:13
录制的时候不要选择设置好的web页面开始录制，就会把打开浏览器这个步骤也录制下来了．　楼上的，你可以自己去试一下，大家都讲到这份上了，你怎么还在要求别人写一下，都写好了，你自己拿来试一下，就没意思了

作者: gexiangping 时间: 2008-5-13 18:00
加一条语句就可以了呀
systemutil.run

作者: benny0823 时间: 2008-5-14 15:59
做好初始化就可以避免了嘛
判断窗口是否存在,不存在则调用
systemutil.run"iexplore.exe""http://地址"
打开窗口
run setting 里不要再设置打开网页,不然会打开2个的

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