MFC自动化事件在Excel VBA中正常但在VBScript中失效

问题概述 #

开发了带事件源接口（输出接口）的MFC自动化应用，Excel VBA中可正常创建COM对象并接收事件通知，但VBScript中无法实现该功能。已排查情况：

• 多次检查MFC应用未发现代码问题，尝试对话框式、SDI两种架构均存在相同异常；
• 同逻辑的ATL项目在Excel VBA和VBScript中都能正常运行；
• VBScript异常表现：不传入事件前缀参数时，可正常创建对象并调用Show()方法；传入前缀参数后，脚本创建对象并成功查询IDispatch后，对象会被莫名释放。将事件处理Sub改为Function也无效，还会触发报错。

可用的Excel VBA代码 #

Private WithEvents foo As Automate

Private Sub CommandButton1_Click()
    Set foo = New Automate
    foo.Show
End Sub

Private Sub foo_OnShow()
    MsgBox "VBA Event called Succeeded"
End Sub

无法正常运行的VBScript代码 #

Set obj = WScript.CreateObject("Automate.Application", "ob_")
obj.Show()

Sub ob_OnShow()
    MsgBox "Automate Client: OnShow"
End Sub

原因分析与解决方案 #

MFC与ATL的COM事件源实现机制存在差异，VBScript对事件订阅的要求更严格，核心问题集中在MFC事件源的接口实现细节上：

1. MFC默认连接点实现的缺陷 #

MFC的IConnectionPointImpl派生实现没有像ATL那样自动处理VBScript所需的引用计数和无参数事件订阅逻辑，导致对象被提前释放。

2. 修复方案 #

• 确保类型库注册完整：使用regsvr32重新注册MFC应用程序，确保事件源接口的类型库信息正确写入注册表。可通过OLEView工具检查COM对象的类型库，确认IConnectionPointContainer和事件接口的定义无误。
• 修正事件接口签名：MFC中事件方法的签名必须与类型库严格一致，无参数事件需声明为void OnShow()，避免使用带返回值的定义——VBScript的事件处理Sub不支持返回值，改成Function会直接报错。
• 手动调整引用计数：在MFC自动化对象的QueryInterface方法中，当查询事件源的IDispatch接口时，手动增加引用计数，防止对象被提前释放。
• 自定义连接点实现（可选）：如果默认实现无法解决问题，可参照ATL的IConnectionPoint实现逻辑，手动实现IConnectionPointContainer和IConnectionPoint接口，自行管理连接点的添加、移除和引用计数。

验证步骤 #

1. 重新注册应用：执行regsvr32 your_app.exe（或dll）；
2. 用OLEView检查类型库，确认事件接口的IConnectionPoint信息正确；
3. 简化事件测试：先实现一个无参数的基础事件，验证VBScript订阅是否正常，再逐步扩展复杂逻辑。

内容的提问来源于stack exchange，提问作者JKC