QuickTestProfessional基本使用示例（原创）51Testing软件测试网c5B'a;wk@ e

1          设置脚本间的间隔时间

Wait(2)，单位：秒51Testing软件测试网|IcV|2?$wQ2s

2          循环语句while

i=0

do while(i<10)51Testing软件测试网|R,t}8l)SViFe
K

Window("Opera").Restore51Testing软件测试网9A7kQ:Sm
FR2x U)B

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

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

i=i+1

loop51Testing软件测试网d7r9vL`U@

3         循环语句for

For i=1 to 3

      Window("Opera").Restore

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

Window("Opera").WinObject("OperaWindowClass").Click 461,27851Testing软件测试网0lg!_B%t9}?~+R-R

Next51Testing软件测试网
D9?uF+cv3N

4          判断语句

Do while(i<20)

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

wait(2)51Testing软件测试网,P1GWBzk$mz7q%lc

Browser("XX项目").Page("XX项目").Frame("wap_2").Link("商铺详情").Click51Testing软件测试网0f{T^/@T1f3_4@

wait(2)51Testing软件测试网pwX4z;i0v@\

i=i+1

If i=5 Then

      Exit do

End If51Testing软件测试网 uN6x7`Fnj!fCin

Loop

5          With语句

Do while(i<20)

With Browser("XX项目")

.Page("XX项目").Frame("wap").Link("生活家居").Click51Testing软件测试网!VH-X7KX+fnf

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

.Page("XX项目").Sync51Testing软件测试网 y(rb8kc A,]D

With .Page("XX项目")51Testing软件测试网sGh4S f A9^

.Frame("wap_6").Image("image").Check CheckPoint("image")'检查点51Testing软件测试网K4}8w6K8uk:MJ

.Frame("wap_6").Link("返回XX首页").Click51Testing软件测试网ahjs/J)q

.Sync

.Frame("wap").Check CheckPoint("生活家居")'检查点51Testing软件测试网7q[7c7E-]bh`B

End with

End with51Testing软件测试网%t:H}^6zSv

i=i+151Testing软件测试网 yj&U"M/b$UZ

If i=3 Then51Testing软件测试网NnQ7J Qhp%jn:_Y

   i=21

End If51Testing软件测试网IH!lMZz

Loop

6         检查点

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

Browser("XX项目").Page("XX项目").Frame("wap_5").Link("出租(火爆招租中)").Click51Testing软件测试网2P#bP(s$X/Hc4W

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

Browser("XX项目").Page("XX项目").Frame("wap_6").Image("image").Check CheckPoint("image")'检查点51Testing软件测试网UG3P%U{ AYnsi m

Browser("XX项目").Page("XX项目").Frame("wap_6").Link("返回XX首页").Click51Testing软件测试网IU
M1Uk.?

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

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

7          引用函数

Function hjq(i)51Testing软件测试网(A*L:[(K2H7^} _

  msgbox("hjq")51Testing软件测试网Rc;N-k9|

End Function51Testing软件测试网jb
y5b)w+N

Do while(i<20)

'开始51Testing软件测试网y~I Sw@#b#HE

Browser("XX项目").Page("XX项目").Frame("wap").Link("啤酒").Click51Testing软件测试网9v&qzk\%x6B$R5o ~

wait(2)51Testing软件测试网#U d:`Z5I D;M0Q1lBY

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

'详情51Testing软件测试网@B0Ye N

i=i+1

If i=3 Then

   i=2151Testing软件测试网OBELJ

End If51Testing软件测试网q3OG)n)l
Q/I

Call hjq(i)

Loop

8          引用action

录制action1，在step->action properties中设置该action为reuseable action51Testing软件测试网?6T5D7\$Z

录制action2，在inser->call to exiting action，选择action151Testing软件测试网F)\"B)T$cl Yx i

OK

9          参数化

在keyword view中设置对象的value为参数，并设置值

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

      With .Frame("wap_2")51Testing软件测试网n.[ rX0g@c

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

             .WebButton("搜").Click51Testing软件测试网8F h Q}&V-Wi&N

      End With51Testing软件测试网$S/J0Is6Q
\b

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

      With .Frame("wap")

             .WebEdit("key").Set DataTable("p_Text", dtGlobalSheet)51Testing软件测试网*u2o8gAa*a-\P

             .WebButton("搜").Click51Testing软件测试网}y1[(Ir'|

      End With51Testing软件测试网*q1qN _"p0UT

      .Sync51Testing软件测试网])w(u/l9@D6`&w n

End With51Testing软件测试网1r#Q8U'NL5^4f&L/j2Jq6e

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

'随机读取文件中的一行51Testing软件测试网g0q t0udM!Uc'O}

randomize 51Testing软件测试网F&ez#L/H6\

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

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

set file=fso.opentextfile("D:\hjq.txt") '打开文件51Testing软件测试网fQR)R3])|Zt_

do while file.atendofstream<>true 

m=m+1 'm记录文件中文本行数51Testing软件测试网jlKO0tj%n^

a.add m,file.readline 'file.readline读取某行记录51Testing软件测试网i F3{RT

loop 51Testing软件测试网'^-eP#I V,|`

file.close '关闭文件

h=int(rnd*m) 

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

msgbox "第1行: " & a(1) ,4096,"内容"51Testing软件测试网6C_s#M7Kw i

msgbox "第2行: " & a(2) ,4096,"内容"51Testing软件测试网$L]+Y EniIv(y

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

11      二维数组的使用

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

a.add 0,"返回XX首页"51Testing软件测试网,h$FeEo8G;N[,\d9u

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

a.add 2,"返回XX首页"51Testing软件测试网(n"n,?_"~_~

a.add 3,"返回XX首页"51Testing软件测试网J#s;@O#K

For i=0 to 351Testing软件测试网9Gf bdvW^o,Z

 51Testing软件测试网H A1Ga8n(Mq?

With Browser("XX项目").Page("XX项目")51Testing软件测试网T!c;I,E?F:Z:@iI

      With .Frame("wap")

             .WebEdit("key").Set "1"51Testing软件测试网 KQ
`"E,a[Xmx

             .WebButton("搜").Click51Testing软件测试网5r4D%h D to/W;Fj

      End With51Testing软件测试网L RwwI9FO_![

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

      .Sync

End With

Next51Testing软件测试网h&_m/UrF

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

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

set a=createobject("scrīpting.dictionary") '类似于二维数组51Testing软件测试网 ^(q;x2Q8eB*EOd,U*R

set file=fso.opentextfile("D:\hjq.txt") '打开文件51Testing软件测试网&Y0~xGaK0{9F;`

wait(2)

do while file.atendofstream<>true51Testing软件测试网xC6q*E'ja

With Browser("XX项目").Page("XX项目")51Testing软件测试网$a*^o*H-jtc"@x

      With .Frame("wap")

             .WebEdit("key").Set file.readline51Testing软件测试网b5j0F#i$[.l~Lw'T {:^

             .WebButton("搜").Click51Testing软件测试网Z6J_?e*nn"G4\

      End With

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

      .Sync

End With51Testing软件测试网1l1t {wNKNJ/OEp

loop 

file.close '关闭文件51Testing软件测试网:mv!xGIo'\ N m+C M

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

Dim aasplit

set fso=createobject("scrīpting.filesystemobject") '创建文件系统对象51Testing软件测试网t E8s1{U5` ZZ NG E

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

wait(2)

Do while file.atendofstream<>true

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

 51Testing软件测试网CRE(eOuSF+]

      For i=0 to UBound(aasplit)

             With Browser("XX项目").Page("XX项目")51Testing软件测试网v7[~6PY
^!cm'i

                    With .Frame("wap")51Testing软件测试网0Q@/F+EG1B6f Q8l

                           .WebEdit("key").Set aasplit(i)51Testing软件测试网,H.D+]2}6S

                           .WebButton("搜").Click

                    End With

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

                    .Sync

             End With

             51Testing软件测试网c6q+zl@ZU
i

      Next

loop 

file.close '关闭文件51Testing软件测试网.q-B2b7yR

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

1， 进入object identification

2， 在enviroment中选择web51Testing软件测试网P8dqP2JLw

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

4， 添加mandatory properties

5， 确定

6， 重新录制脚本

7， OK51Testing软件测试网6k8iH6KM.C

15      Vbs写文件

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

if (fs.fileexists("c:\hjq.txt")) then51Testing软件测试网"Eq'F8I,w?@O

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

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

f.write "hello"

f.write chr(13)+chr(10)51Testing软件测试网~(vH3U2f:zt%G

f.writeline "beijing"

f.close51Testing软件测试网K,A-N2Af/~D0cN5y

else51Testing软件测试网M#{+r%TH&]Q

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

f.writeblanklines 2 '写入2个空行51Testing软件测试网^1N_K kh$?U5Q8O

f.write "china"

f.close51Testing软件测试网(I.^_d1W]@0Z

end if

16      基本函数

QTP的基本使用函数：

1,获取对话框相应的文字: GetVisible Text51Testing软件测试网Lc,{f}.g8iZ

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

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

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

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

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

7,可执行步骤: OptionalStep

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

9,判断对话框是否存在: .exist

10，事件过滤函数：Reporter.Filter=过滤条件(0，1，2，3)，0代表显示所有的error和warning,1，显示error,2,显示waining,3,任何error和warning都不显示。51Testing软件测试网 `$ax7[~o

11，循环函数：do … loop until，for…to… then next,while.51Testing软件测试网5r!@gi3iYg

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

13，获得对象属性的三种方法GetTOProperty，GetTOProperties,GetROProperty,GetTOProperty获得程序中对象当前的属性，GetTOProperties获得当前属性所有集合，GetROProperty获得的是录制时对象所获得的属性。51Testing软件测试网-@jGZE
C'snoM2@

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

15，函数Descrīption,可以获得某页面同标签的属性进行操作。51Testing软件测试网Q!D&`5j*]$];V

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

17，函数Object可以获得当前页面同属性的控件。51Testing软件测试网r!}v)@Nj.X O-O/v}

18，函数Focus可以让控件获得焦点，函数Blur则是失去焦点，click单击，dbclick双击。51Testing软件测试网n9V6Cv:s n

19，函数setAttribute可以设置控件属性，getAttribute可以获得属性。51Testing软件测试网-VFf!h y*?
D$^

 51Testing软件测试网"jh}-^ [y8b2O

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