使用 vbAccelerator Win32 Hook 与 VB IDE 一起导致应用程序崩溃

Question

我正在开发 VB6 项目，我需要为工具栏控件上的按钮提供键盘快捷键。为了实现这一点，我使用了 vbAccelerator 中的 Win32 Hooks 库。这是我的 IWindowsHook_HookProc 函数，我用它来检索击键&根据按下的快捷键执行操作（Ctrl + N 用于新建，Ctrl + O 用于打开，< kbd>Ctrl + S 用于保存），但我不知道导致我的应用程序和 VB6 IDE 崩溃的代码有什么问题。该功能目前不完整，因为我只是尝试识别 Ctrl + N 组合键来测试此功能。请帮帮我......:-|

Private Function IWindowsHook_HookProc(ByVal eType As EHTHookTypeConstants, ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long, bConsume As Boolean) As Long
If KeyboardlParam(lParam).KeyDown Then
     Select Case True
           Case Me.ActiveControl = Me
                 If wParam = vbKeyControl + vbKeyN Then
                        frmNewReport.show
                        bConsume = True
                 End If
     End Select
End If

Answer 1

我找到了自己问题的解决方案，如果处理不仔细，它仍然容易崩溃，但现在我的应用程序实际上响应了我想要的组合键， Ctrl + N、Ctrl + O 等。
以下是我修正后的代码，据我所知，它工作得很好。如果您发现其中有任何导致我的应用程序崩溃的错误，请提出建议。

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Property Get CtrlPressed() As Boolean
   CtrlPressed = (GetAsyncKeyState(vbKeyControl) <> 0)
End Property

Private Function IWindowsHook_HookProc(ByVal eType As EHTHookTypeConstants, ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long, bConsume As Boolean) As Long

If wParam = vbKeyN Then
    If CtrlPressed Then
        LoadFormNewReport 'Method that opens Child Form 'New Report'
    End If
    bConsume = True

ElseIf wParam = vbKeyS Then
    If CtrlPressed Then
        SaveNewReport 'Method that saves new Report
    End If
    bConsume = True

ElseIf wParam = vbKeyF5 Then
    If Not CtrlPressed Then
        frmSettings.Show 'This form needs to be displayed Modally but if tried so then crashes application along with VB  IDE, other short-cuts work fine.
        bConsume = True
    End If

End If

End Function

Answer 2

在 IDE 中使用钩子可能会导致大量崩溃，见鬼，在没有完全理解自己在做什么的情况下使用钩子会导致大量崩溃时期...

马克关于带有显示形式的计时器的说法是正确的，因为挂钩函数应尽快返回（< 50 毫秒），否则您将很快陷入死锁（和崩溃的应用程序）。切勿在 Hook 过程中设置断点，否则您将杀死您的 IDE（可能会崩溃，可能会挂起，可能会出现某种奇怪的状态，即您永远无法留下断点并且无法停止调试）。如果您有大量需要基于按键运行的长时间运行的函数，请设置一堆要在计时器中执行的操作。使用钩子库非常强大，但强大的功能也会带来严重的崩溃......

Answer 3

我没有使用该钩子库的经验，但我的猜测是您应该在 HookProc 过程本身中做很少的事情。您将被直接从 Windows API 调用，而不是通过 VB6 运行时。正如您所描述的那样，显示表单会导致所有内容崩溃，我对此并不感到惊讶。 vbAccelerator 网站上是否有关于在 HookProc 中放入哪种代码的建议？顺便说一句，vbAccelerator 是一个很棒的网站。

我建议您在某处设置一个标志变量来指示应显示 frmNewReport。您应该有一个以短时间间隔（例如 100 毫秒）运行的计时器，它会检查标志变量：如果设置了标志，则清除标志并显示表单。