vb.net - 如何使用 GetAsyncKeyState 实现全局热键？

Question

我创建了一个简单的程序，可以在 Windows 上全局捕获按键。我使用了 GetAsyncKeyState()。这是我的代码。

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Integer) As Short

For i = 65 To 128
    If GetAsyncKeyState(i) = -32767 Then
        return Chr(i)
    End If
Next i

它工作正常。但是如果我运行另一个使用 GetAsyncKeyState() 的应用程序，那么我的程序(或我的程序的两个实例)键捕获将无法正常工作。它捕获一些键，而不是全部。例如;如果我输入“stackoverflow”，它会捕获“sakvrow”

问题出在哪里，我该如何解决。

Answer 1

问:问题出在哪里？

问题在 documentation 中有解释。 :

尽管返回值的最低有效位指示自上次查询以来是否按下了键，但由于 Windows 的抢占式多任务处理特性，另一个应用程序可以调用 GetAsyncKeyState 并接收“最近按下的”位而不是您的应用程序。严格保留返回值最低有效位的行为是为了与 16 位 Windows 应用程序(非抢占式)兼容，不应依赖。

问:我该如何解决？

正如汉斯在评论中建议的那样，如果您想要某种“键盘记录器”，则应该使用键盘 Hook 。参见 WH_KEYBOARD_LL