qtp总结(三)

1、拆分语句split51Testing软件测试网$^Gl+Vc h_
例：取得当前日期后拆分51Testing软件测试网Z/OJ yOl
riqi=date()
8Z0s,S8V9D#kC0    my=split(riqi,"-")
&x~ Wq7ru4JV{0    riqi=my(1)&"月"&my(2)&"日"51Testing软件测试网+\LCWm in$c
    datatable("riqi",DtGlobalSheet)=riqi51Testing软件测试网
B+Ha]8Y"nk
    本地表：DataTable("a", dtLocalSheet)
A"i~` Jq_!bx0riqi= year(date)& "-" & Right("0"& month(date),2) & "-"&Right("0"&   Day(Date),2)
#d*SG?z)g6Qy6W(}0
1X(T.V(O2JTZ02、取得表格中某行某列的值GetCellData
/p6|%u+O.Ww6k0例：飞机票取票价
rs9b|O7`9? r0shuA=Browser("Welcome:MercuryTours").Page("Book a Flight: Mercury").WebTable("New York to Zurich").GetCellData(3,3)
xeX8w~J051Testing软件测试网%p B8} A)v C+j1rL

MVK6HQ pwgu03、取距某年某月某日的天数datediff51Testing软件测试网5[{p;R7G0@4r*z
例：计算距2008-08-08奥运天数
w C;^v0t vp$Xi0datediff("d",now,"2008-8-8")
c ToP,r9Q@ae4B,O0
i DJKj }2fR})Pe0
l1Jz.^ i/^lJ04、描述性编程text:=
toe(~ XW"}T0例：取得某页面上某文字的链接
C1|2D!pV%V0Browser("").Page("").Link("text:=娱乐").Click
wT Vjf.]P~0     或
rLdW#`0     neirong="娱乐"
?V-QM{;c0     Browser("").Page("").Link("text:="&neirong).Click51Testing软件测试网A)Eoq3u
51Testing软件测试网 d8H8U4w0@U2^S{U!B
51Testing软件测试网uMn{E"m7U
5、网页中HTML编辑器的录制51Testing软件测试网j(L:qW$R0{
功能：验证126邮箱的发信功能正确
0x_w9GNF
R0操作步骤：
n:gb)Zv l+{ b0      a.录制脚本，动作包括整个发信的过程。51Testing软件测试网0K|8G P;W2yn$n
      b.修改脚本，在输入信件主题代码后加wait 10语句
$j5fznrp6f?0       c.回放脚本，观察在邮件正文中输入的内容，回放时QTP是否写入
~3h4[+T+H0      d.重新修改脚本，保证回放时QTP在邮件正文中写入内容51Testing软件测试网-}0R0^.Q5gK@

;FeqZbN^0英文解决方案：
L(X
R5y
[O0    Browser("网易126免费邮--你的专业电子邮局").Page("网易电子邮箱 - xueqinzhaoqing@126.co").Frame("indexFrame").WebEdit("subject").Click
0B-z `@ Zc$`R*N0    wait 1
-aNn%RxkX6Zi?0     Setting.WebPackage( "ReplayType")=2      '配置使用浏览器事件或鼠标运行鼠标操作的'方式.1 - 使用浏览器事件运行鼠标操作,2 - 使用鼠标运行鼠标操作。51Testing软件测试网E
Us^:g(Q7wA5xO
     Set ōbj=createobject("wscrīpt.shell")51Testing软件测试网5]H.?$G+D
     obj.sendkeys "{TAB}"51Testing软件测试网T3[cx(Ik#G,{
     wait 251Testing软件测试网;yS;]"H$`#cl|]
     obj.sendkeys "abc1111"51Testing软件测试网_m/Jc;eP/]?ocn
     wait 151Testing软件测试网+kV X!PQY$u,J
     Setting.WebPackage( "ReplayType")=1
,h`,_$|h g4?D+}0中文解决方案
)DtO6q!["R;hZ0
VvcL*]5J+\0I0strCopy = "软件测试." 
fY5M7`:J7?)Q`0Set ōbjIE = CreateObject("InternetExplorer.Application") 
-K$H;V7Z(csa(n`o#w3Y0objIE.Navigate("about:blank") 51Testing软件测试网o"p4[YnL an
objIE.document.parentwindow.clipboardData.SetData "text", strCopy 
'WTEQ.Rt5N8`0objIE.Quit
:MW%YP&u OF ];W051Testing软件测试网?#I W5H~H D
wait 151Testing软件测试网b&M$j @ n(P]D|
Setting.WebPackage( "ReplayType")=251Testing软件测试网7\:Zw~p9h!OiS
Set ōbj=createobject("wscrīpt.shell")
arXT!p!b pchez0obj.sendkeys "{TAB}"
C.H\;o,w VB;J(`0wait 2
h:vt H#^'W:h0obj.sendkeys "^v"
3o7}(`DRoW0wait 1
)@,j7b+N%B6\8h/Br+X#t0Setting.WebPackage( "ReplayType")=151Testing软件测试网r/AS/\p g/L

cv(}e;]lp06.使用MultiTestManager添加文件时可以直接往里拖的哦。51Testing软件测试网4hh8i lH/GB#})D6`O

lGE GA`07.函数：新建记事本，改名为public.vbs例：51Testing软件测试网'u5SFa0G:O+b'l)W
   function ZHIRSS
M
JpKSU_k0ZHIRSS="RSS行业资讯分类维护"51Testing软件测试网%NC9w+`6o9vg"o
end function51Testing软件测试网w#b].cD/N
  使用语句executefile "d:\zhaopin\case\denglu.vbs"或设置QTP test/settings/resources/+函数目录51Testing软件测试网9Tr(h5G4~&t6I!GM-Y
51Testing软件测试网5x3x0B5D9WK mk
8.设置动作循环：右击/actiong call properties/run on all rows51Testing软件测试网.@0@a%{L`k'\
51Testing软件测试网c fVH|4A_ UD
9.设置动作允许被调用：右击/action properties/general/reusable action打勾
W;Et1ggi0
,x,ZvlaU010.QTP与MTM连接：Tools/option/run/allow other mercury products to run...
!bds G:T~}p3S0
(AI2[#Oyz011.插入已存在的动作1）insert/call to copy of action...复制可修改
"u9gopk0                   2）insert/call to existing of action...复制不可修改51Testing软件测试网G sLcS4u)p%U
51Testing软件测试网.IC8E#Y%h:^6^K
12.QTP报告自动跳出设置：Options>Run>View results when run session ends
\4e2a7\{,f0
[B\7P R/B.i o013.判断表格是否存在：51Testing软件测试网gg.@$DvVQ,jW!U+pF
If Browser("数商3.0后台管理系统").Page("Page").Frame("main_5").WebTable("标题").Exist then51Testing软件测试网 m#tZS-jN |5G
reporter.ReportEvent 0,"pass","系统显示了所有的资讯列表！"
X(\)}0Oa'E`/fa2Q0else
9~R4K1iM L0  reporter.ReportEvent 1,"fail","系统没有显示资讯列表！"51Testing软件测试网P5Vk?nuzi6j
end if51Testing软件测试网 mc:thsQx4\u

_-D}9Lxm*EN014.获取表格行数：Browser("数商3.0后台管理系统").Page("Page").Frame("main_5").WebTable("标题").RowCount
c*}?^C)V9|0
r.?.\ ~b*Z!I;m%cq
B015.注释脚本存在位置:qtp/dat/ActionTemplate.mst51Testing软件测试网?6|0Y0id#^Yy


cR#D'Q$p
bg*f3RC016取本地文件名称Function ShowFileList(folderspec)
%e1k z_ddn0   Dim fso, f, f1, fc, s51Testing软件测试网TUI(Lw3x'bnA
   Set fso = CreateObject("scrīpting.FileSystemObject")51Testing软件测试网~2YH0T-{&c
   Set f = fso.GetFolder(folderspec)
4u"e l SdS$~0   Set fc = f.Files51Testing软件测试网Z
c OK,]h-{P-DX!W
   For Each f1 in fc51Testing软件测试网`]JF\(NZ
      s = s & f1.name
PX
N;r%\/I0      s = s &   "  "
V`Hy8s4W
i'T0   Next
raRhq,BR3P,s0   ShowFileList = s51Testing软件测试网ub3y)L!d)j1n:R
End Function
`,W4y"^{hww0wenjian=ShowFileList("D:\下载\本地下载1\")51Testing软件测试网\F0y1]d]aR

|1pUc"X9A017.取本地文件删除：del= DeleFile("D:\下载\本地下载1\")51Testing软件测试网 R"X4PgjQ3k-u]
Function DeleFile(folderspec)51Testing软件测试网8B;O^\H$dC;g5c
   Dim fso, f, f1, fc, s51Testing软件测试网g2\4G7nh&g._9O
   Set fso = CreateObject("scrīpting.FileSystemObject")
@6ZK4wx;Q+MY)^0   Set f = fso.GetFolder(folderspec)51Testing软件测试网u+?~&^0oQ
   Set fc = f.Files
-G LJu/W|#n Q IX0   For Each f1 in fc
'f3k/tc&w.Bhp0         f1.delete51Testing软件测试网+c_3MW:nM f#m u ab
   Next51Testing软件测试网c1md@x2g0iK
End Function51Testing软件测试网3|H$@N.G? B+S
51Testing软件测试网c~#Cq}L4WJ%E
18.sousuo2=Browser("Browser").Page("Page_4").Check (CheckPoint("2007-11-08 14:21"))51Testing软件测试网 w0C:jw#s }
If (sousuo2)eqv(true) Then51Testing软件测试网v g;{3a
M
    reporter.ReportEvent 0,"",""51Testing软件测试网*PoN+Jb;hC-?g
else51Testing软件测试网VA6g@`$R R;X'J
   reporter.ReportEvent 1,"",""
:gmp9rvj u'xO0End If51Testing软件测试网[Ft{@M,x
51Testing软件测试网A*nZQbpB
19.取参数化数据的行数，只在某几行进执行某些语句
Pdi|H] |0row=datatable.GetSheet(3).getcurrentrow
,g-_.r7nM-J3R@6v&qd0If row = 3 Or row = 4 Then51Testing软件测试网Yg@\|xM} F

l_~ U*m9E020.单选框置灰zhihui=Browser("下载中心--新增下载文件").Page("下载中心--新增下载文件_4").WebRadioGroup("downloadType").GetROProperty("disabled")51Testing软件测试网`}~n'?!r
If  zhihui=1 Then
N]4WF u PI2A4c0End If
4}B0Tr L VY051Testing软件测试网T[o:EF
v
29.取树结构51Testing软件测试网u2B5Lbv-~
Set Desc=descrīption.create
T!_ij-k0]0Desc("micclass").value="WebTable"51Testing软件测试网 R1zx1w/Y}9D
Set List=Browser("Browser").Page("Page").Frame("main").ChildObjects(Desc)51Testing软件测试网n[6{;VW
yuqi=List(0).GetROProperty("innertext")51Testing软件测试网4RASYZ7U;a)l``
d
msgbox yuqi
;cD]/cl"aL5j5J0yuqi=split(yuqi," ")
8W7h1L;P*Lj{9F0msgbox yuqi(1)51Testing软件测试网 v_kq#apSz

/P j7zd}030.关闭所有IE
(exf,V Bs9Z0SystemUtil.CloseProcessByName("iexplore.exe")51Testing软件测试网,Z0XE6sn}"R/Z1W0fma

Xy&s0|]#FZT031.创建action template.51Testing软件测试网a M!I0NT l`Mb0M
    当希望在每一个新建action时都增加一些头部说明，比如作者、创建日期、说明等，用action template51Testing软件测试网-ud b.I
ok
    来实现最简单快捷。
'PBT-| kTw1lk0    方法：用记事本等文本编辑器，输入如下类似的内容：51Testing软件测试网YD
Q7gl l
          'Company: xxxx51Testing软件测试网&aI^-jbr2I3Q[-p
          'Author: xxx
$PY%y"vd p0          'Product: xxx51Testing软件测试网a@5r k1c do
          'Date: xx
'YU O;Q3{6h{/U0         然后将文件保存为ActionTemplate.mst，并存放到QTP安装目录下的dat目录。
I(gDN,k,e/?F;h.N0
k'h#e&}t+h)p5d7~6N032.启动IE的语句：SystemUtil.Run "iexplore.exe", "http://www.***.com"51Testing软件测试网?+}1t
E4`n~
   关闭IE或其他程序的语句：SystemUtil.CloseProcessByName "app.exe"
:hfK)N;Lv~e!s0     or  SystemUtil.CloseProcessByWndTitle "Some Title"
8ruX^.BJ051Testing软件测试网|K*ZPj RNC
33.获取图片的名称51Testing软件测试网M.AyC iq
ObjectName = Browser(…).Page(…).Image("Find").GetProperty("Name")51Testing软件测试网`/@1UJp"AS0uB

&^$v9R9T9k6Z&Y$U034.检查某个对象是否存在，如果存在弹出对话框说明对象存在。
1}9QlY9LcB0If Browser("Browser").Page("Page").Applet("login.html").JavaEdit("username").Exist Then
]9z~XQZ0MsgBox("The object exists.")
WmP+v~ S*_0End if
I-KX&k#q p%{0
C:R"}1IyF y'KrA035.同步点
%dWijX7I;[}Hn0Browser("数商3.0制作平台").Dialog("Microsoft Internet Explorer").WaitProperty "visible", True, 120000
$W)~I?)J+[ c3p0设置test/test settings/object synchronizationg timeout 一致51Testing软件测试网7HE-~
g8bO&T

Q3CW#_o"c036.视图框显示为乱码时：调整原页面编码，在QTP/tools/change active screen51Testing软件测试网sZ1XO2]i1gX:~
o_
51Testing软件测试网 eGAxX/A3X
37.添加附件：51Testing软件测试网-q1n8^8{lg$J
   Browser("**").Page("**").WebFile("filePath").Click51Testing软件测试网-f0`#P6?h7`
Browser("**").Dialog("**").WinEdit("文件名(N):").Set "D:\**.jpg"51Testing软件测试网? N`6j1_k
Browser("下载中心--新增下载文件").Dialog("选择文件").WinButton("打开(O)").Click51Testing软件测试网 ^5nxi:`z
添加相应的对象51Testing软件测试网t)K'} q4GB+Psw

(W&YU%A_#L6V3}~*i,j051Testing软件测试网k!mVB*[ e+l|?
38.在图片上右击添加：tools/web event recording configuration/custom settings
3xDm;Xn#F-sp0webedit/event/add/onblur,onchange,onfocus,onpropertychan,onsubmit51Testing软件测试网w0m}PyghECX
webdlement/event/add/onclick,onmousedown,onmouseup/listen always
|F_b$FP0L0
;f.|%wO2S3om.R039.数据执行保护
I5dh`*}n}0  方法一、右击我的电脑/高级/性能/设置/数据执行保护/为除下列选定程序之外的所有程序和服务启用DEP/添加被保护的程序。

[te;e4A0  方法二、C:/BOOT.INT修改noexecute=alwaysoff
SXv,x-`d^+K&pA051Testing软件测试网DED&JOq/m"D
40.在图片上右击添加：tools/web event recording configuration/custom settings
~)D)e'hm!D ]5C |z0webedit/event/add/onblur,onchange,onfocus,onpropertychan,onsubmit
.i9m:J BiZ:X?0webdlement/event/add/onclick,onmousedown,onmouseup/listen always
!q-N$Px6F'h2oG0
4@/V7y*_S?:x3_041.去掉前后空格
V$iF2y|"rt0If trim(mingcheng)=trim(yuqi) Then51Testing软件测试网 VdM O;e${n
51Testing软件测试网8NX|X/Ie
42.分类树问题解决
5v[#Q:qgc*@Dw)H%Z~0Set Desc=descrīption.create
4g_U'iuz#DM0Desc("micclass").value="WebTable"51Testing软件测试网3URz)Xw3z*di
t
Set List=Browser("Browser").Page("Page").Frame("main").ChildObjects(Desc)
LV QJ5K AM4u0yuqi=List(0).GetROProperty("innertext")51Testing软件测试网f4][$gkmLV[
msgbox yuqi
x4y,^\nQS%p1M0yuqi=split(yuqi," ")51Testing软件测试网&F(u}%x7u+M6Fz
msgbox yuqi(1)51Testing软件测试网/T"b%_c4I^J_6s5o'L
51Testing软件测试网v:}VI(b@^A

8QZ8qg5hJ,o8K043.引用自定义环境变量
,g]0A']}0YCwG^!T0Environment.LoadFromFile "D:\询价\case\环境\huiyuan.xml"
o,S2`*cAb0V051Testing软件测试网k!rZ[t@/R0M`"V
44.环境变量有2种，一种是QTP的内置变量，一种是用户自定义的变量。内置变量是可以直接就可以用，自定义环境变量需要在菜单中选择“文件”——>“设置”——>“环境”，在变量类型中选择“用户自定义”,然后进行添加，可以对添加的变量全部导出，导出的文件为.xml格式的文档。既然可以导出，那么必然可以导入.xml文件，你可以在该对话框中的选中“从外部文件导入”，然后添加其文件路径即可。(当然这些操作都可以直接使用脚本来实现，如：Environment.LoadFromFile(“FileName”))51Testing软件测试网'q @M8Bk8i3vs:gI3`5}
例如：在桌面建立一个Var.xml,如下
}G3[^9q3n0-<Environment>    //以这个开始的内部都是定义环境变量，直到以</Environment>结束51Testing软件测试网}W&Yni*X2oaN
- <Variable>                           // 变量定义起始标识51Testing软件测试网sNA,| ].y
~
                 <Name>aa</Name>               // 变量名称
s0f7x
y,~0                 <Value>11</Value>               // 变量值51Testing软件测试网5V6hwyatIa3CBq
        </Variable>                            // 变量定义结束标识
3[4f!q]#gwp8V0- <Variable>51Testing软件测试网 ZFj"v)A`
                 <Name>bb</Name>51Testing软件测试网7v5^]!u/n2?$P4I0OV H:K)NW@
                 <Value>22</Value>51Testing软件测试网 a#E1d _$oT }Yd,P
        </Variable>51Testing软件测试网
Ny?B:X]'q;UO+h
- <Variable>51Testing软件测试网/}kf%WLV
                 <Name>cc</Name>
u/}"i-b*c^OjuR,fp-r0                 <Value>33</Value>51Testing软件测试网 Y/IXT2j*l;w*X#|;Q
              </Variable>51Testing软件测试网4N4y^4tRH6[+|
  </Environment>
~?
rE2@(y5Z;~ x0然后导入本测试的环境变量文件中，在专家视图里编写下面的脚本代码：
$~8p}cv*h0Dim aParam351Testing软件测试网U^;G+h[n9eTvj
aParam3=Environment.Value(“aa”)          // 调用环境变量51Testing软件测试网,L
[nYKzc
msgbox aParam3
+y$v3J+IS-Q0运行测试，会输出”11”51Testing软件测试网5cY#fTRe6?lG
51Testing软件测试网M?t~~ F~tzS
45.在HTML编辑器中写入数据
g ^+Mn0|vI0用低水平录制写入编辑器过程，增加编辑部器前的对象，加入click事件，再用TAB
E#p,RO-fSqm0例如：51Testing软件测试网8T:a)W5b~(U'@
Browser("广告管理").Page("广告管理").WebEdit("descrīption").Click
)L3p3["@ oOQ6c ]}0Window("Microsoft Internet Explorer").WinObject("Internet Explorer_Server").Type mictab51Testing软件测试网dT0r
LKh4fx7{
Window("Microsoft Internet Explorer").WinObject("Internet Explorer_Server").Type "aaa"
@J5J eo(W.O0
.f U:z:hwgZ-zf(H/n&{046.Browser("creationtime:=1").close51Testing软件测试网\X p(h!rUL7} Oc)W
   两个页面title相同无法识别时使用描述必编辑51Testing软件测试网W'VQSn+b@Z
    Browser("creationtime:=1").page(title:=****).WebEdit("name:=***").Set "***"
&R/}$sv:^0    或Browser("creationtime:=1").page(index:=1).WebEdit("index:=0").Set "***"
n6f5p3h:R;AgGu_
@0
.kJn1QlI%x"H8\047.场景恢复：51Testing软件测试网"`DBGf8N$M
   当某些提示框会在不定期时有提示时，如果自动点击确定或某些按钮
T!^a!UA3y3U0   1、tools/recovery scenaril manager,制作相应的提示框和要点击的按钮，并保存
?)?]O4J!Th0   2、test/settings/recovery,添加刚保存的.qrs51Testing软件测试网z(C8R @G2u,u-q

c'@zW])l/o2r048.输入验证码，先提示一个输入框，在输入框内输入验证码，点击[确定]，把输入的验证码框51Testing软件测试网_9b3? q-\%o,w
   Dim a
V3so-? [q j0  a = InputBox("输入名字")
u0o@0k;V.to051Testing软件测试网x J
nWr2m'sD j"P
49.对象库中对象名称不分为_2,_3...设置：tool/options/web/page/fram options/
)Pt\Wq!{0     crate a new page test object for为different test object descrīptons51Testing软件测试网4Zmd;wJT C
     crest a new frame test object for为different test object descrīptions
z3M;j Q-c0
,M/wlW0ee{^050.验证测试输入框输入的最大允许字数功能的正确51Testing软件测试网Oz)k)V9X!k9[I

t x3w$P[y$DX6ZZ0QTP脚本代码中编写51Testing软件测试网GU*PH'z,LZF
Set aa=Browser("Browser").Page("Page").Frame("main").WebEdit("PayTypeName")51Testing软件测试网 I4l6j!axn(e1L
if konglen(aa,20) eqv true then51Testing软件测试网S6?Nf@}p9@Ou9vR
reporter.ReportEvent 0,"添加支付方式，支付方式输入框允许输入的最大字符功能正确",""51Testing软件测试网cl nk*D*I$A}5EL
else51Testing软件测试网?3QR:x_U2{
reporter.ReportEvent 1,"添加支付方式，支付方式输入框允许输入的最大字符功能错误",""
#U@!z"d6YfM3uK0end if51Testing软件测试网Py:}0p B/zv

_k mZ5L ?n1of0此函数的功能为：验证测试输入框输入的最大允许字数功能的正确，函数可写在public.vbs中51Testing软件测试网0? f z K
r Z4A&_
Function konglen(duixiang,guifanshu)51Testing软件测试网kM0Tq3j+d
duixiang.Click51Testing软件测试网`6].d2Z~,x
wait 1
y:S9w@g7p+f}Q/a0Setting.WebPackage( "ReplayType")=251Testing软件测试网4AgT-MQ/Q6P
Set ōbj=createobject("wscrīpt.shell")51Testing软件测试网7H7h/Z[+s(UO
i=051Testing软件测试网?e)E4w yMu8yo o
ōld="a"51Testing软件测试网$y$JZ{9z6T(Y w6A
xin="b"
b5}5E_7o0while old<>xin
d2}'Jt~,H:T)X%Cr-U R_0ōld=duixiang.GetROProperty("value")51Testing软件测试网&G.g6o8Pp(\La
i=i+151Testing软件测试网~F cD7n F
wait 0,20
J2@"tfY$Tq1i0obj.sendkeys "1"
!lAI I/m@!D0wait 0,20
%L$zw~:U&u0xin=duixiang.GetROProperty("value")
)W[ hNE&w)E0wend
)KM&vU
y:el0'msgbox i51Testing软件测试网jXgM&XK
If i-1=guifanshu Then
B{2^,TBi;\3A$r+p_6gA0konglen=true
7^-A:X5Ri zvbp0else

k@
]hJ)T0konglen=false51Testing软件测试网6QXQ5K;FJg^ ?
End If
HZ o q/jn.FDN3q0     Setting.WebPackage( "ReplayType")=151Testing软件测试网(a[\[fK2O
End Function
2C}]!p3Hh$g\0
0y^DSDA p051.超时设置：Setting("DefaultTimeout") =100000051Testing软件测试网_)QK$Y {+f,ym3~
51Testing软件测试网;Z
V%M k|O0OQ
52.共享对象库：Set App = CreateObject("QuickTest.Application")
'E/oU5_ j-V!Mf0App.Test.Settings.Resources.ObjectRepositoryPath = "path"
,@b,U~
z051Testing软件测试网y4C*Z n*iRW
53.取颜色   browser("b").page("p").Object.currentStyle“：.color51Testing软件测试网
?*M\^!dsy/V1B+QG
54.显示行号设置：Tools- --> Editor Options...-->General-->Show line number，

x0n vsR~Z051Testing软件测试网+U qIdJ+D
以上内容源自与网络51Testing软件测试网O u!H(NVrj5wS;y