vb.net 全局键盘钩子

应网友邀请写的代码。

模块部分的代码：

Imports System.Runtime.InteropServicesModule 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 IntegerEnd 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 IntegerEnd Function<DllImport("User32.dll", CharSet:=CharSet.Auto, CallingConvention:=CallingConvention.StdCall)>Public Function UnhookWindowsHookEx(ByVal idHook As Integer) As BooleanEnd Function<DllImport("kernel32.dll", CharSet:=CharSet.Auto, CallingConvention:=CallingConvention.StdCall)>Public Function GetModuleHandle(ByVal name As String) As IntPtrEnd Function<StructLayout(LayoutKind.Sequential)>Public Structure KBDLLHOOKSTRUCTPublic vkCode As KeysPublic scanCode As KeysPublic flags As IntegerPublic time As IntegerPublic dwExtraInfo As IntegerEnd StructurePublic Const HC_ACTION As Integer = 0Public Const WH_KEYBOARD_LL As Integer = 13Public 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 IntegerPublic Function KeyCallback(ByVal Code As Integer, ByVal wParam As Integer, ByVal lParam As IntPtr) As IntegerIf Code >= HC_ACTION ThenDim keyStruct As KBDLLHOOKSTRUCTkeyStruct = 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 ThenReturn 1End IfEnd IfReturn CallNextHookEx(KeyHandle, Code, wParam, lParam)End FunctionPublic Sub HookKeyboard()callback = New KeyHook(AddressOf KeyCallback)Dim hins As IntPtr = IntPtr.Zerohins = GetModuleHandle(Process.GetCurrentProcess.MainModule.ModuleName)KeyHandle = SetWindowsHookEx(WH_KEYBOARD_LL, callback, hins, 0)If (KeyHandle > 0) ThenTextBox1.Text &= "启动钩子" & ControlChars.CrLfElseTextBox1.Text &= "启动钩子失败：" & Err.LastDllError & ControlChars.CrLfEnd IfEnd SubPublic Sub UnhookKeyboard()Call UnhookWindowsHookEx(KeyHandle)TextBox1.Text &= "停止钩子" & ControlChars.CrLfEnd Sub'启动钩子Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickHookKeyboard()End Sub'停止钩子Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.ClickUnhookKeyboard()End SubPrivate Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.LoadMe.TopMost = TrueEnd Sub

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

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

vb.net 全局键盘钩子相关推荐

如何让你的程序避开全局键盘钩子的监视
原文地址:http://blog.okbase.net/BlueSky/archive/3839.html 一直以来有个疑问,就是如果别人在你的电脑上安装了键盘钩子来监视你的键盘按键动作,我的程序怎么 ...
使用raw input 代替全局键盘钩子
//关于raw input 请查看msdn https://msdn.microsoft.com/en-us/library/windows/desktop/ms645536%28v=vs.85%29 ...
HOOK使用:全局键盘钩子
// CatchKey.cpp : Defines the entry point for the DLL application. // #define _WIN32_WINNT 0x0500 // ...
我的全局键盘钩子（KeyBoardHook）
1,钩子操作类 public class KeyPressSender{[StructLayout(LayoutKind.Sequential)]public class KeyBoardHookSt ...
C++编写Windows全局键盘钩子记录键盘输入
1.键盘钩子处理程序 HookProc 2.键盘钩子安装程序 InstallHook 3.键盘钩子卸载程序 UnInstallHook 4.键盘钩子dll的加载,安装与释放生成标准windows d ...
VC++钩子使用之全局键盘钩子
文章目录钩子简介使用钩子生成KeyHook.dll 加载KeyHook.dll 窗体接收两次按键消息的问题参考如果想要在Win32窗体程序中实现按键捕获,可以覆写PreTranslateMe ...
利用底层键盘钩子拦载任意按键（回调版）
前段时间我曾经写过一篇<利用底层键盘钩子屏蔽任意按键>,并放到了我的blog上.这篇文章的题目中把"屏蔽"改成了"拦截",显然要比以前的版本强一些了 ...
矛与盾:用VB打造驱动级键盘记录器,能过QQ密码框(源码)
信息监控与隐私保护永远是一对矛盾,在对付各种信息窃取软件上,新技术总是层出不穷.本文介绍一种古老的键盘记录器技术,确实很古老,DOS时代人们就在用了,但是现在它仍然很有效,在键盘过滤驱动失效的情况下, ...
利用底层键盘钩子屏蔽任意按键
很多人都知道,如果想在系统范围内屏蔽键盘上的任意按键需要使用全局键盘钩子,然而像win键这样"倔强"的按键又不是普通的键盘钩子就能搞定的.这里我提供一种利用底层键盘钩子屏蔽任意按键 ...
vs2019键盘钩子_C#键盘按键监视
using System; using System.Diagnostics; using System.IO; using System.Runtime.InteropServices; using ...

vb.net 全局键盘钩子

vb.net 全局键盘钩子相关推荐

最新文章

热门文章