QuickTestProfessional基本使用示例（原创）

1          设置脚本间的间隔时间

Wait(2)，单位：秒

2          循环语句while

i=0

do while(i<10)51Testing软件测试网 s6XV2f+Vg

Window("Opera").Restore

Window("Opera").WinObject("OperaWindowClass").Click 446,23251Testing软件测试网*~-Q?uLiY*k-P!@

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

i=i+1

loop

3         循环语句for

For i=1 to 3

      Window("Opera").Restore51Testing软件测试网D0M,E+d"ND\

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

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

Next

4          判断语句

Do while(i<20)51Testing软件测试网,oV"j$l6fgno1I

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

wait(2)51Testing软件测试网;q)u;@I&_@Mw

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

wait(2)51Testing软件测试网Z2{{*V&fn|

i=i+151Testing软件测试网_z|/i/thFe

If i=5 Then51Testing软件测试网E0Dl0f(U4w(U

      Exit do51Testing软件测试网8vO:T-F5Q!C*r!J\p

End If51Testing软件测试网e p7E1s `7R:`B0QR)vx

Loop

5          With语句

Do while(i<20)

With Browser("XX项目")

.Page("XX项目").Frame("wap").Link("生活家居").Click51Testing软件测试网s5y,e I.O5W

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

.Page("XX项目").Sync51Testing软件测试网^g,y3^h/cM9R#Y

With .Page("XX项目")

.Frame("wap_6").Image("image").Check CheckPoint("image")'检查点51Testing软件测试网z!f!H-D F

.Frame("wap_6").Link("返回XX首页").Click51Testing软件测试网d7y;[6PJL/rw"Hs

.Sync

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

End with51Testing软件测试网"pT eb)tY"X

End with

i=i+1

If i=3 Then51Testing软件测试网_w5G$~;YQ

   i=2151Testing软件测试网+yM0EQnoY
t

End If51Testing软件测试网p)\dBE(s!|6A.j

Loop51Testing软件测试网Ro H0up([5e5@

6         检查点

Browser("XX项目").Page("XX项目").Frame("wap").Link("生活家居").Click51Testing软件测试网&j%Z ^h F8o+yQ5Y

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软件测试网f0C4P]XP+vN

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

Browser("XX项目").Page("XX项目").Sync51Testing软件测试网S6UibA
{G[

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

7          引用函数

Function hjq(i)

  msgbox("hjq")

End Function51Testing软件测试网b,Xl+J9Z:g!v

 51Testing软件测试网*@ vvTfFx8k

Do while(i<20)51Testing软件测试网:\T7|8NESH+O3yb

'开始51Testing软件测试网U*mr`/pc*Mt

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

wait(2)

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

'详情51Testing软件测试网?0k.^g b,N1CEA

i=i+1

If i=3 Then51Testing软件测试网^ k7E'qrG6RM

   i=2151Testing软件测试网U6hab!L/U'T%i

End If51Testing软件测试网%vj%yC4bU

Call hjq(i)

Loop51Testing软件测试网 x/g2J9O0R@sK

8          引用action

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

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

OK

9          参数化

在keyword view中设置对象的value为参数，并设置值51Testing软件测试网o6OQb/S5y yC

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

      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)51Testing软件测试网$JC,\}9JHV6^^

             .WebButton("搜").Click51Testing软件测试网 eIk l;N

      End With51Testing软件测试网;Zar4K$FM

      .Sync51Testing软件测试网/oQLCj e}

End With51Testing软件测试网:ct/o.s8L2|qbn

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

'随机读取文件中的一行

randomize 

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

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

set file=fso.opentextfile("D:\hjq.txt") '打开文件51Testing软件测试网a:ao5R$F,YE?

do while file.atendofstream<>true 

m=m+1 'm记录文件中文本行数51Testing软件测试网 wR-qF8s%g+Y5w

a.add m,file.readline 'file.readline读取某行记录51Testing软件测试网XIiu@/t;E

loop 51Testing软件测试网6Z^.jh?k/r mP

file.close '关闭文件

h=int(rnd*m) 51Testing软件测试网-k~&e,|y1Q9I ?

msgbox "第" & h & "行: " & a(h) ,4096,"随机内容"51Testing软件测试网Ee+M%yPJ)V#`w

msgbox "第1行: " & a(1) ,4096,"内容"51Testing软件测试网
L/IdJ1c|3y&`

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

msgbox "第3行: " & a(3) ,4096,"内容"51Testing软件测试网3{8Q&dX\g;PL

11      二维数组的使用

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

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

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

a.add 2,"返回XX首页"51Testing软件测试网O c~ FD
` f

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

 51Testing软件测试网lB7xU/K._
\

For i=0 to 351Testing软件测试网._u{He

With Browser("XX项目").Page("XX项目")51Testing软件测试网G&GVJN%l

      With .Frame("wap")

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

             .WebButton("搜").Click

      End With

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

      .Sync51Testing软件测试网qKQ
q2O|Qo

End With

Next51Testing软件测试网;?fLbv"R!V*^

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项目")

      With .Frame("wap")51Testing软件测试网 ][;vkE+fp2C

             .WebEdit("key").Set file.readline51Testing软件测试网4?&T.p9@(?q(B3Y

             .WebButton("搜").Click

      End With51Testing软件测试网p OhV.a

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

      .Sync

End With51Testing软件测试网0yy+p&[Q)ST

loop 51Testing软件测试网;B@ a&zEPw{Sr1|Hc

file.close '关闭文件51Testing软件测试网/}$|;`d7a%G#F

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

Dim aasplit51Testing软件测试网@^'y}n|W

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

set file=fso.opentextfile("D:\hjq.csv") '打开csv文件51Testing软件测试网 O)m|&ZWjkR

wait(2)

Do while file.atendofstream<>true

   aasplit=split(file.readline,",")'用,分割字符串51Testing软件测试网#I O
YLWq1P+Jn

      For i=0 to UBound(aasplit)

 51Testing软件测试网D"qre.g4[N

             With Browser("XX项目").Page("XX项目")51Testing软件测试网"[+Y)~ F2m2v

                    With .Frame("wap")

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

                           .WebButton("搜").Click

                    End With

                    .Frame("wap_2").Link("返回XX首页").Click51Testing软件测试网}'V:G `7K DX`+?2E

                    .Sync51Testing软件测试网(I5x)[,A.p2Wl

             End With

             51Testing软件测试网)Mzd,jA:ws c @L r

      Next

loop 51Testing软件测试网+O3Y
J9A6w7Tso X

file.close '关闭文件

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

1， 进入object identification51Testing软件测试网']
g%o3q9v;O

2， 在enviroment中选择web

3， 选择某个test object class，如browser51Testing软件测试网!dT#[2O a\7`Md

4， 添加mandatory properties

5， 确定

6， 重新录制脚本51Testing软件测试网&jU d_ f o.`7K"^

7， OK

15      Vbs写文件

set fs =createobject("scrīpting.filesystemobject")

if (fs.fileexists("c:\hjq.txt")) then51Testing软件测试网B`vbA

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

f.write chr(13)+chr(10)51Testing软件测试网VGEt?^6l*xS6H

f.write "hello"

f.write chr(13)+chr(10)51Testing软件测试网b&? R i)sD

f.writeline "beijing"51Testing软件测试网#j5q taD*E

f.close51Testing软件测试网2u/f _vl])ugyJ

else51Testing软件测试网'n!D
WQ){,kMw+d,^{9D

set f=fs.opentextfile("c:\hjq.txt",2, true)51Testing软件测试网YZKo'@cM p+p3Gc

f.writeblanklines 2 '写入2个空行

f.write "china"

f.close51Testing软件测试网)D0\/BmN][

end if

 51Testing软件测试网M[ K%g!y

16      基本函数

QTP的基本使用函数：

1,获取对话框相应的文字: GetVisible Text51Testing软件测试网8B+N+g9J3ER'jr6eb

2,查找相应的字符串: instr (1,查找目标字符串,所查找的字符串)51Testing软件测试网gw't5G4fx3Re4N s+J

3,随机数的获取: Randomnumber.Value()或cstr(int(Rnd*10)+1)

4,等待函数: Wait(秒数)51Testing软件测试网kU3N3H x8i+O)}

5,获取数组下标: UBound (数组名)51Testing软件测试网'QlT aG
O7^

6,拆分数组:Split(MyString, ",", -1, 1)51Testing软件测试网Fr9a/W)XhI

7,可执行步骤: OptionalStep51Testing软件测试网(Te~-_ z

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

9,判断对话框是否存在: .exist51Testing软件测试网d)JyZZ

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。51Testing软件测试网,Du.Lu2O Y1Ha0?X V

15，函数Descrīption,可以获得某页面同标签的属性进行操作。51Testing软件测试网&h9tq!I3Bz?N*u'Z

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

17，函数Object可以获得当前页面同属性的控件。51Testing软件测试网%yeNnO/p"h
M

18，函数Focus可以让控件获得焦点，函数Blur则是失去焦点，click单击，dbclick双击。51Testing软件测试网$X FOeE&[!N

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

 51Testing软件测试网Z(rnj
lgf;y

( 本文为junqinghuang 原创，转载请注明出处)51Testing软件测试网M?A&{8d4n&FQ1j