QTP常用的com对象的使用

QTP常用的com对象的使用51Testing软件测试网J4^ O:Xr^8{`r4YJ

QTP常用的com对象的使用：

实例1：

ExecuteFile  "C:\DBOperation.vbs"  '调用VBS文件51Testing软件测试网 B m/GV#l0z4} eZ"Z7B!g

Dim objConnection,objRecordSet  '这两个实例一定要先定义(CONNECTION对象实例&RECORDSET对象实例)51Testing软件测试网#Wxy+E3p6E-eW+s

DBConnect()  '连接数据库

Dim Sql
cOr3QU6^0y0Sql ="select * from com_prj_info where prj_id ='837'"

ExecuteSql(Sql)  '执行SQL
'hT)K.K5^!w!sUVFy0      Msgbox(objRecordSet("prj_name"))

DBClose()  '关闭数据库的连接51Testing软件测试网`7e5YMR:}/t F9~

'-----------------以下是DBOperation.vbs文件的内容.------------------------------------

Public Sub DBConnect()
0Iib6ud@mS0'Dim objConnection     'CONNECTION对象实例51Testing软件测试网Kx!j m {|q&Q
'Dim objRecordSet       'RECORDSET对象实例51Testing软件测试网
O@b0\@
Dim objCommand          '命令对象实例51Testing软件测试网d!fV*Qo
Dim strConnectionString  '连接字符串
i9~Ne t!uI#SAj,o0Set ōbjConnection = CreateObject("ADODB.CONNECTION")                '1 -建立CONNECTION对象的实例51Testing软件测试网Q!k9i%? p;h8_
strConnectionString = "Driver={Microsoft ODBC for Oracle};Server=ruanko;Uid=ruanko;Pwd=ruanko;"    '2 -建立连接字符串51Testing软件测试网G9HmB;O
objConnection.Open strConnectionString                                '3 -用Open方法建立与数据库连接
#R4AC5S'd-dX0End Sub51Testing软件测试网-a7@y v6}bA|F

Public Sub ExecuteSql(strSql)
? s5vz;Z/W0Set ōbjRecordSet = CreateObject("ADODB.RECORDSET")                '4 -建立RECORDSET对象实例
;G iPhc:zE@?x0v
Y0Set ōbjCommand = CreateObject("ADODB.COMMAND")              '5 -建立COMMAND对象实例
4n.~ x&@FS0objCommand.ActiveConnection = objConnection51Testing软件测试网sgi5t^k"Xu
objCommand.CommandText = strSql
R#_-e6K,n%T0objRecordSet.CursorLocation = 3
[s[wS%Ws?e0objRecordSet.Open objCommand    '6 -执行SQL语句,将结果保存在RECORDSET对象实例中
BO$I0Qeqk-Jz
@0End Sub

Public Sub DBClose() '关闭数据库连接
Z9r8o$lr1s c/@q mf0objRecordSet.Close
:aX?*uf!PM7F0objConnection.Close51Testing软件测试网g(H)E7N+r]^ c
Set ōbjCommand = Nothing
x+U!X-HO
Cj0Set ōbjRecordSet = Nothing51Testing软件测试网8rD,db HC
Set ōbjConnection = Nothing
V!@CA?Th0End Sub51Testing软件测试网&J}xf+j7imfZ

实例2:51Testing软件测试网2H?7Rc"wG}i

        DeviceReplay对象可用于在QTP中直接操纵鼠标和键盘，例如单击鼠标、发送键盘按键、输入字符串等动作。

下面的脚本首先创建DeviceReplay对象，然后使用其SendString方法发送一段字符串，然后使用MouseMove方法移动鼠标，使用MouseClick方法单击鼠标：51Testing软件测试网 K8zD_o%n5l}7M

Dim devicereplay51Testing软件测试网
`|1s-KlO j5H

word = "Hello World!"51Testing软件测试网2_j!D3})s

Set devicereplay = CreateObject("Mercury.DeviceReplay")51Testing软件测试网S8g w z"I9MBQj8eb

devicereplay.SendString(word)51Testing软件测试网 P/s(uX0pz/a

devicereplay.MouseMove 200,200

devicereplay.MouseClick 200,200,LEFT_MOUSE_BUTTON51Testing软件测试网d(`0G[8r9S`

而下面的脚本将按下“SHIFT”键：51Testing软件测试网uw N4V~b

Dim devicereplay51Testing软件测试网0?a2Ag+qyv8|!b,O

VK_SHIFT = 42

Set devicereplay = CreateObject("Mercury.DeviceReplay")51Testing软件测试网/BF)}X"W.h

devicereplay.KeyDown(VK_SHIFT)

实例3:51Testing软件测试网pB%Y#}S2x

Set Fileobj=CreateObject("scrīpting.FileSytemObject")51Testing软件测试网nn(v.N Ka

msgbox FileObj.FleExists("d:\tmp|111.txt")

实例4:51Testing软件测试网6^g#f*M/WHT?Ji

在QTP中，可以把Dictionary当成数组来用，而且可以随时添加数据，而不需要预先定义大小。51Testing软件测试网M%D?+b w-V:Z#x0?d

'创建Dictionary对象51Testing软件测试网Z&j'hk,s1Qv4k3^
Set Dic = CreateObject("scrīpting.Dictionary")51Testing软件测试网+EW3|u{-y-MLl
Yb
'添加Dictionary的key和value51Testing软件测试网A8K+G%A
i%Ic!C_
For Iterator = 1 To 3 Step 1
@2mQ[B~0 Dic.Add CStr(Iterator),Iterator & "_Value"
3G]T%~D[t0Next
CeieXSM0'循环读取Dictionary的key和value
uaa j3R+`j0L0For Iterator = 1 To Dic.Count Step 151Testing软件测试网CWyX#cp2K
 Msgbox  Dic.Item(CStr(Iterator))
bRVd]FZ0Next

DicArray = Dic.Items
2u}1vz:NzQ/O0'For I = 0 To Dic.Count51Testing软件测试网 A:D"SMfOQ2o_
For I = 0 To UBound(DicArray)
&T Bw^D#I$G we0 Msgbox DicArray(I)51Testing软件测试网Pdw X1Hdr
Next

'判断是否存在某个Key，如果存在，则把其去掉
3_I4mfB
m/X0If Dic.Exists("2") Then51Testing软件测试网7mn9j-PF8P
 Msgbox Dic.Item("2")51Testing软件测试网oN u1E \s }a.Q&D
 Dic.Remove("2")51Testing软件测试网8kEP K%C8Z
End If
f eT|&u ?mW:Jj0Msgbox Dic.Count51Testing软件测试网C9YwVgrm
'清空所有Key和Value
RL
q,d9vq1|
N0Dic.RemoveAll()51Testing软件测试网7eTy/|n$w's_2q?4I

参考：

文件系统对象相关:51Testing软件测试网UT |As@
("scrīptING.FILESYSTEMOBJECT")

应用：数据驱动技术常用，日志输入常用

字典相关:51Testing软件测试网*xxQ`zJ&E0Z_
("scrīptING.DICTIONARY")51Testing软件测试网x|i&cG

应用：脚本配置控制开关list对象item数据对比

脚本外壳相关:51Testing软件测试网mcW#d,_#Q@
("Wscrīpt.SHELL")

应用：最常用其中的sendkeys方法，利用在不可识别对象技术方面51Testing软件测试网8S4YV3P`VP @:Dx

WINDOWS外壳相关:
/CC)O0qm0("SHELL.APPLICATION")51Testing软件测试网%_mS P8lYq+KU(b

正则表达式相关:51Testing软件测试网Gy&C S4t
("VBscrīpt.REGEXP")51Testing软件测试网9@)wk Q0H/E.MQ

应用：网页解析，数据对比验证点技术实现的一种51Testing软件测试网HYO,B"Au

编码与密码相关:
U D m] E?0("scrīptPW.PASSWORD")
n/[x&e\0( "scrīptING.ENCODER" )51Testing软件测试网;H+d}b7r!Yg?c

应用：数据包传输测试过程中应用51Testing软件测试网2y3`0_oc4D

邮件发送的组件相关：51Testing软件测试网$Br
q S;La/]
("JMAIL.MESSAGE")51Testing软件测试网'b"P'MwL%A%iJn
("CDONTS.NEWMAIL")51Testing软件测试网
o.t1[RrQ-~
("CDO.CONFIGURATION")51Testing软件测试网7\)B#j(I.]4_6n7X,f-p
("EUDORA.EUAPPLICATION.1")
&pC'n2V4x`C\yr0("NOVELLGROUPWARESESSION")51Testing软件测试网.{A-\mv6x#p

应用：测试报告发送

水晶报表相关:51Testing软件测试网{:Hq1X:f
 ("CRYSTALRUNTIME.APPLICATION")51Testing软件测试网8EJ2K'U,_/@jG

应用：测试报告美化，常用的是excel的报告输出，这种技术用的少51Testing软件测试网.g2eY5_zt [![6r

IE浏览器相关:51Testing软件测试网WfG!h*gR:K)K
("INTERNETEXPLORER.APPLICATION")51Testing软件测试网/m/S-gAi6a'N%B/jD

应用：web测试用的比较多51Testing软件测试网gfE-}|*E&H

ADO相关:
4Y~/uayw0("ADODB.CONNECTION")51Testing软件测试网E0W}H)G+Oz j~Q.\&F
("ADODB.COMMAND")
A1S Y:HE]0("ADODB.RECORDSET")
F(r'A8C7S:vf,c0("ADODB.RECORD")
_+N)Kfk0("ADODB.STREAM")
U-M#X']9KP;d"a?0("DAO.DBENGINE.35")
F ci#S+d2`9@3h5g0("ADOX.CATALOG")51Testing软件测试网
mEzz&lo{:g
("ADOX.TABLE")51Testing软件测试网"e(^#P1Pe7h2q0S@"}

应用：数据驱动，数据库验证，dao主要利用在access数据库处理51Testing软件测试网#Zk
?1bk ]"N M

SQL相关:
KZ6J$nXc6?$h0("SQLDMO.SQLSERVER")
8GG)\/N@|q0("SQLDMO.LOGIN")51Testing软件测试网@k.[a/vI|!@%Z
("SQLDMO.BACKUP")
6^U|n6B.\0("SQLDMO.USER")51Testing软件测试网,o$G+e8Zo5VF0O)|
("SQLDMO.BACKUPDEVICE")
L
d]y6j p+R.s0("SQLDMO.DATABASE")51Testing软件测试网9H,F3R(t:oW@[
("SQLDMO.RESTORE")
wPa"Gzm~ cO9{0("SQLDMO.APPLICATION")

OFFICE相关:51Testing软件测试网)g
c'dU,\
("WORD.APPLICATION")51Testing软件测试网R;[7i"p b@HQ/P b
("EXCEL.APPLICATION")
gj)K%@BZ.A KS0("POWERPOINT.APPLICATION")51Testing软件测试网
K7E$CjH1[ W
("EXCEL.SHEET")51Testing软件测试网7AI/s}B!]v,n%u+C
("FRONTPAGE.APPLICATION")51Testing软件测试网5vldwW
("ACCESS.APPLICATION")
"o~9b{r!|#fo0("MSGRAPH.APPLICATION")51Testing软件测试网\'zLI&J}7S6f@
("OUTLOOK.APPLICATION")

应用：测试报告输出，数据驱动WMI相关:
]'O$BB(P [5O\/L7F0("WBEMscrīptING.SWBEMDATETIME")
b+},cI"?4j^/N0("WBEMscrīptING.SWBEMLOCATOR")51Testing软件测试网~j!|:^LV
("WBEMscrīptING.SWBEMNAMEDVALUESET")51Testing软件测试网*k/ElI9kF
u#?
("WBEMscrīptING.SWBEMSINK", "SINK_")
W1CW;i o
@V$pW0("WBEMscrīptING.SWBEMREFRESHER")51Testing软件测试网8VP \^,Sn
("WBEMscrīptING.SWBEMLASTERROR")51Testing软件测试网:AE Y F'hQK1Ft
("WBEMscrīptING.SWBEMOBJECTPATH")

以上自理收集于网络51Testing软件测试网;itlz8?4Lm