通過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.kjueaiud.com/

TAG: qtp QTP 登錄 腳本