excel - 如何处理 VBA 中的 DLL 错误？

Question

API 声明:

Private Declare Function CallWindowProc Lib "user32.dll" Alias "CallWindowProcA" ( _
                         ByVal lpPrevWndFunc As Long, _
                         ByVal HWnd As Long, _
                         ByVal msg As Long, _
                         ByVal wParam As Long, _
                         ByVal lParam As Long) As Long

当为 lpPrevWndFunc 参数提供不存在的函数指针时，Excel 将崩溃。

同样，

Private Declare Sub RtlMoveMemory Lib "kernel32" (ByRef Destination As LongPtr, _
                                                  ByRef Source As LongPtr, _
                                                  ByVal Length As Long)

当Destination或Source不存在时不高兴。

我认为这些错误是内存访问违规。我假设 Windows 告诉调用者它正在做一些它不能做的事情¹ - 也许它向 Excel 发送了一条消息，但没有处理程序？ MSDN有this说一下:

System errors during calls to Windows dynamic-link libraries (DLL) or Macintosh code resources do not raise exceptions and cannot be trapped with Visual Basic error trapping. When calling DLL functions, you should check each return value for success or failure (according to the API specifications), and in the event of a failure, check the value in the Err object's LastDLLError property. LastDLLError always returns zero on the Macintosh. (emphasis my own)

但在这些情况下，我没有值来检查错误，我只是崩溃了。

_{1:假设它捕获了可能并不总是存在的错误，如果说内存重写有效但未定义。但写入受限内存或调用假指针肯定应该在执行之前被捕获，对吧？}

我最感兴趣的是:

1. 导致此崩溃的原因(如何触发，以及其背后的机制到底是什么 - Excel 如何知道它需要崩溃？ )。这些错误通过什么消息 channel 进行通信？我可以使用 VBA 代码拦截它们吗？

2. 是否可以主动(即清理输入等)或追溯(处理错误)防止崩溃。

我认为(1)可能会阐明(2)，反之亦然

<小时/>

无论如何，如果有人知道如何处理此类 API 错误而不导致 Excel 崩溃，或者如何避免它们发生，或者任何其他事情，那就太好了。 On Error Resume Next 似乎不起作用...

Sub CrashExcel()
    On Error Resume Next 'Lord preserve us
    'Copy 300 bytes from one non existent memory pointer to another
    RtlMoveMemory ByVal 100, ByVal 200, 300 
    On Error Goto 0
    Debug.Assert Err.LastDllError = 0 'Yay no errors
End Sub

动机

我问这个问题有两个主要原因:

1. 当每次我犯错误时 Excel 都会崩溃，开发代码(调试过程等)会变得更加困难。这不是简单地通过我自己做对(并向客户端代码公开不同的接口(interface)，它使用我现有的正确的 API 调用实现)就可以解决的问题，因为我很少第一次就做对!

2. 我想创建健壮的代码，能够处理用户输入中的错误(例如无效的函数指针或内存写入位置)。这可以在一定程度上通过将函数指针抽象为可调用类来解决，但这并不是其他类型 dll 错误的通用解决方案(并且仍然无法处理 1。)

   <

<小时/>

具体来说，我正在尝试开发一个友好的界面来包装 WinAPI timers 。这些需要向它们注册回调函数，这些回调函数(考虑到 VBA 的限制)必须以 Long 函数指针的形式出现(使用 AddressOf 关键字生成)。

回调来自用户代码，可能无效。我包装的重点是提高 API 调用的稳定性，这是一个需要改进的领域。

内存复制问题可能超出了这个问题的范围，它与在 VBA 中制作生成器有关，但我认为相同的错误处理技术也适用于此，并且它提供了一个更简单的示例。

我还因计时器 API 生成太多未处理的 Excel 消息而出现错误和崩溃。我再次想知道，Windows 如何告诉 Excel“现在崩溃了”，为什么我不能拦截该指令并自己处理错误(即杀死我创建的所有计时器并刷新消息队列)？

Answer 1

来自评论:

Surely if I make an erroneous API call, something's gotta let Excel/my code know that it was bad

不一定。如果您要求 API 函数(例如 RtlMoveMemory)覆盖您为其提供指针的位置处的内存，它会很乐意尝试这样做。然后可能会发生很多事情:

• 如果内存不可写(例如代码)，那么您将很幸运地遇到访问冲突，这将在进程造成更多损害之前终止进程。

• 如果内存可写，它将被覆盖并因此损坏，之后所有的赌注都会失败。

来自您的评论:

I'm designing code to attach user supplied callback functions

另一种方法是使用客户端代码可以实现的方法来设计接口(interface)。然后要求客户端传递实现该接口(interface)的类的实例。

如果您的客户端使用 VBA，那么定义接口(interface)的一种简单方法是使用一个或多个空方法创建公共(public) VBA 类模块。按照惯例，您应该使用 I (接口(interface))前缀来命名此类 - 例如IMyCallback。空方法(子函数或函数)可以具有您想要的任何签名，但我会保持简单:

示例:

Class module name: IMyCallback

Option Explicit

Public Sub MyMethod()

End Sub

或者，如果您的客户使用 VBA 以外的语言，则更好，您可以使用 IDL 定义接口(interface)，将其编译为类型库，然后从 VBA 项目引用该类型库。我不会在这里进一步讨论这个问题，但如果您想跟进，请问另一个问题。

然后您的客户应该创建一个类(VBA 类模块)，以他们选择的任何方式实现此接口(interface)，例如通过创建类模块ClientCallback:

Class module name: ClientCallback

Option Explicit

Implements IMyCallback

Private Sub IMyCallback_MyMethod()
    ' Client adds his implementation here
End Sub

然后，您公开一个 IMyCallback 类型的参数，并且您的客户端可以传递该类的实例。

你的方法:

Public Sub RegisterCallback(Callback as IMyCallback)
    ...
End Sub

客户端代码:

Dim objCallback as New ClientCallback
RegisterCallback Callback
…

然后，您可以实现从计时器调用的自己的回调函数，并通过接口(interface)安全地调用客户端代码。