录制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 '关闭文件
文章来源于领测软件测试网 https://www.ltesting.net/
