QTP常用脚本

1.代码注释

' 要注释的语句

2.设置时间等待

wait(3) 单位为秒

3.循环语句for
For i=1 to 3
       Window("Opera").Restore
Window("Opera").WinObject("OperaWindowClass").Click 446,232
Window("Opera").WinObject("OperaWindowClass").Click 461,278
Next
4 .判断语句
Do while(i<20)
'开始
 
Browser("移动站点").Page("移动站点").Frame("wap").Link("啤酒").Click
wait(2)
'啤酒
 
Browser("移动站点").Page("移动站点").Frame("wap_2").Link("商铺详情").Click
wait(2)
'详情
 
i=i+1
If i=5 Then
       exit do
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
    i=21
End If
Loop
 
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  hjq(i)
   msgbox("hjq")
End Function
 
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
    i=21
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("移动站点")
       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.循环语句for
For i=1 to 3
       Window("Opera").Restore
Window("Opera").WinObject("OperaWindowClass").Click 446,232
Window("Opera").WinObject("OperaWindowClass").Click 461,278
Next
11 基本函数
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可以获得属性。