QTP如何动态添加对象到对象库

hp官方并没有为QTP提供一种方式可以在脚本运行时动态的添加对象到对象库中
这里简单介绍一下如何通过脚本的方式创建一个新的测试对象，
并为其设置属性，最后添加到对象库中。

相信此方法会对设计框架的朋友们有一些帮助。

' 创建ORAOM对象
Set raom = CreateObject("Mercury.ObjectRepositoryUtil")

' 载入指定的对象库文件
oraom.Load "C:\iquicktest.tsr"

'为notepad创建一个新的Window类测试对象并为其设置属性
Set WinObj = CreateObject("Mercury.StdWindow")
WinObj.SetTOProperty "is owned window", False
WinObj.SetTOProperty "is child window", False
WinObj.SetTOProperty "regexpwndtitle", "Notepad"
WinObj.SetTOProperty "regexpwndclass", "Notepad"
WinObj.SetTOProperty "text", "Untitled - Notepad"

' 把notepad窗口对象添加到对象库中
oraom.AddObject WinObj, Null, "Notepad"

' 创建一个notepad下的WinEditor对象，并为其设置属性
Set EditObj = CreateObject("Mercury.WinEditor")
EditObj.SetTOProperty "nativeclass", "Edit"

' 将Editor对象添加到notepad窗口对象中
oraom.AddObject EditObj, WinObj, "Edit" 

'保存对象库文件
oraom.Save

' 释放对象引用
Set WinObj = Nothing
Set EditObj = Nothing
Set raom = Nothing

MsgBox "对象库更新完毕"

说明：其中Mercury.StdWindow为window类型的progID
所有的ProgID都存储在
HKEY_LOCAL_MACHINE\SOFTWARE\Mercury Interactive\
QuickTest Professional\MicTest\Test Objects中。