例一:
以下語句指示 QuickTest 選中 Itinerary 網頁上的所有復選框：
Set MyDescrīption = Descrīption.Create()
MyDescrīption("html tag").Value = "INPUT"
MyDescrīption("type").Value = "checkbox"
Set Checkboxes =
Browser("Itinerary").Page("Itinerary").ChildObjects(MyDescrīption)
NoOfChildObjs = Checkboxes.Count
For Counter=0 to NoOfChildObjs-1
Checkboxes(Counter).Set "ON"
Next
例二:(來自51testing)
目標如下：
1.
[url=javascript:;][u][b]腳本[/b][/u][/url]
需要處理成功和失敗的用戶的登陸
2.
數據驅動
設計開發腳本如下：
第一步錄制腳本如下
Browser("智能變電巡檢儀系統 4.0").Page("智能變電巡檢儀系統
4.0").WebEdit("txtLoginName").Set "呂巍"
Browser("智能變電巡檢儀系統
4.0").Page("智能變電巡檢儀系統 4.0").WebButton("登 錄").set ""
Browser("智能變電巡檢儀系統
4.0").Page("Page").Syn
Browser("智能變電巡檢儀系統 4.0").Close
以上為錄制的正確的用戶名,下邊錄制錯誤的用戶名
Browser("智能變電巡檢儀系統
4.0").Page("智能變電巡檢儀系統 4.0").WebEdit("txtLoginName").Set "xx"
Browser("智能變電巡檢儀系統 4.0").Page("智能變電巡檢儀系統 4.0").WebButton("登 錄").set ""
出現錯誤提示“該用戶不存在”
第二步 增強腳本
現在需要設計的是一套腳本驅動所有的測試數據，這樣可以驅動所有的用例數據，qtp中提供了datatable。
但是有數據驅動也要做一個事情就是如何處理錯誤的用戶名和正確的用戶名，如何結合起來呢？
這里我把datatable看作存放測試用例的地方，里面放入測試數據，還放入測試的預期結果。這樣我的設計已經出現雛形了。
我把datatable設計為三列
username password
status
呂x
xxx xxxx
該用戶不存在
第三列放入最后執行的結果,我設計的是空為成功登陸,如果有信息就用實際運行的結果和這一列對比.好了萬事俱備只欠東風了
修改腳本如下：
Dim iStatus
Browser("智能變電巡檢儀系統 4.0").Page("智能變電巡檢儀系統
4.0").WebEdit("txtLoginName").Set DataTable("username",
dtLocalSheet)
Browser("智能變電巡檢儀系統 4.0").Page("智能變電巡檢儀系統 4.0").WebButton("登
錄").set DataTable("password", dtLocalSheet)
iStatus = DataTable("status",
dtLocalSheet)
If iStatus="" Then
Browser("智能變電巡檢儀系統 4.0").Close
End If
If iStatus="該用戶不存在"
Then
Reporter.ReportEvent micFail, "登陸", "登陸失敗."
End If
Browser("智能變電巡檢儀系統 4.0").Close
第三步，設置腳本運行過程
打開 tests-〉settings
設置RUN TAB頁面下 Datatable iterations中 Run On
all rows
這樣就完成了整個腳本的設計
[url=javascrīpt:;][u][b]工作[/b][/u][/url]
，以上通過一個簡單
[url=javascript:;][u][b]例子[/b][/u][/url]
吧腳本的設計和軟件的功能結合起來，達成腳本的設計效果。
文章來源于領測軟件測試網 http://www.kjueaiud.com/
