【软件测试自动化-QTP系列讲座 24】 == 创建保留对象的会话实例 ==

Rss订阅IQuickTest（关于如何订阅？）

GoogleReader订阅地址：http://feeds.feedburner.com/iquicktest

作者：zzxxbb112
时间：2009/12/14 版权所有，侵权必究。

出处：http://blog.csdn.net/zzxxbb112

在上一章我们已经介绍了win32 api在QTP中的应用，其实主要使用了QTP中EXTERN的这个对象，，但其实当我们使用EXTERN对象时会暴露出一个问题，EXTERN是QTP的保留对象，当QTP被打开时，EXTERN这个对象只会被实例化一次，并一直持续下去。但是当我们在开发测试脚本的时候，经常会把一些DLL中的方法传递到EXTERN中，而当我们重新修改其中的方法或者DLL时，EXTERN对象有时会出现不能及时获得改动之后的一些方法，或者及时收到DLL的传递信息。有时候可能需要重启QTP才能生效，因此这里提供出了一个很好的方法，通过创建我们自己的EXTERN对象实例，而不是QTP启动时创建的EXTERN，当我们需要更改EXTERN对象的声明时，只需要重新运行我们的脚本，创建方法

• mercury.externObj ---- 用于创建EXTERN对象

'#######启动浏览器########
systemutil.Run "iexplore.exe"

'#######创建API extern对象##########
Set myExtern = createobject("mercury.externObj")
myExtern.Declare micHWnd, "GetForegroundWindow", "user32.dll", "GetForegroundWindow"

'######使用WIN32 API获取窗口的句柄######
hwnd = myExtern.GetForegroundWindow()

'########通过获取的句柄控制浏览器窗口并跳转百度#####
Browser("hwnd:=" & hwnd).Navigate "http://www.baidu.com"

'############释放对象实例########
Set myExtern = nothing

通过以上代码我们可以看到，我们是通过创建自己的一个myExtern对象，一样可以调用API，那么大家肯定要问mercury.externObj这个值是怎么获取的呢？接下来我们就来看一下：

1.首先我们运行注册表

2.进入到HKEY_CURRENT_USER/SOFTWARE/MERCURY INTERACTIVE/QUICKTEST PROFESSIONAL/MICTEST/RESERVEDOBJECTS/EXTERN下的PROGID

这个注册表目录就是存放保留对象的路径，看过保留对象那章的朋友应该很熟悉，没有看过的朋友可以直接去这个：http://blog.csdn.net/zzxxbb112/archive/2009/10/26/4730948.aspx