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可以获得属性。