QuickTestProfessional基本使用示例

1          设置脚本间的间隔时间

Wait(2)，单位：秒

2          循环语句while

i=0

do while(i<10)51Testing软件测试网$U/XSVt O

Window("Opera").Restore51Testing软件测试网Q+og]8G@o/M&w

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

Window("Opera").WinObject("OperaWindowClass").Click 461,278

i=i+1

loop

3         循环语句for

For i=1 to 351Testing软件测试网X;uG{:Fbe

      Window("Opera").Restore51Testing软件测试网Lm%k%@"F^c1yb ?U

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

Window("Opera").WinObject("OperaWindowClass").Click 461,27851Testing软件测试网i3d0eC?2u4S ~

Next51Testing软件测试网"h*z"xt'`
i

4          判断语句

Do while(i<20)51Testing软件测试网$pmeb6[?BN

Browser("XX项目").Page("XX项目").Frame("wap").Link("啤酒").Click51Testing软件测试网H&D3N+kp:|A,S

wait(2)51Testing软件测试网dTC6kNc

Browser("XX项目").Page("XX项目").Frame("wap_2").Link("商铺详情").Click51Testing软件测试网q,])Rs(~8d%B

wait(2)

i=i+151Testing软件测试网%b8A
L&gmrJ+QXz1fC

If i=5 Then

      Exit do51Testing软件测试网WVr1`)~l |:~+I4w

End If51Testing软件测试网V![ n(b-PR,h

Loop51Testing软件测试网Z5LU2WJ0\r

5          With语句

Do while(i<20)51Testing软件测试网pup7y
gF;x

With Browser("XX项目")51Testing软件测试网r!fn~-Ki

.Page("XX项目").Frame("wap").Link("生活家居").Click51Testing软件测试网'd+f p)[,Km

.Page("XX项目").Frame("wap_5").Link("出租(火爆招租中)").Click51Testing软件测试网5u/g&AA V*r7D|

.Page("XX项目").Sync

With .Page("XX项目")

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

.Frame("wap_6").Link("返回XX首页").Click51Testing软件测试网G^ kjZ"o/S4N(b

.Sync51Testing软件测试网G| [{PQ ^)U!W

.Frame("wap").Check CheckPoint("生活家居")'检查点51Testing软件测试网pK2g?OQo)SLz

End with51Testing软件测试网&`
kN|2gJA9T*y#Kq

End with

i=i+151Testing软件测试网 K[!u,Yh6O(ji9^8E

If i=3 Then

   i=21

End If

Loop

6         检查点

Browser("XX项目").Page("XX项目").Frame("wap").Link("生活家居").Click51Testing软件测试网k5_.JgE\7}2k

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首页").Click51Testing软件测试网1[@aPb

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

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

7          引用函数

Function hjq(i)

  msgbox("hjq")

End Function51Testing软件测试网s5lx\Q*Tt

Do while(i<20)

'开始

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

wait(2)51Testing软件测试网 `:zo(bWG,CJ%r

Browser("XX项目").Page("XX项目").Frame("wap_2").Link("商铺详情").Click

'详情51Testing软件测试网*X%p.Vo
VI%a

i=i+1

If i=3 Then

   i=2151Testing软件测试网+}u|:|
} I

End If51Testing软件测试网w|T"H2C7d-`u

Call hjq(i)51Testing软件测试网G C)Nr |bE

Loop

8          引用action

录制action1，在step->action properties中设置该action为reuseable action51Testing软件测试网#s(c%?V-_*[f9Q!TP,x
l

录制action2，在inser->call to exiting action，选择action151Testing软件测试网'?Tu;QH

OK51Testing软件测试网&x C6A0`3KPo

9          参数化

在keyword view中设置对象的value为参数，并设置值51Testing软件测试网U FLN!{*{\D

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

      With .Frame("wap_2")51Testing软件测试网0\'?*]u'C;X%@

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

             .WebButton("搜").Click51Testing软件测试网6Tc:UOg W

      End With

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

      With .Frame("wap")

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

             .WebButton("搜").Click

      End With51Testing软件测试网ktxkG$^

      .Sync

End With51Testing软件测试网CW KH,cJ}

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

'随机读取文件中的一行

randomize 

set fso=createobject("scrīpting.filesystemobject") '创建文件系统对象51Testing软件测试网t8A%m9k$z7C

set a=createobject("scrīpting.dictionary") '类似于二维数组51Testing软件测试网L&_~a.ph&HE

set file=fso.opentextfile("D:\hjq.txt") '打开文件51Testing软件测试网0n sgM@v%J

do while file.atendofstream<>true 51Testing软件测试网(WI9{0YN,U?~

m=m+1 'm记录文件中文本行数

a.add m,file.readline 'file.readline读取某行记录51Testing软件测试网,cld@B2x,p@

loop 51Testing软件测试网$nIJ%]%v9y GM4j

file.close '关闭文件

h=int(rnd*m) 

msgbox "第" & h & "行: " & a(h) ,4096,"随机内容"51Testing软件测试网 y,S UZ~U4c6v

msgbox "第1行: " & a(1) ,4096,"内容"51Testing软件测试网b.KHpv&f,G0j-N-s

msgbox "第2行: " & a(2) ,4096,"内容"51Testing软件测试网X(IDUq"b2ss

msgbox "第3行: " & a(3) ,4096,"内容"51Testing软件测试网-H|9iGTy&d

11      二维数组的使用

set a=createobject("scrīpting.dictionary") '类似于二维数组

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

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

a.add 2,"返回XX首页"51Testing软件测试网 A
D2d+c;a&WAiv

a.add 3,"返回XX首页"51Testing软件测试网J7eS*n,Y1Gu

For i=0 to 351Testing软件测试网7eH'r.A
k*P:Y

 51Testing软件测试网/LU+?3v
bd

With Browser("XX项目").Page("XX项目")51Testing软件测试网6f6|o2Iv!D7O

      With .Frame("wap")51Testing软件测试网VX%e ?3?6k

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

             .WebButton("搜").Click51Testing软件测试网{%D&m%D(h)DvXIw

      End With

      .Frame("wap_2").Link(a(i)).Click

      .Sync

End With51Testing软件测试网6^p&m7F!gm JB

Next51Testing软件测试网3q!|X'S9UoZ

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

set fso=createobject("scrīpting.filesystemobject") '创建文件系统对象51Testing软件测试网|6VY#G#c1fp6E

set a=createobject("scrīpting.dictionary") '类似于二维数组51Testing软件测试网&yNO0u:kt2E

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

wait(2)51Testing软件测试网(yMH,|&Q @GGR$O

do while file.atendofstream<>true

With Browser("XX项目").Page("XX项目")51Testing软件测试网 RNl$e^,f+e(L

      With .Frame("wap")

             .WebEdit("key").Set file.readline51Testing软件测试网 {YL2Mg!A Z

             .WebButton("搜").Click51Testing软件测试网h"o d_kl@'@u

      End With

      .Frame("wap_2").Link("返回XX首页").Click51Testing软件测试网VT[Phs-~C d+y5N3^

      .Sync51Testing软件测试网B E J3n;NC P/HVO

End With51Testing软件测试网U_U u;X

loop 51Testing软件测试网NQ,X?Bf6p-i%s;D

file.close '关闭文件51Testing软件测试网A7[.BRbvqF9L1pt

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

Dim aasplit51Testing软件测试网"M-}
~ Y5D aE)OYi

set fso=createobject("scrīpting.filesystemobject") '创建文件系统对象51Testing软件测试网X$~x!z\&vq;JX

set file=fso.opentextfile("D:\hjq.csv") '打开csv文件51Testing软件测试网]%a|.b3L-Pa6b\z

wait(2)

Do while file.atendofstream<>true

   aasplit=split(file.readline,",")'用,分割字符串51Testing软件测试网Kohs9O-{2H

 51Testing软件测试网-qQS |:Z-^

      For i=0 to UBound(aasplit)

             With Browser("XX项目").Page("XX项目")51Testing软件测试网e$b$O2iidb7xKf

                    With .Frame("wap")

                           .WebEdit("key").Set aasplit(i)51Testing软件测试网Bq)VZ*OT3[

                           .WebButton("搜").Click51Testing软件测试网.Qh"b)r)h"oH

                    End With

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

                    .Sync

             End With51Testing软件测试网|fP.O-iY6?7aN

      Next

loop 

file.close '关闭文件

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

1， 进入object identification51Testing软件测试网&}9VDme `7M

2， 在enviroment中选择web51Testing软件测试网*y^s!e+hW

3， 选择某个testobject class，如browser51Testing软件测试网y4sXY-z

4， 添加mandatory properties

5， 确定

6， 重新录制脚本

7， OK51Testing软件测试网8a BG Qym@"m6LX

15      Vbs写文件

set fs =createobject("scrīpting.filesystemobject")51Testing软件测试网Z*eM,a5[\(N,n&{

if (fs.fileexists("c:\hjq.txt")) then

set f =fs.opentextfile("c:\hjq.txt",8)51Testing软件测试网E9[(wvn9nkG

f.write chr(13)+chr(10)51Testing软件测试网7X^c-i n
Sr
A1W'x6@

f.write "hello"51Testing软件测试网to%vwN9GA9_

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

f.writeline "beijing"51Testing软件测试网*yuQ+P'h*KDm1d

f.close

else

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

f.writeblanklines 2 '写入2个空行

f.write "china"51Testing软件测试网@u)\B!TR Q9F?

f.close

end if

 51Testing软件测试网$eF"z-k#Xv

16      基本函数

QTP的基本使用函数：51Testing软件测试网VMY~Q

1,获取对话框相应的文字: GetVisible Text51Testing软件测试网:Le/V_2|7s"y6~6B

2,查找相应的字符串: instr (1,查找目标字符串,所查找的字符串)51Testing软件测试网w%OY,xx2T^z

3,随机数的获取: Randomnumber.Value()或cstr(int(Rnd*10)+1)51Testing软件测试网]5_in6TV0V"H

4,等待函数: Wait(秒数)51Testing软件测试网;C;v(^ @.hb{\$u,X

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

6,拆分数组:Split(MyString, ",", -1, 1)51Testing软件测试网_p{{A G'I4D8O,|

7,可执行步骤: OptionalStep

8,报告信息: Reporter.ReportEvent 3, "Save Step", "Out of cycle!"51Testing软件测试网)fn)G-o;s0J!i@wtK.|l

9,判断对话框是否存在: .exist51Testing软件测试网#r tC+sW9W

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”).51Testing软件测试网nt#k#~DK LK

13，获得对象属性的三种方法GetTOProperty，GetTOProperties,GetROProperty,GetTOProperty获得程序中对象当前的属性，GetTOProperties获得当前属性所有集合，GetROProperty获得的是录制时对象所获得的属性。

14，检查点方法check和输出指定属性值output。

15，函数Descrīption,可以获得某页面同标签的属性进行操作。51Testing软件测试网{qfX @,H"i4U"|

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

17，函数Object可以获得当前页面同属性的控件。51Testing软件测试网F y$p5K K)VQV0v

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

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

 51Testing软件测试网jWjaB+J

( 本文为junqinghuang 原创，转载请注明出处)