錄制action1，在step->action properties中設置該action為reuseable action
錄制action2，在inser->call to exiting action，選擇action1
OK
9 參數化在keyword view中設置對象的value為參數，并設置值
With Browser("XX項目_2").Page("XX項目")
With .Frame("wap_2")
.WebEdit("key").Set "1"
.WebButton("搜").Click
End With
.Frame("wap_3").Link("重新搜索").Click
With .Frame("wap")
.WebEdit("key").Set DataTable("p_Text", dtGlobalSheet)
.WebButton("搜").Click
End With
.Sync
End With
10 Vbs隨機讀取一行文本內容'隨機讀取文件中的一行
randomize
set fso=createobject("scrīpting.filesystemobject") '創建文件系統對象
set a=createobject("scrīpting.dictionary") '類似于二維數組
set file=fso.opentextfile("D:\hjq.txt") '打開文件
do while file.atendofstream<>true
m=m+1 'm記錄文件中文本行數
a.add m,file.readline 'file.readline讀取某行記錄
loop
file.close '關閉文件
h=int(rnd*m)
msgbox "第" & h & "行: " & a(h) ,4096,"隨機內容"
msgbox "第1行: " & a(1) ,4096,"內容"
msgbox "第2行: " & a(2) ,4096,"內容"
msgbox "第3行: " & a(3) ,4096,"內容"
11 二維數組的使用set a=createobject("scrīpting.dictionary") '類似于二維數組
a.add 0,"返回XX首頁"
a.add 1,"返回XX首頁"
a.add 2,"返回XX首頁"
a.add 3,"返回XX首頁"
For i=0 to 3
With Browser("XX項目").Page("XX項目")
With .Frame("wap")
.WebEdit("key").Set "1"
.WebButton("搜").Click
End With
.Frame("wap_2").Link(a(i)).Click
.Sync
End With
Next
12 從文件讀取文本，并賦予參數set fso=createobject("scrīpting.filesystemobject") '創建文件系統對象
set a=createobject("scrīpting.dictionary") '類似于二維數組
set file=fso.opentextfile("D:\hjq.txt") '打開文件
wait(2)
do while file.atendofstream<>true
With Browser("XX項目").Page("XX項目")
With .Frame("wap")
.WebEdit("key").Set file.readline
.WebButton("搜").Click
End With
.Frame("wap_2").Link("返回XX首頁").Click
.Sync
End With
loop
file.close '關閉文件
文章來源于領測軟件測試網 http://www.kjueaiud.com/
