VBS中CreateObject函数的作用是什么-创新互联

本篇文章给大家分享的是有关VBS中CreateObject函数的作用是什么，小编觉得挺实用的，因此分享给大家学习，希望大家阅读完这篇文章后可以有所收获，话不多说，跟着小编一起来看看吧。

用VB来编写一个COM组件，然后给它起个名字demon.tw，那么注册该COM组件之后，就可以用CreateObject函数来创建了：

Set blog = CreateObject("demon.tw")
blog.Open '假设我的COM对象实现了Open方法

我们常用的Scripting.FileSystemObject、WScript.Shell、ADODB.Stream等只不过是微软开发的系统自带的COM对象的名字罢了。

那么CreateObject函数是如何创建对象的呢？用OllyDbg跟了一下，核心的代码大概可以分成四步：

第一步调用CLSIDFromProgIDEx从ProgID获取对应的CLSID，如果找不到对应的CLSID，就会报错“ActiveX 部件不能创建对象”。

我们可以用注册表编辑器手工查找CLSID。例如要获取WScript.Shell的CLSID，用注册表编辑器查找HKEY_CLASSES_ROOT\WScript.Shell\CLSID的值即可。需要注意的是，《[UMU WSH 教程](9)CreateObject 过程》里说：

1、CreateObject 函数先检查注册表 HKEY_CLASSES_ROOT\WScript.Shell 下的子键 CurVer 的默认值，结果为 WScript.Shell.1，所以知道新版本是 WScript.Shell.1；

2、读 HKEY_CLASSES_ROOT\WScript.Shell.1，下面有一个子键 CLSID，默认值为 {72C24DD5-D70A-438B-8A42-98424B88AFB8}；

这是错误的，CreateObject函数（准确的说是其内部调用的CLSIDFromProgIDEx函数）先检查注册表子键 HKEY_CLASSES_ROOT\WScript.Shell\CLSID是否存在，只要子键存在，即使默认值为空或者不是类标识符，都不会再检查子键CurVer ，只有CLSID子键不存在，才会检查子键 CurVer。

第二步调用CoGetClassObject函数获取IClassFactory接口的指针，如果获取不到，报错“ActiveX 部件不能创建对象”或者“类不支持 Automation 操作”，也可能是其他错误信息，这取决于COM的实现。

第三步调用IClassFactory接口的CreateInstance方法获取IUnknown接口指针，所有的COM都必须支持IUnknown接口，所以这步应该不会出错。

最后调用IUnknown接口的QueryInterface方法查询该COM是非支持IDispatch接口，只有支持IDispatch接口的COM类才能用CreateObject创建对象。如果获取到IDispatch接口的指针，就可以给VARIANT变量赋值了；如果不支持IDispatch接口，报错“类不支持 Automation 操作”，也可能是其他错误信息，取决于具体实现。

说了半天还是没有说到一个关键的问题：VBS到底能调用哪些对象？或者说，哪些字符串可以作为CreateObject函数的第一个参数？欲知问题答案，请听下回分解。

VBS深入CreateObject函数

本篇要讲的是对象的创建，属于 COM 的内容，这里不可能说太多，大家可以找一些 COM 的书看看，也可以看看 UMU 的其他关于 COM 的文章：《ATL 体验》、《基于 WebBrowser 的新型应用程序研究小记》、《学习 ATL 的理由》、《关于 COM 的几个概念问题》、《关于 COM 的几个概念问题(2)》。最常见的对象有：WScript.Shell、Scripting.FileSystemObject、Scripting.Dictionary 等，这里以 WScript.Shell 为例。

马上来看对象的创建过程，语句 Set objWSH = CreateObject( "WScript.Shell" )：

1、CreateObject 函数先检查注册表 HKEY_CLASSES_ROOT\WScript.Shell 下的子键 CurVer 的默认值，结果为 WScript.Shell.1，所以知道新版本是 WScript.Shell.1；

2、读 HKEY_CLASSES_ROOT\WScript.Shell.1，下面有一个子键 CLSID，默认值为 {72C24DD5-D70A-438B-8A42-98424B88AFB8}；

3、找到了 HKEY_CLASSES_ROOT\CLSID\{72C24DD5-D70A-438B-8A42-98424B88AFB8}，子键 InProcServer32 的默认值说明服务程序是 C:\WINDOWS\system32\wshom.ocx。

4、对于脚本可以调用的 COM 对象，要使用对象里的方法 TypeLib 是必要的，HKEY_CLASSES_ROOT\CLSID\{72C24DD5-D70A-438B-8A42-98424B88AFB8} \TypeLib 的默认值是 {F935DC20-1CF0-11D0-ADB9-00C04FD58A0B}，HKEY_CLASSES_ROOT\TypeLib \{F935DC20-1CF0-11D0-ADB9-00C04FD58A0B}\1.0\0\win32 的默认值说明类型库是 C:\WINDOWS\system32\wshom.ocx。

支持脚本调用的 COM 对象必然要实现 IDispatch 接口，可以从 C:\WINDOWS\system32\wshom.ocx 的“资源 – TYPELIB”里看出来，每个对象开头的 7 个函数都是 QueryInterface、AddRef、Release、GetTypeInfoCount、GetTypeInfo、 GetIDsOfNames、Invoke，前 3 个是 IUnknown 接口的函数。PE 文件里的 TYPELIB 资源是 *.idl 源码文件编译后的类型库的二进制数据，可以反编译回去。不过 UMU 推荐使用 eXeScope 查看，即使用 eXeScope 打开 C:\WINDOWS\system32\wshom.ocx，查看“资源 – TYPELIB”，可以看出每个接口函数的参数和返回值定义。

VB 开发环境就是这样知道对象里有什么函数的。所以，如果我们知道一个对象名，却不知道这个对象里有什么函数，可以用上面说的方法获得。

xuejinglan 于 2007年03月31日 星期六 11:40 问 UMU 这样一个问题：“系统中存在哪些对象，对象有那些函数可以调用，如何知道？”这个问题已经回答后一半了，下面回答前一半。

对象的注册信息 HKEY_CLASSES_ROOT\CLSID\{GUID} 下可能会有这样的一些子键：Control 说明该组件是一个 ActiveX 控件、Programmable 说明该组件支持自动化、Insertable 说明该组件可以被嵌入到一个 OLE 文档容器中。能找到 Programmable，说明支持自动化，也就是支持 IDispatch 接口，所以它可以被脚本语言使用。不过这种方式比较老了，现在已经被一个的组件类属代替，即 Implemented Categories 子键下面的 GUID 形式的子键。比如 HKEY_CLASSES_ROOT\CLSID\{72C24DD5-D70A-438B-8A42-98424B88AFB8}\Implemented Categories\{40FC6ED5-2438-11CF-A3DB-080036F12502}，看一下 HKEY_CLASSES_ROOT\Component Categories\{40FC6ED5-2438-11CF-A3DB-080036F12502} 下的 409 字符串值为 Automation Objects，也就是“自动化对象”。

以上就是VBS中CreateObject函数的作用是什么，小编相信有部分知识点可能是我们日常工作会见到或用到的。希望你能通过这篇文章学到更多知识。更多详情敬请关注创新互联行业资讯频道。