QuickTestProfessional基本使用示例（原创）51Testing软件测试网&hLAg5W$}k1X

1          设置脚本间的间隔时间

Wait(2)，单位：秒

2          循环语句while

i=051Testing软件测试网}~ yp;s

do while(i<10)51Testing软件测试网 DtP.fZ3O5cnB

Window("Opera").Restore

Window("Opera").WinObject("OperaWindowClass").Click 446,23251Testing软件测试网7F8Dfo!d9@R`+^H6Z

Window("Opera").WinObject("OperaWindowClass").Click 461,27851Testing软件测试网5]n%CV-W.i{

i=i+1

loop

3         循环语句for

For i=1 to 3

      Window("Opera").Restore51Testing软件测试网nxcd2wS

Window("Opera").WinObject("OperaWindowClass").Click 446,23251Testing软件测试网\)jT)o R:{]"{ dt

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

Next

4          判断语句

Do while(i<20)

Browser("XX项目").Page("XX项目").Frame("wap").Link("啤酒").Click51Testing软件测试网 G(Z5j8XIl r

wait(2)

Browser("XX项目").Page("XX项目").Frame("wap_2").Link("商铺详情").Click51Testing软件测试网V q6S6N"bP

wait(2)51Testing软件测试网.v:sD/c2|,f
S

i=i+1

If i=5 Then

      Exit do51Testing软件测试网d+Bm3S4_4R

End If

Loop51Testing软件测试网S IO`P?

5          With语句

Do while(i<20)51Testing软件测试网
GQ.{;r-`+hP1^Y

With Browser("XX项目")51Testing软件测试网8q5X*RbH1g-m&k;Y

.Page("XX项目").Frame("wap").Link("生活家居").Click

.Page("XX项目").Frame("wap_5").Link("出租(火爆招租中)").Click51Testing软件测试网S_` H7]

.Page("XX项目").Sync

With .Page("XX项目")51Testing软件测试网3m9\V#@R&J9Lv A6dD

.Frame("wap_6").Image("image").Check CheckPoint("image")'检查点51Testing软件测试网(R~&@I2ZfTR5Jgl

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

.Sync

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

End with

End with51Testing软件测试网a,]5D&H0G2yS W

i=i+151Testing软件测试网sFezP4~_8a

If i=3 Then

   i=21

End If51Testing软件测试网+X0e FY,M,|6F/t

Loop

6         检查点

Browser("XX项目").Page("XX项目").Frame("wap").Link("生活家居").Click51Testing软件测试网T t e+g4Le4]#TZ7V

Browser("XX项目").Page("XX项目").Frame("wap_5").Link("出租(火爆招租中)").Click51Testing软件测试网8d*]Ku-Ht%gA

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项目").Sync51Testing软件测试网Qig-dh_

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

7          引用函数

Function hjq(i)

  msgbox("hjq")

End Function51Testing软件测试网/IWas9R5M-eY%u

Do while(i<20)

'开始51Testing软件测试网,D$]N6_jE

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

wait(2)

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

'详情

i=i+151Testing软件测试网&PR5B!Y[%f&Rv%M

If i=3 Then51Testing软件测试网C%z8RE p0Ksj

   i=2151Testing软件测试网,@ G @H}

End If

Call hjq(i)51Testing软件测试网 n_i{ADP

Loop51Testing软件测试网&F/i'_;c1zPUA5v

8          引用action

录制action1，在step->action properties中设置该action为reuseable action51Testing软件测试网^0kUm7Sha

录制action2，在inser->call to exiting action，选择action1

OK51Testing软件测试网/lq:I(@5M[

9          参数化

在keyword view中设置对象的value为参数，并设置值51Testing软件测试网zL'z5Yh VG]E(O,C

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

      With .Frame("wap_2")

             .WebEdit("key").Set "1"51Testing软件测试网u;Ef4r.nz.r

             .WebButton("搜").Click51Testing软件测试网ds*h{O;I&CK(\"`

      End With51Testing软件测试网` Q2K dR5fE8G[8z:O

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

      With .Frame("wap")

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

             .WebButton("搜").Click51Testing软件测试网x&J`9@$K!~

      End With

      .Sync51Testing软件测试网5RmPk;y,LS9v}

End With

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

'随机读取文件中的一行51Testing软件测试网 B;_]!T6@`aNZ

randomize 51Testing软件测试网w:tX \4`7t3l/d

set fso=createobject("scrīpting.filesystemobject") '创建文件系统对象51Testing软件测试网6r.R$cU3q/_]

set a=createobject("scrīpting.dictionary") '类似于二维数组51Testing软件测试网,d {
j fP1`5|)ZP

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

do while file.atendofstream<>true 

m=m+1 'm记录文件中文本行数51Testing软件测试网L.~QH,];ZJ

a.add m,file.readline 'file.readline读取某行记录51Testing软件测试网5D+K Bt~qQ{!jE

loop 

file.close '关闭文件51Testing软件测试网'ZRIZ6J;HT_&rF

h=int(rnd*m) 

msgbox "第" & h & "行: " & a(h) ,4096,"随机内容"51Testing软件测试网1Q^:Y:S`YW n

msgbox "第1行: " & a(1) ,4096,"内容"51Testing软件测试网]Y`2uaIy

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

msgbox "第3行: " & a(3) ,4096,"内容"51Testing软件测试网/ps~z GL*c

11      二维数组的使用

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

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

a.add 1,"返回XX首页"51Testing软件测试网lY/Rg
]:Ni8lC

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

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

 51Testing软件测试网M-\ M'p,Gkd

For i=0 to 351Testing软件测试网J1n2y6Z o&_ bA

 51Testing软件测试网7?eb4]\#m&nV1Ty

With Browser("XX项目").Page("XX项目")51Testing软件测试网/U8Z%vpV] ~

      With .Frame("wap")51Testing软件测试网d%G5[ QC kS

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

             .WebButton("搜").Click51Testing软件测试网Bw:?)@2_De&}@-s1N

      End With

      .Frame("wap_2").Link(a(i)).Click51Testing软件测试网4zOG+M:[SX

      .Sync

End With51Testing软件测试网%Go9j8z3?O{&G

Next51Testing软件测试网+mIv)wS M$U u]F

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

set fso=createobject("scrīpting.filesystemobject") '创建文件系统对象51Testing软件测试网
M%O%\(VN3e3z[

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

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

wait(2)51Testing软件测试网
T^4KYa~;@5{#BN

do while file.atendofstream<>true

With Browser("XX项目").Page("XX项目")51Testing软件测试网l S8P;lAH0Em
h

      With .Frame("wap")

             .WebEdit("key").Set file.readline51Testing软件测试网G/_yIH

             .WebButton("搜").Click

      End With51Testing软件测试网YTrz[5sE

      .Frame("wap_2").Link("返回XX首页").Click51Testing软件测试网-|8R,e0Z M

      .Sync

End With

loop 

file.close '关闭文件

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

Dim aasplit

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

set file=fso.opentextfile("D:\hjq.csv") '打开csv文件51Testing软件测试网;} }:qc2D
w

wait(2)

Do while file.atendofstream<>true

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

      For i=0 to UBound(aasplit)51Testing软件测试网%DSps-y V+\9YW

 51Testing软件测试网 U7].\G-M)jS)P

             With Browser("XX项目").Page("XX项目")51Testing软件测试网 gAj"I#t\

                    With .Frame("wap")51Testing软件测试网q,|zj,@zd

                           .WebEdit("key").Set aasplit(i)51Testing软件测试网Knz2F9~;HT/W|

                           .WebButton("搜").Click

                    End With51Testing软件测试网D1C*P}U&Q v

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

                    .Sync

             End With

      Next51Testing软件测试网p V)Q g^#S0?`,I

 51Testing软件测试网zO'BDP$Ih

loop 51Testing软件测试网NYjBP1a!a

file.close '关闭文件

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

1， 进入object identification51Testing软件测试网({Z M#akw,\|

2， 在enviroment中选择web

3， 选择某个test object class，如browser51Testing软件测试网+M"ia!mpx4Y$v

4， 添加mandatory properties

5， 确定51Testing软件测试网
g7au9gCT

6， 重新录制脚本

7， OK51Testing软件测试网;k9x'RjH1kV

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)51Testing软件测试网;D(m:T@P
x

f.writeline "beijing"51Testing软件测试网-nf/c9u!aM

f.close51Testing软件测试网&_4?"?{)lss"mI [

else

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

f.writeblanklines 2 '写入2个空行51Testing软件测试网'ZC(J5Gu\^W

f.write "china"51Testing软件测试网
FMc$j2h[J

f.close51Testing软件测试网]9kTMb

end if51Testing软件测试网`?6__;ph

16      基本函数

QTP的基本使用函数：51Testing软件测试网^~ tv)n(}"h-r

1,获取对话框相应的文字: GetVisible Text

2,查找相应的字符串: instr (1,查找目标字符串,所查找的字符串)

3,随机数的获取: Randomnumber.Value()或cstr(int(Rnd*10)+1)51Testing软件测试网*a2z{w n]zT"B4M

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

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

6,拆分数组:Split(MyString, ",", -1, 1)51Testing软件测试网u9OV*m5v

7,可执行步骤: OptionalStep51Testing软件测试网"V C wLQ)qx!B

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

9,判断对话框是否存在: .exist51Testing软件测试网/A
uA\,VWL!_'Mb

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.51Testing软件测试网 y'W_1w?([1p5dd8\

12，数据表格：DataTable,向外赋值，Dim aa = DataTable.value(“CellingName”,”ActionName”).51Testing软件测试网b }G8cR S(Z

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

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

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

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

17，函数Object可以获得当前页面同属性的控件。51Testing软件测试网 V.^ y_-Z/|9R S/pz

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

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

 51Testing软件测试网;O't3Qbt8?

( 本文为junqinghuang 原创，转载请注明出处)51Testing软件测试网7\T0A3L X8KO