QuickTestProfessional基本使用示例（原创）51Testing软件测试网*NR SB6w(y@a D

1          设置脚本间的间隔时间

Wait(2)，单位：秒

2          循环语句while

i=051Testing软件测试网'N(ziK`:|:Nr

do while(i<10)

Window("Opera").Restore

Window("Opera").WinObject("OperaWindowClass").Click 446,23251Testing软件测试网+JPj"piT3U7}6F1R^

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

i=i+151Testing软件测试网"S8V,ksJ |

loop51Testing软件测试网 YZo#w/I

3         循环语句for

For i=1 to 3

      Window("Opera").Restore

Window("Opera").WinObject("OperaWindowClass").Click 446,23251Testing软件测试网'Z7izJ%_Ll

Window("Opera").WinObject("OperaWindowClass").Click 461,27851Testing软件测试网2q5Y"H7rV@-}I1y

Next51Testing软件测试网z7PU6]v

4          判断语句

Do while(i<20)51Testing软件测试网 c-ZpB&z

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

wait(2)

Browser("XX项目").Page("XX项目").Frame("wap_2").Link("商铺详情").Click51Testing软件测试网S:~,n$m$]1[t

wait(2)

i=i+151Testing软件测试网
` K`r:x?/Cp

If i=5 Then51Testing软件测试网:mh8|)EO5T+?

      Exit do

End If

Loop51Testing软件测试网]
m%QYF ~

5          With语句

Do while(i<20)

With Browser("XX项目")

.Page("XX项目").Frame("wap").Link("生活家居").Click51Testing软件测试网7I ^$H.QI,|5H [(^ P

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

.Page("XX项目").Sync

With .Page("XX项目")51Testing软件测试网1s\%R ^a?/y

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

.Frame("wap_6").Link("返回XX首页").Click51Testing软件测试网3c0F8H"IstU

.Sync

.Frame("wap").Check CheckPoint("生活家居")'检查点51Testing软件测试网}"M;yBo

End with

End with51Testing软件测试网/y^q&?cf2l

i=i+1

If i=3 Then51Testing软件测试网p^%Y%|(n

   i=2151Testing软件测试网r KeC}7P)t!XINv"G

End If

Loop51Testing软件测试网y\5p#Dc0F0I3Fp7b

6         检查点

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

Browser("XX项目").Page("XX项目").Frame("wap_5").Link("出租(火爆招租中)").Click51Testing软件测试网%h5N6swAPEB.e5W

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软件测试网9s+rK\&I^

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

7          引用函数

Function hjq(i)

  msgbox("hjq")

End Function

Do while(i<20)

'开始

Browser("XX项目").Page("XX项目").Frame("wap").Link("啤酒").Click51Testing软件测试网yn6EuP#[

wait(2)51Testing软件测试网i(T2p\8z

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

'详情51Testing软件测试网;`C0]0B-@.NI:?

i=i+1

If i=3 Then51Testing软件测试网
m)uJ#gg l

   i=2151Testing软件测试网 bd&X{;I+k@ |

End If51Testing软件测试网Q'U|.P4\v"Y

Call hjq(i)51Testing软件测试网W5l(Dv0^^;m*db'E

Loop

8          引用action

录制action1，在step->action properties中设置该action为reuseable action51Testing软件测试网r4B1V
^Q,Qb

录制action2，在inser->call to exiting action，选择action151Testing软件测试网v.f0M^1F!f0`3c

OK

9          参数化

在keyword view中设置对象的value为参数，并设置值51Testing软件测试网i$tp:] k%b

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

      With .Frame("wap_2")

             .WebEdit("key").Set "1"51Testing软件测试网 _5N%?a"c6o

             .WebButton("搜").Click

      End With51Testing软件测试网.ru%CP0E Xr.Q

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

      With .Frame("wap")

             .WebEdit("key").Set DataTable("p_Text", dtGlobalSheet)51Testing软件测试网r/@4J V8k

             .WebButton("搜").Click

      End With51Testing软件测试网*j6b7z3n i

      .Sync51Testing软件测试网
Fn*j'i:KB&T

End With51Testing软件测试网w sTf!iFYj

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

'随机读取文件中的一行51Testing软件测试网eE+])z]'o8E J"V

randomize 51Testing软件测试网z7N9xKN0vC1i
^-a

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

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

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

do while file.atendofstream<>true 

m=m+1 'm记录文件中文本行数51Testing软件测试网,KVI;D;s

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

loop 51Testing软件测试网tqN2O _b!x

file.close '关闭文件51Testing软件测试网Q%YCCV9E;{

h=int(rnd*m) 51Testing软件测试网%G%|-__"T9@ c n

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

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

msgbox "第2行: " & a(2) ,4096,"内容"51Testing软件测试网zD|#s!\(b

msgbox "第3行: " & a(3) ,4096,"内容"51Testing软件测试网\k/u
jD&CR a })b

11      二维数组的使用

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

a.add 0,"返回XX首页"51Testing软件测试网QV&x%u,lO6T

a.add 1,"返回XX首页"51Testing软件测试网\4z&|
h2Y[d"R

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

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

 51Testing软件测试网B1r_
@3y.] _my]

For i=0 to 351Testing软件测试网t Q\(no_:]a

 51Testing软件测试网@!PCT^:XZF p

With Browser("XX项目").Page("XX项目")51Testing软件测试网'N;xV'Y7?L5W

      With .Frame("wap")51Testing软件测试网VdP6?@Ql

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

             .WebButton("搜").Click

      End With51Testing软件测试网pj)\_4h.Nf3}[3O7nQ

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

      .Sync51Testing软件测试网4tb6Kr l%B

End With

Next51Testing软件测试网2\Y8}sQ \!I?/h

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

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

set a=createobject("scrīpting.dictionary") '类似于二维数组51Testing软件测试网_)?h-\6?3PW6e

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

wait(2)51Testing软件测试网5nP%v'RzIg8@Tn

do while file.atendofstream<>true51Testing软件测试网"X8mt |]/q

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

      With .Frame("wap")

             .WebEdit("key").Set file.readline51Testing软件测试网3mM?A_Fq

             .WebButton("搜").Click

      End With51Testing软件测试网6~$qE R2fa M

      .Frame("wap_2").Link("返回XX首页").Click51Testing软件测试网/qN9NzyLs-O"r

      .Sync51Testing软件测试网Vj`fgD^
O1Nr

End With51Testing软件测试网Mi!OG(za

loop 

file.close '关闭文件51Testing软件测试网6fX
|V.ol

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

Dim aasplit51Testing软件测试网;S{AT$b

set fso=createobject("scrīpting.filesystemobject") '创建文件系统对象51Testing软件测试网 u(\ tzc2\ e

set file=fso.opentextfile("D:\hjq.csv") '打开csv文件51Testing软件测试网0[5t g%e
~7be9Mc

wait(2)

Do while file.atendofstream<>true

   aasplit=split(file.readline,",")'用,分割字符串51Testing软件测试网P([&l(SyO

 51Testing软件测试网3R,lpq5F

      For i=0 to UBound(aasplit)

 51Testing软件测试网|;_+t*ax?_x F6`D

             With Browser("XX项目").Page("XX项目")51Testing软件测试网n*}A(X5b

                    With .Frame("wap")51Testing软件测试网 X"t.sYKV&C

                           .WebEdit("key").Set aasplit(i)51Testing软件测试网]2RY`H6Qt

                           .WebButton("搜").Click

                    End With

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

                    .Sync51Testing软件测试网'u
AxTEg Vcb

             End With51Testing软件测试网n6A{ Gx

             51Testing软件测试网(gJ9F&i$R6p&ACmb

      Next51Testing软件测试网(Z-}Q6\eV$z @9E

loop 51Testing软件测试网l*{\$k8l"um+c

file.close '关闭文件51Testing软件测试网
TG/}%IR {i
v

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

1， 进入object identification

2， 在enviroment中选择web

3， 选择某个test object class，如browser51Testing软件测试网(b
v h)g9M;v2d z

4， 添加mandatory properties

5， 确定51Testing软件测试网uPf9Z$jLJ0E

6， 重新录制脚本

7， OK51Testing软件测试网B\-a"Yfh!~(i#{f|9h

15      Vbs写文件

set fs =createobject("scrīpting.filesystemobject")51Testing软件测试网y.pcOG!Xs

if (fs.fileexists("c:\hjq.txt")) then51Testing软件测试网%n\:nLM$G
eX

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

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

f.write "hello"

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

f.writeline "beijing"

f.close

else

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

f.writeblanklines 2 '写入2个空行51Testing软件测试网-wj HXgJ

f.write "china"51Testing软件测试网a,E KV.omM)QJo

f.close

end if

 51Testing软件测试网UR.~nI-?O2}^&e

16      基本函数

QTP的基本使用函数：51Testing软件测试网7z)_aw^-j"s

1,获取对话框相应的文字: GetVisible Text51Testing软件测试网4it_qC.N(Cc W!bA

2,查找相应的字符串: instr (1,查找目标字符串,所查找的字符串)51Testing软件测试网'^|?#pi UX

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

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

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

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

7,可执行步骤: OptionalStep

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

9,判断对话框是否存在: .exist51Testing软件测试网 S|UJ U p4i'l-s

10，事件过滤函数：Reporter.Filter=过滤条件(0，1，2，3)，0代表显示所有的error和warning,1，显示error,2,显示waining,3,任何error和warning都不显示。51Testing软件测试网 c'X-M4O+S\/^k

11，循环函数：do … loop until，for…to… then next,while.51Testing软件测试网7}/@@,_5W6dA^

12，数据表格：DataTable,向外赋值，Dim aa = DataTable.value(“CellingName”,”ActionName”).

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

14，检查点方法check和输出指定属性值output。51Testing软件测试网(kI,T$|y4[O

15，函数Descrīption,可以获得某页面同标签的属性进行操作。51Testing软件测试网{Fv `%_B5{3q,W,P'T

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

17，函数Object可以获得当前页面同属性的控件。51Testing软件测试网uH]o(W

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

19，函数setAttribute可以设置控件属性，getAttribute可以获得属性。51Testing软件测试网vGLmzz\U%j^

 51Testing软件测试网B'l;R5T+R&O'a

( 本文为junqinghuang 原创，转载请注明出处)51Testing软件测试网WO9^c7W