CreateObject加强版，64位VBA创建32位对象，复活ScriptControl、Winsock

jz_l

功能：
可以在64位VBA中创建并使用32位对象，如：MSScriptControl.ScriptControl、MSWinsock.Winsock、MSCOMMLib.MSComm等；
在64位操作系统的32位VBA中创建并使用64位对象，如：FaxControl.FaxControl、BARCODE.BarCodeCtrl等；
原本可通过CreateObject直接创建的32/64位对象，也可创建。

基于以下2点：
1、运行在32位进程中的VBS能创建32位对象，64位进程中的VBS能创建64位对象；
2、VBS通过GetObject能取得Excel对象，Excel对象的Application.Run能运行VBA宏并传递参数。

用法：
1、调用CreateObjectX创建对象，调用ClearObject删除对象，适用于只创建1个对象；
2、通过cObjectCreater类包装，创建成功后通过实例的Object属性引用对象，可自动删除对象，适用于需要创建多个对象。


注意：
1、需要启用信任对VBA工程对象模型的访问（主要是方便修改生成的vbs代码）；
2、对象的创建是通过临时vbs脚本生成，若VBA运行过程中出错、手动停止运行，将不能自动删除临时文件；
3、若修改了模块名称，必须同时修改模块代码中的MODELNAME常量字符串。

zpy2

得确妙，
原理应该是vbs创建一个进程外的AxtiveX 对象吧，

Wow64RevertWow64FsRedirection

会重定向？

jz_l

zpy2 发表于 2023-11-11 14:44
得确妙，
原理应该是vbs创建一个进程外的AxtiveX 对象吧，

64位Windows系统中，wscript.exe和cscript.exe有两组，
一组是64位的，在C:\Windows\System32文件夹，
一组是32位的，在C:\Windows\SysWOW64文件夹。
在32位VBA中使用Shell打开VBS脚本测试的时候，指定了C:\Windows\System32的路径，发现运行VBS脚本的进程仍然是32位的，被系统自动重定向了，才加了临时开关重定向的代码

cidanji

"1、需要启用信任对VBA工程对象模型的访问"
请问是不是不能对工程密码保护

lss001

jz_l 发表于 2023-11-11 16:00
64位Windows系统中，wscript.exe和cscript.exe有两组，
一组是64位的，在C:\Windows\System32文件夹，
...

运行时错误'380'

lizhipei78

高深原理不懂得，我只想知道实际应用例子有没有

jz_l

lss001 发表于 2023-11-12 09:34
运行时错误'380'

测试不多，没遇到过这种情况。
方便把运行时的操作系统版本、Office版本、VBA版本发一下吗？
出错时本地窗口的变量值能截图发一下吗？

jz_l

cidanji 发表于 2023-11-11 21:07
"1、需要启用信任对VBA工程对象模型的访问"
请问是不是不能对工程密码保护

测试了一下，有工程密码保护的时候，就不能自动获取VBA模块里的过程/函数代码了。

jz_l

lizhipei78 发表于 2023-11-12 10:00
高深原理不懂得，我只想知道实际应用例子有没有

只是创建出对象，具体应用你可以去了解下MSScriptControl.ScriptControl、MSWinsock.Winsock等对象的用法

lss001

测试windows64位，office365/32位
猜测office2016及更高版本开始不支持vbscript
仅支持jscript