键盘挂钩多键答案

【问题标题】：Keyboard hook multiple key键盘挂钩多键
【发布时间】：2019-06-06 13:32:54
【问题描述】：

Private Sub kbHook_KeyDown(ByVal Key As System.Windows.Forms.Keys) Handles kbHook.KeyDown    
    If Keys.Control And Keys.Alt And Keys.Shift And Keys.N Then
        Me.Opacity = 100
        Me.ShowInTaskbar = True
        Me.ShowIcon = True
        MsgBox("CTRL + ALT + SPACE") ' This work
        Me.BackColor = Color.Indigo
        CheckBox3.Checked = False
    End If
End Sub

我使用question 我希望键盘在后台听多个键，但这不起作用。怎么了？

【问题讨论】：

只是为了确定，在这种情况下kbHook 是什么？这是您添加的安装实际键盘钩子的某种库吗？如果是这样，您可以链接到源代码或文档吗？
Keys 也是如此...这是从哪里来的？
看起来像 answer 到 question 是您获取代码的地方。它很受欢迎，所以它应该可以工作。根据评论确定Project -> [Project Name] Properties -> Debug -> Uncheck “Enable the Visual Studio hosting process”了吗？
yes djv 但在 Visual Studio 2017 中删除了“启用 Visual Studio 托管进程”（我使用 vb 2007），我不知道如何让程序等到所有键，例如 ctrl ,shft,alt 和 h,If Keys.Control And Keys.Alt And Keys.Shift And Keys.N 不能工作，if e.contol ..... 也不能工作
对不起@Idle_Mind 我编辑问题

标签： vb.net

【解决方案1】：

这对我有用：

Private Sub kbHook_KeyDown(Key As Keys) Handles kbHook.KeyDown
    If My.Computer.Keyboard.CtrlKeyDown AndAlso
        My.Computer.Keyboard.AltKeyDown AndAlso
        My.Computer.Keyboard.ShiftKeyDown AndAlso
        Key = Keys.N Then

        Debug.Print("Ctl-Alt-Shift-N")

    End If
End Sub

【讨论】：

* * * * * 你的真棒