vb.net 全局键盘钩子

.Net学习

于 2022-03-01 20:19:02 发布

阅读量906

点赞数 1

分类专栏： vb.net 点滴文章标签： .net Hook

本文为博主原创文章，转载请显著位置标明出处，未经博主允许不得用于商业目的。

本文链接：https://blog.csdn.net/UruseiBest/article/details/123214885

版权

vb.net 点滴专栏收录该内容

46 篇文章

订阅专栏

这篇博客介绍了如何在VB.NET中使用DllImport导入函数创建键盘低级钩子（LL键盘钩子），以捕获键盘输入，特别是Win键。代码示例展示了如何设置和卸载钩子，以及如何在检测到Win键时进行屏蔽。内容适用于VB.NET和C#开发者，提供了一个键盘事件监控的基础示例。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

应网友邀请写的代码。

模块部分的代码：

Imports System.Runtime.InteropServices


Module Keyboard
    <DllImport("User32.dll", CharSet:=CharSet.Auto, CallingConvention:=CallingConvention.StdCall)>
    Public Function SetWindowsHookEx(ByVal idHook As Integer, ByVal HookProc As KeyHook, ByVal hInstance As IntPtr, ByVal wParam As Integer) As Integer
    End Function
    <DllImport("User32.dll", CharSet:=CharSet.Auto, CallingConvention:=CallingConvention.StdCall)>
    Public Function CallNextHookEx(ByVal idHook As Integer, ByVal nCode As Integer, ByVal wParam As Integer, ByVal lParam As IntPtr) As Integer
    End Function
    <DllImport("User32.dll", CharSet:=CharSet.Auto, CallingConvention:=CallingConvention.StdCall)>
    Public Function UnhookWindowsHookEx(ByVal idHook As Integer) As Boolean
    End Function
    <DllImport("kernel32.dll", CharSet:=CharSet.Auto, CallingConvention:=CallingConvention.StdCall)>
    Public Function GetModuleHandle(ByVal name As String) As IntPtr
    End Function

    <StructLayout(LayoutKind.Sequential)>
    Public Structure KBDLLHOOKSTRUCT
        Public vkCode As Keys
        Public scanCode As Keys
        Public flags As Integer
        Public time As Integer
        Public dwExtraInfo As Integer
    End Structure
    Public Const HC_ACTION As Integer = 0

    Public Const WH_KEYBOARD_LL As Integer = 13

    Public Delegate Function KeyHook(ByVal Code As Integer, ByVal wParam As Integer, ByVal lParam As IntPtr) As Integer

    '<MarshalAs(UnmanagedType.FunctionPtr)>
    Public callback As KeyHook
End Module

窗体的代码：

   Public KeyHandle As Integer
    Public Function KeyCallback(ByVal Code As Integer, ByVal wParam As Integer, ByVal lParam As IntPtr) As Integer
        If Code >= HC_ACTION Then
            Dim keyStruct As KBDLLHOOKSTRUCT
            keyStruct = CType(Marshal.PtrToStructure(lParam, GetType(KBDLLHOOKSTRUCT)), KBDLLHOOKSTRUCT)
            TextBox1.Text &= keyStruct.vkCode.ToString & ControlChars.CrLf
            '这里是检测并屏蔽Win按键
            If keyStruct.vkCode = Keys.LWin Or keyStruct.vkCode = Keys.RWin Then
                Return 1
            End If
        End If
        Return CallNextHookEx(KeyHandle, Code, wParam, lParam)
    End Function



    Public Sub HookKeyboard()

        callback = New KeyHook(AddressOf KeyCallback)

        Dim hins As IntPtr = IntPtr.Zero
        hins = GetModuleHandle(Process.GetCurrentProcess.MainModule.ModuleName)
        KeyHandle = SetWindowsHookEx(WH_KEYBOARD_LL, callback, hins, 0)
        If (KeyHandle > 0) Then
            TextBox1.Text &= "启动钩子" & ControlChars.CrLf
        Else
            TextBox1.Text &= "启动钩子失败：" & Err.LastDllError & ControlChars.CrLf
        End If
    End Sub


    Public Sub UnhookKeyboard()
        Call UnhookWindowsHookEx(KeyHandle)
        TextBox1.Text &= "停止钩子" & ControlChars.CrLf
    End Sub
    '启动钩子
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        HookKeyboard()
    End Sub
    '停止钩子
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        UnhookKeyboard()
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.TopMost = True
    End Sub

由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供的参考。

学习更多vb.net知识，请参看 vb.net 教程目录