【软件测试自动化-QTP系列讲座 31】== 管理动态保留对象的隐藏组件 ==
Rss订阅IQuickTest（关于如何订阅？）
作者：zzxxbb112
时间：2010/3/9版权所有，侵权必究。
出处：http://blog.****.net/zzxxbb112
看过我之前讲座的朋友一定对保留对象有一定的了解了，甚至可以说能够熟练应用的，还没有理解保留对象的朋友，可以进入以下几个链接了解下什么是保留对象。
- 【软件测试自动化-QTP系列讲座 16】 == 揭开QTP的神秘面纱 （三）保留对象篇 ==
http://blog.****.net/zzxxbb112/archive/2009/10/26/4730948.aspx
- 【软件测试自动化-QTP系列讲座 24】 == 创建保留对象的会话实例 ==
http://blog.****.net/zzxxbb112/archive/2009/12/14/5003287.aspx
- 【软件测试自动化-QTP系列讲座 26】==保留对象XmlUtil的应用 ==
http://blog.****.net/zzxxbb112/archive/2009/12/28/5090247.aspx
今天这一讲主要是来讲解一下如何使用QTP的隐藏组件来管理我们需要自定义的保留对象
- Mercury.ReservedObjectManager ---- 管理保留对象的COM组件
此组件名大家应该都比较陌生，没关系，我们可以先通过VBSEDIT来查看一下此组件下的方法和属性，首先我们在VBSEDIT创建此COM组件，创建方式如下：
Set mRom = CreateObject( "Mercury.ReservedObjectManager" )
创建完毕之后我们可以在object Browser里看到此对象的所有方法和属性
接下来我们就可以试用一下此对象，看看这些方法究竟是怎么用的。
当我们在对象后加上点时，出现了代码提示，所有方法都显示出来了。
那么我们现在要做的就是如何去运用此组件。
老规矩，上实例
实例：
- 添加对象
Option Explicit Dim mRom,progId Set mRom=CreateObject("Mercury.ReservedObjectManager") With mRom .AddObject "oWsh","","wscript.shell" .AddObject "oDic","","scripting.dictionary" .AddObject "oFso","","scripting.filesystemobject" End With
- 使用对象
progId=mRom.GetProgID("oWsh") mRom.Item("oWsh").popup progId
- 销毁对象
mRom.RemoveObject("oWsh") Set mRom = nothing
运行时，脚本会首先通过获取对象然后返回此对象的progid，接着通过wsh对象的POPUP方法把其通过消息框的方式打印出来。
注意：此代码必须在QTP中执行，直接在VBS里执行会报找不到指定模块
总结：
通过此组件，我们可以在运行时动态的加载我们需要的自定义保留对象，并进行封装使用.
优点：
1.动态加载
2.随时销毁
缺点：
1.代码提示残废
Notes：
好了，说了那么多，大家应该也已经对此组件的用法和概念都已经学会了，那么大家一定想知道我是怎么知道这个隐藏组件的吧
哈哈，答案其实还是在regedit。
大家可以进入到
HKEY_CURRENT_USER ->
SOFTWARE ->
MERCURY INTERACTIVE ->
QUICKTEST PROFESSIONAL ->
MICTEST
目录下找到对应的键和键值
****************END****************