如何通过VTable Hacking将COM类方法替换为标准模块方法？

你遇到的这个问题，核心是没完全匹配VBA类方法在COM底层的真实签名——我之前折腾VTable替换的时候也踩过一模一样的坑！你已经找对了方向：COM对类方法的隐式this指针和HRESULT返回值这两个要求是关键，但之前的签名差了几个细节，导致调用时内存访问错位直接崩溃。

先拆解类方法的底层真实签名 #

VBA里你写的Public Sub Meow()类方法，在COM的VTable里对应的真实签名其实是：

Function Meow(ByVal this As LongPtr) As Long

这里有几个容易忽略的关键点：

• this指针必须按值传递：COM是把对象的内存指针直接按值传给方法的，如果你用ByRef传递Class1对象，VBA会额外封装成双重指针（指向对象指针的指针），这就和COM期望的地址不匹配，直接触发非法内存访问崩溃。
• 必须用Function返回Long：哪怕你在类里写的是Sub，底层COM方法都会返回HRESULT（32位整数）表示执行结果，成功时返回S_OK也就是0。用Sub的话会导致调用栈失衡，必然崩溃。
• 参数要严格对齐：如果你的类方法带参数，要把参数跟在this指针后面，传递方式和类型完全一致。比如类方法是Public Sub Meow(ByVal msg As String)，标准模块函数就要写成Function Meow_Replacement(ByVal this As LongPtr, ByVal msg As String) As Long。

给你一个可直接用的正确示例 #

针对你的Class1.Public Sub Meow()，标准模块里的正确签名和实现应该是这样：

' 标准模块中的替换函数
Public Function Meow_Replacement(ByVal this As LongPtr) As Long
    ' 如果需要操作原对象，把指针转成Class1实例
    Dim clsInstance As Class1
    Set clsInstance = ObjPtrToObject(this)
    
    Debug.Print "这是标准模块里的Meow替换实现！"
    ' 这里可以调用原对象的其他方法，比如clsInstance.Woof
    
    ' 返回S_OK表示执行成功
    Meow_Replacement = 0
End Function

' 辅助函数：把LongPtr指针转成VBA对象（必须放标准模块）
Private Function ObjPtrToObject(ByVal ptr As LongPtr) As Object
    Dim tempObj As Object
    ' 用CopyMemory把指针写入对象变量
    CopyMemory tempObj, ptr, LenB(ptr)
    Set ObjPtrToObject = tempObj
    ' 清空临时变量的指针，避免内存泄漏
    CopyMemory tempObj, 0&, LenB(ptr)
End Function

' 必须声明的内存拷贝API（适配32/64位Office）
Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As LongPtr)

为什么你之前的签名会崩溃？ #

• 用ByRef meObj As Class1：VBA传递对象引用时是传双重指针，和COM期望的单指针不匹配，直接踩内存。
• 用Sub代替Function：没有返回HRESULT导致调用栈结构被破坏，触发崩溃。
• 返回LongPtr：HRESULT是固定32位的，64位Office也用Long返回，用LongPtr会导致返回值长度不对，搞乱栈。

最后再提几个注意事项 #

1. 标准模块里没有Me对象，一定要通过this指针转成实例后再操作原对象。
2. 如果替换函数里出了错，要返回对应的HRESULT错误码（比如E_FAIL是&H80004005），别直接抛VBA错误，不然会触发未处理异常。
3. 全程用LongPtr和PtrSafe，保证32/64位Office都能正常运行。

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