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

创新互联建站始终坚持【策划先行，效果至上】的经营理念，通过多达10多年累计超上千家客户的网站建设总结了一套系统有效的全网推广解决方案，现已广泛运用于各行各业的客户，其中包括：木托盘等企业，备受客户赞美。

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

本文题目：VBS中CreateObject函数的作用是什么-创新互联
链接分享：http://kswjz.com/article/dggjps.html