在特定程序中使键盘不发挥作用VB

最新推荐文章于 2019-01-21 21:05:17 发布

原创最新推荐文章于 2019-01-21 21:05:17 发布 · 767 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#function #keyboard #user #vb #api

编程相关其它知识专栏收录该内容

31 篇文章

订阅专栏

本文介绍如何使用Windows API实现键盘钩子功能，通过SetWindowsHookEx、UnhookWindowsHookEx等函数，实现对键盘输入的监听与捕捉。

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

可以使用钩子函数
首先声明api函数和常量
Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public Declare Function GetCurrentThreadId Lib "kernel32" () As Long
Public Const WH_KEYBOARD = 2

Public gLngKeyHook As Long

Public Function KeyboardProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
KeyboardProc = -1
End Function

然后在窗口中设置钩子函数:
gLngKeyHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyboardProc, App.hInstance, GetCurrentThreadId)

最后别忘了在unload时取消钩子函数
UnhookWindowsHookEx gLngKeyHook