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
Window("Opera").WinObject("OperaWindowClass").Click 446,232
Window("Opera").WinObject("OperaWindowClass").Click 461,278
Next
4 判断语句
Do while(i<20)
Browser("XX项目").Page("XX项目").Frame("wap").Link("啤酒").Click
wait(2)
Browser("XX项目").Page("XX项目").Frame("wap_2").Link("商铺详情").Click
wait(2)
i=i+1
If i=5 Then
End If
Loop
5 With语句
Do while(i<20)
With Browser("XX项目")
.Page("XX项目").Frame("wap").Link("生活家居").Click
.Page("XX项目").Frame("wap_5").Link("出租(火爆招租中)").Click
.Page("XX项目").Sync
With .Page("XX项目")
.Frame("wap_6").Image("image").Check CheckPoint("image")'检查点
.Frame("wap_6").Link("返回XX首页").Click
.Sync
.Frame("wap").Check CheckPoint("生活家居")'检查点
End with
End with
i=i+1
If i=3 Then
End If
Loop
6 检查点
Browser("XX项目").Page("XX项目").Frame("wap").Link("生活家居").Click
Browser("XX项目").Page("XX项目").Frame("wap_5").Link("出租(火爆招租中)").Click
Browser("XX项目").Page("XX项目").Sync
Browser("XX项目").Page("XX项目").Frame("wap_6").Image("image").Check CheckPoint("image")'检查点
Browser("XX项目").Page("XX项目").Frame("wap_6").Link("返回XX首页").Click
Browser("XX项目").Page("XX项目").Sync
Browser("XX项目").Page("XX项目").Frame("wap").Check CheckPoint("生活家居")'检查点
7 引用函数
Function
End Function
Do while(i<20)
'开始
Browser("XX项目").Page("XX项目").Frame("wap").Link("啤酒").Click
wait(2)
Browser("XX项目").Page("XX项目").Frame("wap_2").Link("商铺详情").Click
'详情
i=i+1
If i=3 Then
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("XX项目_2").Page("XX项目")
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
a.add m,file.readline
loop
file.close
h=int(rnd*m)
msgbox "第" & h & "行:
msgbox "第1行:
msgbox "第2行:
msgbox "第3行:
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项目")
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项目")
End With
loop
file.close
13 读取csv文件并分割字符串
Dim aasplit
set fso=createobject("scrīpting.filesystemobject")
set file=fso.opentextfile("D:\hjq.csv")
wait(2)
Do while file.atendofstream<>true
loop
file.close
14 怎样识别弹出的web窗口和对象
1,
2,
3,
4,
5,
6,
7,
15 Vbs写文件
set fs =createobject("scrīpting.filesystemobject")
if (fs.fileexists("c:\hjq.txt")) then
set f =fs.opentextfile("c:\hjq.txt",8)
f.write chr(13)+chr(10)
f.write "hello"
f.write chr(13)+chr(10)
f.writeline "beijing"
f.close
else
set f=fs.opentextfile("c:\hjq.txt",2, true)
f.writeblanklines 2 '写入2个空行
f.write "china"
f.close
end if
16 基本函数
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,函数Descrīption,可以获得某页面同标签的属性进行操作。
16,函数nagative可以随便跳转页面到指定的URL。
17,函数Object可以获得当前页面同属性的控件。
18,函数Focus可以让控件获得焦点,函数Blur则是失去焦点,click单击,dbclick双击。
19,函数setAttribute可以设置控件属性,getAttribute可以获得属性。
引文来源