QuickTestProfessional 的循环
1 设置脚本间的间隔时间
Wait(2)，单位：秒
2 循环语句while
i=0
do while(i<10)
Window("Opera").Restore
Window("Opera").WinObject("OperaWindowClass").Click 446,232
Window("Opera").WinObject("OperaWindowClass").Click 461,278
i=i+1
loop
3 循环语句for
For i=1 to 3
<wbr><wbr><wbr><wbr><wbr><wbr>Window("Opera").Restore</wbr></wbr></wbr></wbr></wbr></wbr>
Window("Opera").WinObject("OperaWindowClass").Click 446,232
Window("Opera").WinObject("OperaWindowClass").Click 461,278
Next
4 判断语句
Do while(i<20)
'开始
<wbr></wbr>
Browser("移动站点").Page("移动站点").Frame("wap").Link("啤酒").Click
wait(2)
'啤酒
<wbr></wbr>
Browser("移动站点").Page("移动站点").Frame("wap_2").Link("商铺详情").Click
wait(2)
'详情
<wbr></wbr>
i=i+1
If i=5 Then
<wbr><wbr><wbr><wbr><wbr><wbr>exit do</wbr></wbr></wbr></wbr></wbr></wbr>
End If
Loop
5 With语句
Do while(i<20)
With Browser("移动站点")
.Page("移动站点").Frame("wap").Link("生活家居").Click
.Page("移动站点").Frame("wap_5").Link("出租(火爆招租中)").Click
.Page("移动站点").Sync
With .Page("移动站点")
.Frame("wap_6").Image("image").Check CheckPoint("image")'检查点
.Frame("wap_6").Link("返回站点首页").Click
.Sync
.Frame("wap").Check CheckPoint("生活家居")'检查点
End with
End with
i=i+1
If i=3 Then
<wbr><wbr><wbr>i=21</wbr></wbr></wbr>
End If
Loop
<wbr></wbr>
6 检查点
Browser("移动站点").Page("移动站点").Frame("wap").Link("生活家居").Click
Browser("移动站点").Page("移动站点").Frame("wap_5").Link("出租(火爆招租中)").Click
Browser("移动站点").Page("移动站点").Sync
Browser("移动站点").Page("移动站点").Frame("wap_6").Image("image").Check CheckPoint("image")'检查点
Browser("移动站点").Page("移动站点").Frame("wap_6").Link("返回站点首页").Click
Browser("移动站点").Page("移动站点").Sync
Browser("移动站点").Page("移动站点").Frame("wap").Check CheckPoint("生活家居")'检查点
7 引用函数
Function<wbr>hjq(i)</wbr>
<wbr><wbr>msgbox("hjq")</wbr></wbr>
End Function
<wbr></wbr>
Do while(i<20)
'开始
Browser("移动站点").Page("移动站点").Frame("wap").Link("啤酒").Click
wait(2)
Browser("移动站点").Page("移动站点").Frame("wap_2").Link("商铺详情").Click
'详情
i=i+1
If i=3 Then
<wbr><wbr><wbr>i=21</wbr></wbr></wbr>
End If
Call hjq(i)
Loop
8 引用action
录制action1，在step->action properties中设置该action为reuseable action
录制action2，在inser->call to exiting action，选择action1
OK
9 参数化
在keyword view中设置对象的value为参数，并设置值
With Browser("移动站点_2").Page("移动站点")
<wbr><wbr><wbr><wbr><wbr><wbr>With .Frame("wap_2")</wbr></wbr></wbr></wbr></wbr></wbr>
<wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr>.WebEdit("key").Set "1"</wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr>
<wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr>.WebButton("搜").Click</wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr>
<wbr><wbr><wbr><wbr><wbr><wbr>End With</wbr></wbr></wbr></wbr></wbr></wbr>
<wbr><wbr><wbr><wbr><wbr><wbr>.Frame("wap_3").Link("重新搜索").Click</wbr></wbr></wbr></wbr></wbr></wbr>
<wbr><wbr><wbr><wbr><wbr><wbr>With .Frame("wap")</wbr></wbr></wbr></wbr></wbr></wbr>
<wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr>.WebEdit("key").Set DataTable("p_Text", dtGlobalSheet)</wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr>
<wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr>.WebButton("搜").Click</wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr>
<wbr><wbr><wbr><wbr><wbr><wbr>End With</wbr></wbr></wbr></wbr></wbr></wbr>
<wbr><wbr><wbr><wbr><wbr><wbr>.Sync</wbr></wbr></wbr></wbr></wbr></wbr>
End With
10 基本函数
QTP的基本使用函数：
1, 获取对话框相应的文字: GetVisible Text
2, 查找相应的字符串: instr (1,查找目标字符串,所查找的字符串)
3, 随机数的获取: Randomnumber.Value() 或cstr(int(Rnd*10)+1)
4, 等待函数: Wait(秒数)
5, 获取数组下标: UBound (数组名)
6, 拆分数组: Split(MyString, ",", -1, 1)
7, 可执行步骤: OptionalStep
8, 报告信息: Reporter.ReportEvent 3, "Save Step", "Out of cycle!"
9, 判断对话框是否存在: .exist
10，事件过滤函数：Reporter.Filter=过滤条件(0，1，2，3)，0代表显示所有的error和warning,1，显示error,2,显示waining,3,任何error和warning都不显示。
11，循环函数：do … loop until，for…to… then next,while.
12，数据表格：DataTable,向外赋值，Dim aa = DataTable.value(“CellingName”,”ActionName”).
13，获得对象属性的三种方法GetTOProperty，GetTOProperties,GetROProperty,GetTOProperty获得程序中对象当前的属性，GetTOProperties获得当前属性所有集合，GetROProperty获得的是录制时对象所获得的属性。
14，检查点方法check和输出指定属性值output。
15，函数Description,可以获得某页面同标签的属性进行操作。
16，函数nagative可以随便跳转页面到指定的URL。
17，函数Object可以获得当前页面同属性的控件。
18，函数Focus可以让控件获得焦点，函数Blur则是失去焦点，click单击，dbclick双击。
19，函数setAttribute可以设置控件属性，getAttribute可以获得属性。