通过QTP循环登录过程脚本

前不久,我的一个同学问个我这样一个问题,在QTP中如何循环一个脚本过程,这个我没有尝试过,但是我知道如何操作,今天把操作的结果记录下来.以便以后忘记的时候参考,也希望对路过的人们有所帮助,很多人都知道要循环某个过程,只需要把这个过程放在一个循环当中去就OK.不过是For,while,loop等.都是可以互换的.当然我习惯用FOR和while,值得注意的是在QTP当中是以VBS作为基础,来设计符合自己所需的算法.闲话不多说了,,看看把一个登录过程循环10次,这是我自己用Java语言写一个登录页面,主要是验证一下QTP对JSP的操作是否灵活,结果还错:

以下是录制并修改后的脚本,注意红色的字体的地方.

For i=0 to 10
SystemUtil.Run "iexplore.exe","http://localhost:8080/webstruts2","open"
Browser("My JSP 'login.jsp' starting").Page("My JSP 'login.jsp' starting").WebEdit("username").Set "loney"
Browser("My JSP 'login.jsp' starting").Page("My JSP 'login.jsp' starting").WebEdit("password").Set "loney"
Browser("My JSP 'login.jsp' starting").Page("My JSP 'login.jsp' starting").WebButton("提 交").Click
Browser("My JSP 'login.jsp' starting").Page("My JSP 'index.jsp' starting").WebEdit("test").Set "tst"
Browser("My JSP 'login.jsp' starting").Page("My JSP 'index.jsp' starting").WebButton("test.button.submit").Click
Browser("My JSP 'login.jsp' starting").Close
Next

或者是用While循环:

Dim Cont
Cont = 0
While Cont<3
SystemUtil.Run "iexplore.exe","http://localhost:8080/webstruts2","open"
wait 3     '这地方值得注意的是,如果没有这句的话,有可能出现网络超时,错误提示
Browser("My JSP 'login.jsp' starting").Page("My JSP 'login.jsp' starting").WebEdit("username").Set "loney"
Browser("My JSP 'login.jsp' starting").Page("My JSP 'login.jsp' starting").WebEdit("password").Set "loney"
Browser("My JSP 'login.jsp' starting").Page("My JSP 'login.jsp' starting").WebButton("提 交").Click
Browser("My JSP 'login.jsp' starting").Page("My JSP 'index.jsp' starting").WebEdit("test").Set "tst"
Browser("My JSP 'login.jsp' starting").Page("My JSP 'index.jsp' starting").WebButton("test.button.submit").Click
Browser("My JSP 'login.jsp' starting").Close
Cont = Cont + 1
Wend

执行结束后会产生一个测试结果报告如下图:

原文转自：http://www.ltesting.net