实例1：获取窗口句柄：
|
'定义变量 Const micLong = 3 Const micString = 8 '创建Extern对象的会话实例 Set oExtern = CreateObject("mercury.ExternObj") '声明FindWindow对象 oExtern.Declare micLong,"FindWindow","user32.dll", _ "FindWindowA",micString,micString '获取记事本对象窗口的句柄 hwndWindow = oExtern.FindWindow(vbNUllString,"无标题 - 记事本") '打印记事本返回的句柄值 MsgBox hwndWindow '释放对象 Set oExtern = Nothing |
分析：
首先，执行此脚本之前需要打开一个记事本窗口，脚本中所实现的功能很简单，就是获取到记事本窗口的句柄，此处一开始需要定义变量，这和QTP中有所不同，因为在QTP的脚本引擎中，已经默认给这些变量进行了赋值，无需进行变量定义就可以直接使用。在VBS中是不可以直接使用的，如果记不住这些变量分别代表的数值是多少，可以查MSDN，也可以直接在QTP中输入以下脚本即可把这些值给打印下来，如图3-118所示。
图3-118
执行结果如图3-119所示。
图3-119
如图3-119所示，直接把这些值复制过去就可以使用了，后面的步骤，除了创建一个新的Extern对象的会话实例外，其他和在QTP中没有什么太多的区别。
实例2：实现一个按钮的点击操作。
假设有如图3-120所示的一个消息框，如何能够直接通过VBS调用API来点击确定按钮呢，如图3-120所示。
图3-120
