QuickTestProfessional基本使用示例（原创）

1          设置脚本间的间隔时间

Wait(2)，单位：秒51Testing软件测试网g(s7a(ug,d4E"n

2          循环语句while

i=0

do while(i<10)

Window("Opera").Restore

Window("Opera").WinObject("OperaWindowClass").Click 446,23251Testing软件测试网7i?M4_VqC'N"l2\`3O

Window("Opera").WinObject("OperaWindowClass").Click 461,27851Testing软件测试网 \#C WE&h8w/G3j

i=i+151Testing软件测试网;`0XK!p1{/Jq%h6ADa$F

loop51Testing软件测试网 Q+pip(T$Li~

3         循环语句for

For i=1 to 351Testing软件测试网[)Dz#g_ t)WN/j
S#O

      Window("Opera").Restore

Window("Opera").WinObject("OperaWindowClass").Click 446,232

Window("Opera").WinObject("OperaWindowClass").Click 461,27851Testing软件测试网_fF/EK}s

Next51Testing软件测试网 i/C7t~N] p$v

4          判断语句

Do while(i<20)

Browser("XX项目").Page("XX项目").Frame("wap").Link("啤酒").Click

wait(2)

Browser("XX项目").Page("XX项目").Frame("wap_2").Link("商铺详情").Click51Testing软件测试网_H:xle/\

wait(2)

i=i+1

If i=5 Then

      Exit do

End If51Testing软件测试网8g(b(Z|'wx`

Loop

5          With语句

Do while(i<20)

With Browser("XX项目")

.Page("XX项目").Frame("wap").Link("生活家居").Click51Testing软件测试网h mh-kG

.Page("XX项目").Frame("wap_5").Link("出租(火爆招租中)").Click

.Page("XX项目").Sync

With .Page("XX项目")51Testing软件测试网h3T/|o(Z5\6C HN]

.Frame("wap_6").Image("image").Check CheckPoint("image")'检查点

.Frame("wap_6").Link("返回XX首页").Click

.Sync

.Frame("wap").Check CheckPoint("生活家居")'检查点

End with51Testing软件测试网M g+}`Fos

End with

i=i+1

If i=3 Then51Testing软件测试网N)m#r,F]o1R

   i=2151Testing软件测试网h N#?CP In

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")'检查点51Testing软件测试网
NwE/|z9waD6_

Browser("XX项目").Page("XX项目").Frame("wap_6").Link("返回XX首页").Click

Browser("XX项目").Page("XX项目").Sync51Testing软件测试网 [eSY#k;A

Browser("XX项目").Page("XX项目").Frame("wap").Check CheckPoint("生活家居")'检查点

7          引用函数

Function hjq(i)51Testing软件测试网SU#nQ&v(_]fFRX

  msgbox("hjq")

End Function51Testing软件测试网e0n,^#H9T;qF

 51Testing软件测试网
J~u*F:goKa

Do while(i<20)

'开始

Browser("XX项目").Page("XX项目").Frame("wap").Link("啤酒").Click51Testing软件测试网'rt$H-xik

wait(2)

Browser("XX项目").Page("XX项目").Frame("wap_2").Link("商铺详情").Click51Testing软件测试网;Fer
W$|(o4_

'详情51Testing软件测试网$Y6[Is m,bcV-F

i=i+1

If i=3 Then

   i=2151Testing软件测试网%m#Ck:G!Oj

End If

Call hjq(i)

Loop51Testing软件测试网7Nk)ThJ,I6g,HCK|k

8          引用action

录制action1，在step->action properties中设置该action为reuseable action

录制action2，在inser->call to exiting action，选择action151Testing软件测试网`r;QQ;Z(o6^

OK

9          参数化

在keyword view中设置对象的value为参数，并设置值51Testing软件测试网#i-Q&yCx`"V@N

With Browser("XX项目_2").Page("XX项目")

      With .Frame("wap_2")51Testing软件测试网`{n5X)Is`x0X\8u

             .WebEdit("key").Set "1"51Testing软件测试网m"BP/x-[(KM

             .WebButton("搜").Click

      End With51Testing软件测试网1@2F2o%s7k

      .Frame("wap_3").Link("重新搜索").Click

      With .Frame("wap")51Testing软件测试网Wvd7n%E${G9I'UU

             .WebEdit("key").Set DataTable("p_Text", dtGlobalSheet)

             .WebButton("搜").Click51Testing软件测试网4]MA%p4oz0e'D-Q

      End With

      .Sync

End With

10      Vbs随机读取一行文本内容

'随机读取文件中的一行51Testing软件测试网
WDq$b$`9`?

randomize 51Testing软件测试网6Uh6E*L7h#dCw]+N

set fso=createobject("scrīpting.filesystemobject") '创建文件系统对象51Testing软件测试网2Uy5e'u0~~F

set a=createobject("scrīpting.dictionary") '类似于二维数组51Testing软件测试网3I[5Ec%?K Z#L

set file=fso.opentextfile("D:\hjq.txt") '打开文件

do while file.atendofstream<>true 

m=m+1 'm记录文件中文本行数51Testing软件测试网NI~0wS_

a.add m,file.readline 'file.readline读取某行记录

loop 51Testing软件测试网r]-T"kS

file.close '关闭文件

h=int(rnd*m) 51Testing软件测试网.z8}d4G D2j(^,{t

msgbox "第" & h & "行: " & a(h) ,4096,"随机内容"51Testing软件测试网*Vg&n-\6@)[:n

msgbox "第1行: " & a(1) ,4096,"内容"

msgbox "第2行: " & a(2) ,4096,"内容"51Testing软件测试网%Z@z-~;rf"W!` |{

msgbox "第3行: " & a(3) ,4096,"内容"51Testing软件测试网f,s cw5T{

11      二维数组的使用

set a=createobject("scrīpting.dictionary") '类似于二维数组51Testing软件测试网2v Q{qR&B8Sw-N

a.add 0,"返回XX首页"

a.add 1,"返回XX首页"51Testing软件测试网&?
R ejS*|7m0Ay

a.add 2,"返回XX首页"51Testing软件测试网{(L1f#lx P
V

a.add 3,"返回XX首页"

For i=0 to 351Testing软件测试网/UY,u!fz.u[%W*C

 51Testing软件测试网8XPM|0dy

With Browser("XX项目").Page("XX项目")

      With .Frame("wap")51Testing软件测试网/uh0M/h"EP[

             .WebEdit("key").Set "1"

             .WebButton("搜").Click51Testing软件测试网-T5hXV}-YS[sw/k

      End With

      .Frame("wap_2").Link(a(i)).Click51Testing软件测试网&d9Al1aT)rFEV

      .Sync51Testing软件测试网z0X
]5z"@%R

End With

Next51Testing软件测试网,OB
B5WB'}

12      从文件读取文本，并赋予参数

set fso=createobject("scrīpting.filesystemobject") '创建文件系统对象

set a=createobject("scrīpting.dictionary") '类似于二维数组51Testing软件测试网m I*D6o^b8Xj

set file=fso.opentextfile("D:\hjq.txt") '打开文件

wait(2)

do while file.atendofstream<>true51Testing软件测试网*tO3eo
^9k'boV

With Browser("XX项目").Page("XX项目")

      With .Frame("wap")51Testing软件测试网p"jNe)qU

             .WebEdit("key").Set file.readline

             .WebButton("搜").Click51Testing软件测试网 ?Y6XE9yqw

      End With51Testing软件测试网"l(ID)D,e;Y

      .Frame("wap_2").Link("返回XX首页").Click

      .Sync

End With51Testing软件测试网[9j8k:[ @J:l)\

loop 51Testing软件测试网,Rsb[*g:J(Q-j

file.close '关闭文件51Testing软件测试网.M1hk-}n j7`^2z

13      读取csv文件并分割字符串

Dim aasplit51Testing软件测试网|I#BR%a1X&@

set fso=createobject("scrīpting.filesystemobject") '创建文件系统对象

set file=fso.opentextfile("D:\hjq.csv") '打开csv文件51Testing软件测试网
P%^(K^k4?

wait(2)51Testing软件测试网/XFz;M"s.g D A

Do while file.atendofstream<>true

   aasplit=split(file.readline,",")'用,分割字符串

      For i=0 to UBound(aasplit)51Testing软件测试网-V9Lchw(^

 51Testing软件测试网bM#C0W%}P

             With Browser("XX项目").Page("XX项目")51Testing软件测试网 wOz3eoJy
l

                    With .Frame("wap")

                           .WebEdit("key").Set aasplit(i)

                           .WebButton("搜").Click

                    End With

                    .Frame("wap_2").Link("返回XX首页").Click51Testing软件测试网J/K(a Nk |7L {[i/z

                    .Sync51Testing软件测试网QE Xxz9B;MY#x

             End With51Testing软件测试网Fu"^3Y5}yA'N

      Next51Testing软件测试网'jK,]~C^%[

loop 

file.close '关闭文件51Testing软件测试网/I uUB ](MJ
z$z Aj

14      怎样识别弹出的web窗口和对象

1， 进入object identification51Testing软件测试网,K5j,?!@Qc:F$i6R0G

2， 在enviroment中选择web

3， 选择某个testobject class，如browser51Testing软件测试网"y X.a:?monb

4， 添加mandatory properties

5， 确定51Testing软件测试网WUo0uNOi

6， 重新录制脚本51Testing软件测试网C-D2K}P;V

7， OK

15      Vbs写文件

set fs =createobject("scrīpting.filesystemobject")51Testing软件测试网%I'wXq0]
X

if (fs.fileexists("c:\hjq.txt")) then51Testing软件测试网.m$w"t G)u g1\

set f =fs.opentextfile("c:\hjq.txt",8)

f.write chr(13)+chr(10)

f.write "hello"51Testing软件测试网4zMIA OAux2O

f.write chr(13)+chr(10)

f.writeline "beijing"

f.close51Testing软件测试网1Yy\
s\ `

else

set f=fs.opentextfile("c:\hjq.txt",2, true)51Testing软件测试网 ` }
z8Z:~

f.writeblanklines 2 '写入2个空行

f.write "china"51Testing软件测试网+W9RNB-ROh0?*hj

f.close51Testing软件测试网:Hc5g.e'b:CY&X

end if51Testing软件测试网o V)ytzz`

16      基本函数

QTP的基本使用函数：

1,获取对话框相应的文字: GetVisible Text51Testing软件测试网9avt(?JL.u

2,查找相应的字符串: instr (1,查找目标字符串,所查找的字符串)51Testing软件测试网JCkv i-bR?

3,随机数的获取: Randomnumber.Value()或cstr(int(Rnd*10)+1)51Testing软件测试网8m0A2D1O3rF

4,等待函数: Wait(秒数)

5,获取数组下标: UBound (数组名)

6,拆分数组:Split(MyString, ",", -1, 1)

7,可执行步骤: OptionalStep51Testing软件测试网 G$xdM{M7|$Hff!Y

8,报告信息: Reporter.ReportEvent 3, "Save Step", "Out of cycle!"

9,判断对话框是否存在: .exist51Testing软件测试网 W*FU/_ g%y)_

10，事件过滤函数：Reporter.Filter=过滤条件(0，1，2，3)，0代表显示所有的error和warning,1，显示error,2,显示waining,3,任何error和warning都不显示。51Testing软件测试网ccB8` K
wF

11，循环函数：do … loop until，for…to… then next,while.

12，数据表格：DataTable,向外赋值，Dim aa = DataTable.value(“CellingName”,”ActionName”).51Testing软件测试网.Jqu0E]Z4QO

13，获得对象属性的三种方法GetTOProperty，GetTOProperties,GetROProperty,GetTOProperty获得程序中对象当前的属性，GetTOProperties获得当前属性所有集合，GetROProperty获得的是录制时对象所获得的属性。51Testing软件测试网o~,];dS!O$`

14，检查点方法check和输出指定属性值output。51Testing软件测试网b!e~-X7^R.C

15，函数Descrīption,可以获得某页面同标签的属性进行操作。

16，函数nagative可以随便跳转页面到指定的URL。

17，函数Object可以获得当前页面同属性的控件。

18，函数Focus可以让控件获得焦点，函数Blur则是失去焦点，click单击，dbclick双击。

19，函数setAttribute可以设置控件属性，getAttribute可以获得属性。