QuickTestProfessional基本使用示例（原创）51Testing软件测试网Uw3`#?4Jw-M

1          设置脚本间的间隔时间

Wait(2)，单位：秒51Testing软件测试网4ks!w6I-ZkZ^!sjt

2          循环语句while

i=0

do while(i<10)51Testing软件测试网EK&wr'Wg }k

Window("Opera").Restore51Testing软件测试网Q7`9~DZpF

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

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

i=i+1

loop51Testing软件测试网g4SYdp0XUoU

3         循环语句for

For i=1 to 3

      Window("Opera").Restore51Testing软件测试网 j%jKtCm,?

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("啤酒").Click51Testing软件测试网;\x+z}y

wait(2)51Testing软件测试网$o!G6ID/F

Browser("XX项目").Page("XX项目").Frame("wap_2").Link("商铺详情").Click51Testing软件测试网{x$PV$I4H-YDh'l

wait(2)

i=i+151Testing软件测试网dOF CDP8zY0Z,C

If i=5 Then

      Exit do

End If51Testing软件测试网0Z9A+c9Q'Iw7E/l/P)r

Loop51Testing软件测试网0a!n5I7ht|*@(z;@ t

5          With语句

Do while(i<20)

With Browser("XX项目")

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

.Page("XX项目").Frame("wap_5").Link("出租(火爆招租中)").Click51Testing软件测试网5\(M!z e\.A

.Page("XX项目").Sync51Testing软件测试网1iN4\!t9_$^~"K

With .Page("XX项目")51Testing软件测试网wja:E5O;E

.Frame("wap_6").Image("image").Check CheckPoint("image")'检查点51Testing软件测试网sK@b!E

.Frame("wap_6").Link("返回XX首页").Click51Testing软件测试网? TE3`1N(Xwltm%N

.Sync

.Frame("wap").Check CheckPoint("生活家居")'检查点51Testing软件测试网6jy0G&Nx:nD)i

End with

End with51Testing软件测试网L0H
P nyx[J

i=i+151Testing软件测试网{!`W W~,a

If i=3 Then

   i=2151Testing软件测试网"\'fN
GK5kC8C

End If

Loop

6         检查点

Browser("XX项目").Page("XX项目").Frame("wap").Link("生活家居").Click51Testing软件测试网Sin| B+j5|B%A

Browser("XX项目").Page("XX项目").Frame("wap_5").Link("出租(火爆招租中)").Click51Testing软件测试网 f ~_5w'|

Browser("XX项目").Page("XX项目").Sync51Testing软件测试网Jk:M/r6R*|#v?

Browser("XX项目").Page("XX项目").Frame("wap_6").Image("image").Check CheckPoint("image")'检查点

Browser("XX项目").Page("XX项目").Frame("wap_6").Link("返回XX首页").Click51Testing软件测试网| l]@-J6Y h

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

Browser("XX项目").Page("XX项目").Frame("wap").Check CheckPoint("生活家居")'检查点51Testing软件测试网-tiv9T]3M/Ej!Z

7          引用函数

Function hjq(i)

  msgbox("hjq")51Testing软件测试网`A'Y2f,{

End Function

Do while(i<20)51Testing软件测试网r2O"~y*?@q-a

'开始

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

wait(2)51Testing软件测试网4u N"sS} }4[

Browser("XX项目").Page("XX项目").Frame("wap_2").Link("商铺详情").Click51Testing软件测试网F@&ku6\;z8Mf+Ia8^

'详情

i=i+151Testing软件测试网y^:D-?W*}C

If i=3 Then51Testing软件测试网0bR#WE.C

   i=2151Testing软件测试网(\}1gSu$z%AP%Ku

End If

Call hjq(i)51Testing软件测试网 U~m8wv$r

Loop

8          引用action

录制action1，在step->action properties中设置该action为reuseable action51Testing软件测试网 X{D2Z"CS R*DP

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

OK

9          参数化

在keyword view中设置对象的value为参数，并设置值51Testing软件测试网amtdp}'B&_R,s

With Browser("XX项目_2").Page("XX项目")51Testing软件测试网,W$j!LS8C9J't

      With .Frame("wap_2")51Testing软件测试网&\-i7z[ oT&]

             .WebEdit("key").Set "1"51Testing软件测试网r0v BCV*hX'P

             .WebButton("搜").Click51Testing软件测试网QZ p:As,Q

      End With51Testing软件测试网u-N+XK?;Q!g

      .Frame("wap_3").Link("重新搜索").Click51Testing软件测试网iN_i+yO

      With .Frame("wap")

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

             .WebButton("搜").Click

      End With51Testing软件测试网c@j \ R4t

      .Sync51Testing软件测试网_
LY/DS.m

End With51Testing软件测试网K#i Sa+b@UT/hn

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

'随机读取文件中的一行

randomize 

set fso=createobject("scrīpting.filesystemobject") '创建文件系统对象51Testing软件测试网(_5R5o;U"t_A2j

set a=createobject("scrīpting.dictionary") '类似于二维数组51Testing软件测试网{.GM+Ij

set file=fso.opentextfile("D:\hjq.txt") '打开文件51Testing软件测试网0xQ0z%mc^)\9p

do while file.atendofstream<>true 

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

a.add m,file.readline 'file.readline读取某行记录51Testing软件测试网3Ql8m [b+c

loop 

file.close '关闭文件

h=int(rnd*m) 

msgbox "第" & h & "行: " & a(h) ,4096,"随机内容"

msgbox "第1行: " & a(1) ,4096,"内容"51Testing软件测试网M5q1jd{L;V

msgbox "第2行: " & a(2) ,4096,"内容"51Testing软件测试网,E-`:J}w

msgbox "第3行: " & a(3) ,4096,"内容"51Testing软件测试网9n8pHIq

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 351Testing软件测试网G%o(P p)W5tj+w^wN

 51Testing软件测试网I5UA2pR7@S

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

      With .Frame("wap")

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

             .WebButton("搜").Click

      End With51Testing软件测试网u#RV$Lc^-QX`}

      .Frame("wap_2").Link(a(i)).Click51Testing软件测试网@z)?NQ)Wzs[ U,H-e

      .Sync

End With

Next51Testing软件测试网 i+g/TW b&lb)L

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

set fso=createobject("scrīpting.filesystemobject") '创建文件系统对象51Testing软件测试网T h.G G,Lzb

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

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

wait(2)51Testing软件测试网.V*_ s,jzK!~

do while file.atendofstream<>true51Testing软件测试网lP8sh n,~zR

With Browser("XX项目").Page("XX项目")51Testing软件测试网!j,Y"kVa9l-D|

      With .Frame("wap")

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

             .WebButton("搜").Click

      End With

      .Frame("wap_2").Link("返回XX首页").Click51Testing软件测试网,| i%F6H M.Ql

      .Sync51Testing软件测试网1{n%N t7C;o@7q

End With

loop 

file.close '关闭文件51Testing软件测试网EkLO(MG_8I

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

Dim aasplit

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

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

wait(2)

Do while file.atendofstream<>true51Testing软件测试网\3OR4Ph!t9D

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

      For i=0 to UBound(aasplit)51Testing软件测试网6V3['c3UgD

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

                    With .Frame("wap")51Testing软件测试网+Sx m cB;b:H

                           .WebEdit("key").Set aasplit(i)51Testing软件测试网 G2} C} p/P
J

                           .WebButton("搜").Click51Testing软件测试网M/Ou)E^m3@

                    End With51Testing软件测试网 W"MS7D2R5p7x6}o/S`

                    .Frame("wap_2").Link("返回XX首页").Click51Testing软件测试网O'I,GY,@ r'u4v

                    .Sync51Testing软件测试网g `
t B.m*FG8l0x,c

             End With51Testing软件测试网)G^lR @7d

             51Testing软件测试网&C4y.p@/I z zv

      Next

 51Testing软件测试网(GKM#B4p)Jb

loop 

file.close '关闭文件

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

1， 进入object identification

2， 在enviroment中选择web51Testing软件测试网+|J)Ik;Rv

3， 选择某个test object class，如browser

4， 添加mandatory properties

5， 确定

6， 重新录制脚本

7， OK51Testing软件测试网DFEB6|}[.d%o#j

15      Vbs写文件

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

if (fs.fileexists("c:\hjq.txt")) then51Testing软件测试网 P*q:?L/S`1K

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

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

f.write "hello"

f.write chr(13)+chr(10)51Testing软件测试网\ I%`Z(o7u)m

f.writeline "beijing"

f.close

else

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

f.writeblanklines 2 '写入2个空行

f.write "china"

f.close

end if51Testing软件测试网(EC%l{C)O

 51Testing软件测试网a8K6t2N7MX7PYS0g

16      基本函数

QTP的基本使用函数：

1,获取对话框相应的文字: GetVisible Text51Testing软件测试网.x,r3xKY5Fir Jz

2,查找相应的字符串: instr (1,查找目标字符串,所查找的字符串)51Testing软件测试网 _6w_8}3Hf

3,随机数的获取: Randomnumber.Value()或cstr(int(Rnd*10)+1)51Testing软件测试网H r@$r ^w

4,等待函数: Wait(秒数)51Testing软件测试网6`J?`l(Zi@L

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

6,拆分数组:Split(MyString, ",", -1, 1)51Testing软件测试网%i,[,E6v&WB_#Y i

7,可执行步骤: OptionalStep

8,报告信息: Reporter.ReportEvent 3, "Save Step", "Out of cycle!"51Testing软件测试网o:sO(M,L#M0Oi

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.51Testing软件测试网?8G5F7P$n8b

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可以获得属性。51Testing软件测试网?J%mS$F-ll

 51Testing软件测试网8RZ ct.V+{

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