Qtp代码总结（二）（收集于网路）

Qtp代码收藏（源于网路）51Testing软件测试网Ilx;Xgu1u)k7s

1.在测试中我们使用QTP调试脚本的时候一般就是DEBUG或者MSGBOX察看一些信息,其实有时候也可以使用print来实现批量的察看信息但是不影响程序运行.51Testing软件测试网1}q2{c1i
运行脚本:51Testing软件测试网)s{5WXl

代码:

a="100"
|Z&W.W4S7uO{A ?1I\?0print a

~~~~~~~~~~~~~~~~~~~~~~~~~
a OX6o&e6Q Q2X02.取datatable特定行的数据可以这样使用51Testing软件测试网VeY[eDzyjT
运行脚本:51Testing软件测试网H`cI
oSF,@Q(E@

代码:51Testing软件测试网o-U6VN7g
V

DataTable.GetSheet("Action1").GetParameter("test\").ValueByRow(4)51Testing软件测试网-i|1Gd'T;X

~~~~~~~~~~~~~~~~~~51Testing软件测试网{)J.H6Wqg/o#z
3.Wait Seconds [, Milliseconds]可以精确到毫秒.51Testing软件测试网B8|2L Wg2vx|
~~~~~~~~~~~~~~~~~~
NA`!m"\'?!Y04.在自定义的function里面数组作为返回值.
*g)~Tv;Ec0运行脚本:

代码:51Testing软件测试网%U!i3B BEV,O ^;Ca

circuit = "399937"51Testing软件测试网kJ;|
`j/A+j0R6?;bG-?
Function trimString(circuit)
z;Z&HS)eNl0Dim holdArray(5)51Testing软件测试网f0~9py^ v
holdArray(0) = Left(circuit, 2)
Z0N5H3O)c0holdArray(1) = Right(circuit, 2)
we [$p{B$[Hfo0msgbox holdArray(0) 'showed 39
.Wl7P+yfkj0trimString = holdArray' I get an out of range error here
HC:i v~_0End Function
pY b2s N g0dim myArray51Testing软件测试网akA^gN
'here I want to assign the return array to another array51Testing软件测试网XBt)n^7W5e4s
myArray = trimString(circuit)
[6z3Q D'L3bMC0' and then call one element from it51Testing软件测试网$bZl0|
p%}%]
msgbox myArray(1)

~~~~~~~~~~~~~~~
g\K*_{
ys)JO*p7s05.计算一个操作的时间.51Testing软件测试网6sQ5rJ
D!Ku
运行脚本:51Testing软件测试网)FHjW8QZy1d3y\

代码:51Testing软件测试网J3T zq.th

Browser("Browser").Page("Page").Image("getRates").Click51Testing软件测试网lrZ9^'XQ&K*K
var_StartTime = Timer
R\FpDNH0Browser("Browser").Page("Page").Sync
B(v5p M2rLb+~c0Browser("Browser").Page("Page").Check CheckPoint("Check1")51Testing软件测试网w+U#q W'Yf$^F
var_EndTime = Timer51Testing软件测试网3~Px+Tmj
intRespTime = round ((var_EndTime - var_StartTime), 2 )
0Q O_ Zu/@ zd9[a}0msgbox (intRespTime)

~~~~~~~~~~~~~~~
^`(`%a%M'G06.取得指定sheet(datatable)的行数和列数(也可以理解为参数个数)

代码:

paramcount = DataTable.GetSheet("Action1").GetParameterCount51Testing软件测试网/v#m
a:e4a k
msgbox "There are " &paramcount&"columns in the data sheet."
'o_b0cub&Y0rowcount = DataTable.GetSheet("Action1").GetRowCount51Testing软件测试网#{"p2Ha)ut|;v
msgbox "There are " &rowcount&"rows in the data sheet."51Testing软件测试网/kcKJ)G y#u&dX7v

~~~~~~~~~~
:tlO,jsx07.一种设置全局变量的方法GlobalDictionary
q6Zll3D&Jw X(Y0'Part 1.
0W0}?:G7y nh}!j0'**********************************************************************************************************

代码:

Dim WshShell
%m Tye y
Iscjq QG4e0Set WshShell =CreateObject("Wscrīpt.Shell")
d/YVciy0WshShell.RegWrite "HKCU\Software\Mercury Interactive\QuickTest Professional\MicTest\ReservedObjects\GlobalDictionary\ProgID", "scrīpting.Dictionary","REG_SZ"
}$qF9P8u.g3fCp0Set WshShell = Nothing

'*****************************************************************************************************
h-a%m*v/Z5oG,X @/J"VS _0'Part 2.51Testing软件测试网^cv;ctQ.mhAF
'*****************************************************************************************

复制内容到剪贴板51Testing软件测试网c I6F8T"SIwG

代码:

GlobalDictionary.Add "ParamName", "ParamValue"
n0RuTPh0Msgbox GlobalDictionary.Item("ParamName")
d4z;e)Y dg;V0GlobalDictionary.Item("ParamName")="***********"
&D[e[!czS"BEKO0Msgbox GlobalDictionary.Item("ParamName")51Testing软件测试网}x~~9|6e_ Z9t
Msgbox GlobalDictionary.Exists("ParamName")51Testing软件测试网#l/X go8Iv8T R%qq
GlobalDictionary.Remove("ParamName")
p.R:{(Y5qm0Msgbox GlobalDictionary.Exists("ParamName")51Testing软件测试网)y7F;M)Cj!l4I

'*********************************************************************************************51Testing软件测试网F8L~H+T#S!U${-lI2e

u)c8k u1cleX08.关掉多余的IE窗口51Testing软件测试网-dYU8H4c2B ?y

复制内容到剪贴板

代码:51Testing软件测试网8?KY_VO

SystemUtil.CloseProcessByWndTitle "51testing", True

~~~~~~~~~~~~~~~~~~51Testing软件测试网,nU-l[%Z6X%B.D1}
9.Execute的用法,这个用法在一些特殊时候很有用的.

复制内容到剪贴板

代码:51Testing软件测试网/_W4?|Z:nw2q eR

x="4"
s)l9G/]1C0Execute "Dim A_" & x51Testing软件测试网1Z"L%[
H%FPlu
Execute "A_" & x &"=99"
,ng.A/E2vu-J"eO0Msgbox Eval("A_" & x)  51Testing软件测试网4k W)B&ZZVz{
~~~~~~~~~~~~~~~~~~~

10.GetLastError的介绍,看字面就是取运行最后一个错误51Testing软件测试网z5J F;s!W/e

代码:51Testing软件测试网&B8kPe;s%TR m/S

x = GetLastError
.]B2rQ/tO!o0msgbox(DescribeResult(x))51Testing软件测试网?+B.F;Zme+\){

这样可以在程序里面判断程序运行时候是否出错了.
x9zF'o\|t0~~~~~~~~~~~~~~~~~
(nP(A)j:INBZ011.把weblist抓图下来

代码:51Testing软件测试网;wTn!_5W&U:Cxcm

Setting.WebPackage("ReplayType") = 2 'Default is 151Testing软件测试网J5Yg~c%K
Browser(".").Page(".").WebList(".").Click
)O4Y}Q?0Desktop.CaptureBitmap "C:\Test.bmp",True51Testing软件测试网om9? NH6_{
Setting.WebPackage("ReplayType") = 1

~~~~~~~~~~~~~~~~~~~~~~~~~~
bZE9s,b)M012.Reporter.ReportEvent的新用法
0S&p!gL@3c0transNumber = 12345

代码:

Reporter.ReportEvent micPass, "TransactionNumber", "&transNumber&"

~~~~~~~~~~~~~~~~~~~~~~~~~~51Testing软件测试网0Nujt*A{8p8TY
13.For循环中step的用法

复制内容到剪贴板51Testing软件测试网HI5p.NZ1bN

代码:

For K = 1 To 10 step 251Testing软件测试网9A)N@&_L _XQ`
          msgbox k
%~k#jiYI!v;[%j0Next51Testing软件测试网V9^,C0YI|9X}!rg'?

~~~~~~~~~~~~~~~~~~~~~~~

51Testing软件测试网h#Rqq/wB4]