QTP基础

1 生产随机数列
.V{`%Jh}U
m2Z]0第一种方法
5Aw,m:~|-L1vZ0randomize'更新反回的数据51Testing软件测试网_ Nzpwsx;l$M
funcation rand(k,n)
t E*Y9h-{P
X0n="int((k-1)*rnd+1) rand=n
!Q'y,wIr L.y0end funcation
']+fU,]g6\0第二种方法51Testing软件测试网)_:Ee0N{-}$t"s#wl
n="randomnumber.value(1,255)51Testing软件测试网!AN#b$|"Po^&N/H#k.A

8I9G%i:[2BP0 2  当运行到表中的某一行，自动导出表中的所有数据
VS$G!H%Q4Ve(j0row=datatable.getcurrentrow
y@us.[w:m*fS0if row="5" then
"D4I t7F eR&[0  datatable.export("d:\data.xml")51Testing软件测试网:d/v*q-zN \M#T
end if

3 参数化密码
(F/{ E-vi0webedit("txtpass").setsecure"sdsdf...."
-j?4bLO.If fZ0如果参数化密码，可以直接在数据表中写入未加密的密码，它会自动识别，即不用把setsecure改为set51Testing软件测试网8NQ4a6{h:B9x)sa

9~GN{_;t+JO04　如果弹出对话框就获取上面提示信息并与表中的信息对比，不统一证明弹出的提示出错,主要用来验证
#{*~w6O1D0if browser("web_name").dialog("dialog_name").exist(1) then'如果不出现="false     error_message=browser("web_name").dialog("diaglog_name").static("用户密码错误!".getRoproperty("text")51Testing软件测试网hgdSD1mrM
　　　if error_message<>(datatable.value("error_info"))then51Testing软件测试网qDl3q;{\*LB
         msgbox(error_message)51Testing软件测试网;@H3rl/IrV
      end if51Testing软件测试网"m$P$B4W!O.A/g.t
     browser("web_name").dialog("diaglog_name").close
)I8^4J,T1s\\j0  end if
G2Hdt^0这里我总结了两点技巧：
-g^N/a6zR0　　一是：对于dialog中，虽然提示信息对象名称是"用户密码错误"，但如果信息对象名称是“该用户不存在”，不用更改会自动识别，我想主要是录制第一遍时，“用户密码错误”只是让运行时能找到这个控制，而不管它是什么内容，因为在对象仓库中，text不是决定该对象的属性
?8{%Ps-]0     二是：如果对于提示信息比较长的，可以用mid(error_message,n,m)取一部份特征提示信息进行验证，这样我想可以节省处理时间，又可以避免长度以及空格等字符的处理51Testing软件测试网7\ R2h m3C8g*x6B7pM

+b5M,YP`J05  datatable.value("num")只在global形式下的一种省略形式；完整形式是:
~c F&z(Q0datatable.value("num",dtlocalsheet)51Testing软件测试网]q,e.]:qmz:I| j
-----向某一列的单元格赋值:51Testing软件测试网yJ"@I\W!d Q1_
datatable.value("column_name",dtlocalsheet)="nanjing"
j`s(t9b+wF0-----取得某一行具体值：51Testing软件测试网BIJ;o r:B`Z&n4g8G
datatable.setcurrentrow(n)51Testing软件测试网 l q1^#S#b(G1Ue
msgbox(datatable.getsheet("global").getparameter("column_name").Rawvalue)51Testing软件测试网NKE0Q ^f+WQ&{
或者kk=datatable.Rawvalue("column_name","action1")51Testing软件测试网5} WX-r f!j oA
----在run-time时，动态添加表格与数据
0o*zT m
T0];z1N$J}0kk=datatable.addsheet("sheet_name").addparameter("column_name","value").name;51Testing软件测试网H/cc2_9ap@

-I*R%U(^e
H"dB$mfD07   wintreeview一些操作
neE*X_"bS0选择一个条目:wintreeview.select(item)'根是051Testing软件测试网AF5A8Y2x0n1FT
根的名称：wintreeview.getitem(0)

8   数据库检查点模块:
5ies'U$Y7^T'd^?0sub database_check51Testing软件测试网1?,A*x*lH^#jj$]
set con="createobject(""adodb.connection")
Z&tt!?(m[`8y;[Q^0con.open "Descrīption="IBM_ODBC;DRIVER=SQL" Server;SERVER="IBM;UID=sa;""&_51Testing软件测试网Z$D%{]:^L0wm-q/N2Z(q
                 "PWD="123456;APP=Quick" Test Pro;WSID="IBM;DATABASE=IBM_table""51Testing软件测试网)Ix[!u,_Ww"A
'access方式:con.open "DRIVER="{Microsoft" Access Driver (*.mdb)};DBQ="d:\test.mdb""51Testing软件测试网 F1ren#G9JtfG*}
'Orocle方式:con.open "DRIVER="{Oracle" in OraHome92};SERVER="CESHI;UID=CND_TEST;PWD=CND;DBQ=CESHI;DBA=W;APA=T;51Testing软件测试网-XG`:HOr

EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=Lo;BA51Testing软件测试网H8r Jkkm.o#z

0\hsE0nn@)G7|]7_0M=IfAllSuccessful;MTS=F;MDI=Me;CSR=F;FWC=F;PFC=10;TLO=O;""
7ck7P OrR!n0set record="createobject(""adodb.recordset")51Testing软件测试网E+]-W L'B~
sql="select*from ibm_one_table"51Testing软件测试网6V&zV+I8aD8~}-|
record.open sql,con51Testing软件测试网M ]6n@D2Xr p
DO51Testing软件测试网aU7zTt8~"w
if(record("ibm_table_column")="kai")then'//查找表格中有多少kai
c:as,L*tC
K0num=num+1;
*c(rf!_ s0laF@!?0end if51Testing软件测试网?S2wV I!g$U(Q_
record.movenext51Testing软件测试网@-O?gL+Ns O`}
loop until record.eof="true record.close
C\r1p{`j ?Q0set record="nothing con.close
8@`%j#a9T;~9Sn}0set con="nothing end sub51Testing软件测试网d)P0PRW0y1l^a

9   换行符
7v S Wh3c|Tg"B0vbcr----chr(13)回车符// vblf----chr(10)换行符
!BbidVvQ0    vbcrlf----chr(13)+chr(10)结合//type(chr(13)就相当于按了一上键盘上的enter51Testing软件测试网h"f _!~hk

Z `7B2\Y v#cH010  Run from step有两种方式：51Testing软件测试网-lnp+F:g(utKw-r
在Keyword View模式会从本步骤运行到所有action结束51Testing软件测试网)V{)]"w,n
在expert view模式仅会将本action运行结束

11  由于对象属性原因，无法识别对象51Testing软件测试网uYK(D,[ Q)Kg~
-----对于对象属性是变化的，可以参数化/或者用正则表达式51Testing软件测试网B0?%u
q;y8HP z
-----报匹配多个对象错误，可以spy查看对象，添加一个该对象另一个唯一标识属性51Testing软件测试网7B:m0OI#TGV&O+v
-----有时可以删除对象的变化的属性来解决识别问题
.xo*b)yy-RB"s$ZCdZ0------对于多个完全相同的对象，可以采用添加index,location,createtime等特殊属性来识别
5e} y6M2nD7?%hlLk0　　(index:按照程序源码，绘制对象的先后标识对象，所以与其它相同对象是相互依赖，当其它对象发生
{:L!X!_ C(l0　　变化后，原先的所有对象index属性要发生变化，开始是0；如index:="0;         location：根据对象的位置进行确定，从上到下，从左到右;51Testing软件测试网)p nr t%z:W
　　CreateTime：按照对象被浏览器打开的先后标识对象)
^}j/H2zW`:}/M0------另外换一种思维方式，采取等效的方法；比如用键盘代替鼠标或用操作系统本身特性去解决问题51Testing软件测试网#G8K Y R.\;`g

12  对系统文件的操作51Testing软件测试网yk@"y8qswT5q
-------从系统的文件中获取信息及删除文件51Testing软件测试网w)x]R_,JP%s2D8L
  get_file_infor("c:\she.mpg")
W@}Vp0   function get_file_infor(url)51Testing软件测试网,WL3}/PPa cY i
    dim fso,f51Testing软件测试网/z)_e6w lBC.QI1R s
    set fso="createobject(""scrīpting.filesystemobject")
D1eR,nK,?0    set f="fso.getfile(url)"
!A0MC*K(f5j:[I0    f.name:f.size:f.type:f.datacreated'///获取文件信息
4d9n7Qn{X`'Myh0    fso.deletefile(url)'/////删除文件51Testing软件测试网+J*^5~d%MH0c
   end function
gm&|7e5X0--------获取文件夹里所有文件信息
hU0a4nay4^/y0get_folder_infor("c:\kai")
S F!t S%Q*Y:M0function get_folder_infor(folder)
X3n"vz6J#F#F:[S a0dim fso,f,f1,n
5[M+YiK A4x lF0set fso="createobject(""scrīpting,filesystemobject")
z
s"ab2Hg(}0set f="fso.getfolder(folder) set fc="f.files for each f1 in fc
CU.TDHM8O/?0select case f1.name51Testing软件测试网/Qt
AW/Q
case"kai.mpg","she.mpg","dd.mp3"'//检查文件夹里是否含有这些文件
IWM o~8b(\._0j;u0end select51Testing软件测试网ENR3GF zGTd
next
'r4A(n2xf9N/Z0end function

,wE;O RqJ0 51Testing软件测试网y%m-z%IZEl

13   等待某个对象出现方法
*F%FCC0@+ttd0y="......waitproperty(""visible",true,10000)

 51Testing软件测试网$B;KQd2s/f3U8O

eB:a^$M7U8R p014   防程序中断方法51Testing软件测试网:@-eDKt}#H1_!j5aD4F5Wg3Q
On error resume next
e]`c'r
W G,Q0On error goto handle

 51Testing软件测试网+} \*d+L7E;|

15  数组的应用:51Testing软件测试网iJ8vk)M:o:U
name="array(1,2,""aa","bb")
oj4{r;K:^*ZE'a0name(2)="aa"51Testing软件测试网7qHJl0m s3f

16  正则表达式应用模板51Testing软件测试网X1QG!Jz@-K
~.\
进行日期YYYY-MM-DD的格式检查　:51Testing软件测试网9BYO.U@*cea"[
Function RegExpTest(patrn, strng)51Testing软件测试网K t.c1Nt*{&Dfv
  Dim regEx, Match, Matches      ' Create variable.
j abde.ag#v @2y0  Set regEx = New RegExp         ' Create a regular expression.
8}1Mh@-AJW;Y)S0  regEx.Pattern = patrn         ' Set pattern.
dW_x_~0  regEx.IgnoreCase = True         ' Set case insensitivity.
r*e-AeB~+K0  regEx.Global = True         ' Set global applicability.51Testing软件测试网!VUx@-Q#c]S
  Set Matches = regEx.Execute(strng)   ' Execute search.51Testing软件测试网DG0{ `d
  For Each Match in Matches      ' Iterate Matches collection.
{'l+[4HDk0    RetStr = RetStr & "Match found at position "51Testing软件测试网O h1SX5H#AB;c/O
    RetStr = RetStr & Match.FirstIndex & ". Match Value is '"51Testing软件测试网)R[ Q1F&~j U/w
    RetStr = RetStr & Match.Value & "'." & vbCRLF51Testing软件测试网_2|?$?2f
|G2K
  Next
O l*X'?0J$l0  RegExpTest = RetStr
9qv ~j]2OL @Q0End Function
!Re5FK{!k0date_pattern="^((((19|20)(([02468][048])|([13579][26]))-02-29))|((20[0-9][0-9])|(19[0-9][0-9]))-((((0[1-9])|(1[0-2]))-((0[1-9])|(1\d)|(2[0-8])))|((((0[13578])|(1[02]))-31)|(((01,3-9])|(1[0-2]))-(29|30)))))$"
gN'|d-U1Z"~+@^A0result_message=RegExpTest(date_pattern, inputbox("请你输入要检查的时间："))'用其它正则表达式更改此处
T?GPY\;I0Select case result_message

F+g-EqD)N-G0Case ""
Qo,us"V;B%eN&}0         msgbox("你输入的日期格式与标准不匹配")
&L#XQ.YL0case else  MsgBox(result_message)
{1k~Y0f.s@5A'I0end select

 51Testing软件测试网-_#G9tZ*Q(Nf2o-XpY+_

17   返回一个字符串在另一字符串中的位置51Testing软件测试网Z#k_ty*M MB
instr(string1,string2)

 51Testing软件测试网kE6D Z R!}(E(l

F.b]BEf'T1j{018   有时回放出现找不到对象时，可能不是由于你的代码问题，而是由于你的操作系统等设置问题；
/]2tWg)t0mW0举例说明1：
%B'["F&jin6O Q(G0比如：你录制一个选择磁盘中的文件动作
Mpc8NWO z)y!e0会录制为：51Testing软件测试网4IZQbN3IQ/X"K+P
.winlistview("  ").drap 46,99
5|C I$?1U'an(x&o Z0.winlistview("  ").draponitem "she.mp3"
g$o g-l#mZ B0下次录制的时候，如果你的系统文件改为不显示扩展名，下次执行的时候，QTP就找不到she.mp3，只能找到she;51Testing软件测试网j7e3m$M3b&Fc
举例说明2：51Testing软件测试网S&ij.{0aW3K}J6Q}E
有时由于不同操作系统以及不同的ie，导致有些窗口不能识别，比如在2000下弹出的网页对话框的标题是：51Testing软件测试网a`']fV3h"``7|
“web对话框",而在2003上是”网页对话框"51Testing软件测试网p*xwwGDRnt:s

19  "is+*"类型function51Testing软件测试网)@o I*o0v`
isarray'是否是数组
Sm;vG.bT {g3nZ s5KH0isconnected'判断QTP是否连接到TD
(s'x*JSO2j#U6\&e0isdate'是否是合法的日期类型51Testing软件测试网C/F2m3{ a:x&|`(t
isempty'判断是否初始化51Testing软件测试网&B7oe|%k6|
Het
isNull'判断是否为空值51Testing软件测试网 r"M([-ejT%U.`
isNumeric'判断是否是数字型51Testing软件测试网;VW"TP ZuI K
isobject'判断是否一个功能对象51Testing软件测试网e)g| D.{ao:Lu/L
isready'判断设备是否准备就绪51Testing软件测试网M_ ?~%hxW)d*G8@
c
isRootFolder'是否是根目录51Testing软件测试网wc3O0p&R*J(N

3[g2@fY0 51Testing软件测试网agW/pC

$`Y} _Cp020 Action之间的参数传递
$l5~'D Ud-Yz'`t0例如:在Action1中，有如下代码:51Testing软件测试网\W}kz~PH_
out_str="This is out_string"51Testing软件测试网yvuSV1z
RunAction "Action2",oneIteration,out_str51Testing软件测试网 P\)Vir
在Acton2中，在其step->Action Properties中的，input参数栏，加入out_str后,
+CogJ(Ppi3L0msgbox(parameter("out_str"))，就能正确显示参数了　

D#}}f4Rh)Yi0 

21 Wscrīpt.Shell的一些应用
&r|9Q9X\)z4q0set WshShell ="CreateObject(""Wscrīpt.Shell")51Testing软件测试网Q ft }m6H
WshShell.SendKeys "{ENTER}"　　　　　'模拟键盘进行操作51Testing软件测试网%ukI%d%C'MI
WshShell.AppActivate "Calculator"             '启动应用程序51Testing软件测试网*yw`R ^
XFs

1s\bX)B H-?Y)C'`9|D)x022 获取对象属性名称用法:
jR)BiYeF0GetRoProperty----从应用程序界面上获取对象属性（即，是脚本运行时，获取的对象动态属性值）例如：获取对象库中index属性值，似乎只能用GetToProperty,因为应用程序界面上对象没有该属性，只是QTP为识别该对象创立的描述属性；51Testing软件测试网u_xD8U4D0hWJ
GetToproperty----从对象库中描述对象的属性，静态值
6p\5[ojF2P(j0j0GetToProperties----获取用于标识对象的属性集；对于这个集合，有count等属性方法51Testing软件测试网*Ma)JcJ7WGAO|

m7h.{)S+W0gv1GYu0 51Testing软件测试网Mf#B6c
_ gl

23 FireEvent的使用可以对一个对象进行更复杂的操作51Testing软件测试网C1sI#rkb5kh
如:FireEvent("onfocus")   '使一个控件获取焦点51Testing软件测试网(n(H9f Usx!n
     FireEvent("ondblclick")  '实现双击/也可以在事件设定中针对该对象事件响应　　

PE*L `|3gArks0 51Testing软件测试网wg:YKu]Z0D

24 模板的应用51Testing软件测试网_,~n.{&{~
-----新建一个文本，输入一些新建Action时常包含的信息，然后保存为ActionTemplate.MST文件,
,nL Oj%|m0　并复制到QTP/dat目录下；这样每次新建action都会包含固定的信息了;
;k4\K t;xXLE/z;C#@5V0例如:

aR5} H:j*dn0D0'-------------------脚本说明---------------
4h-J5^7K!X-R t0'产品版本:      __Build(  )51Testing软件测试网}QNvqi
'测试员:
~8v2Jn:\+y0'编写日期:51Testing软件测试网k+s!k'q d8Y
'测试功能:
T%XX(caw5^"?0'脚本类型:
!q5w%wYi p0'被测试对象初始状态:
;v)Df7WIib&RPR0'进展程度:51Testing软件测试网a fUP#dg9qX#fp3{
'基本思路:
jKe Ik`F0'主要功能函数:51Testing软件测试网t'z
U ~ _o
'历史修改:51Testing软件测试网q@&_B,|*Au)a.]
'没解决的问题:51Testing软件测试网7^%Fa!Q1T'N7t
'--------------------脚本内容-------------

25 在对象库中，两个对象有时不能通过更改属性或命名来达到两个对象完全一致的替换；
cz {:[ X;L0在web-mod项目中，我在对象库里添加了一个自动含有index标识属性的对象，然后每次通过SetToproperty来改变51Testing软件测试网2fD6Yu}2PTI
index值，对对象进行数据驱动，使其操作另一个对象，但脚本始终操作原先index属性值的对象;后来，把该对象
w8zl9d7U0删除掉，重新添加一个不自动含有index标识属性的该类对象，然后，手工添加，index标识属性，后来脚本能正常工作了，可见两次的对象属性完全一致，但形成方式不一样，导致的结果往往也不一样;

 51Testing软件测试网X2T(o7O#Mz'KV5j

26 childobject的应用51Testing软件测试网$vf!qFnpuU
childobject可以返回界面上满足条件的对象集合，而且与对象库里是否有这些对象无关，这就可以简化对象库；51Testing软件测试网jyW;XU*A
返回的对象集合的count方法可以返回对象个数，这就可以通过下标对单个对象进行操作；在出现index标识对象时51Testing软件测试网VW(T?!B
可以进行运用51Testing软件测试网A1_#n^ p
如:Set m_WinCheck="Descrīption.Create()       m_WinCheck("nativeclass").Value="Button"
|7RF0e.w7K*G0      set All_WinCheck="Window(""").Dialog("").Childobject(m_WinCheck)51Testing软件测试网E:\M*kUH
      n="All_WinCheck.Count()      for i="0" to n-151Testing软件测试网4M h5FK`FmHa
      All_WinCheck(i).Set "ON"51Testing软件测试网+@Zi-R Fo
     next