包含vb.net监控键盘使用的词条

利用VB.NET怎样使窗体在没有焦点时也能检测键盘事件？

窗体内检测按键

专注于为中小企业提供成都做网站、成都网站设计、成都外贸网站建设服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业招远免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了上1000家企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Me.KeyPreview = True '注册窗体的键盘事件

End Sub

在TextBox1中显示按键代码

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown

TextBox1.Text = Str(e.KeyCode) + vbCrLf

End Sub

窗体没有焦点，用窗体监测键盘输入缓冲区可以解决，但这似乎可以用于监测用户输入内容，不要用于非法目的呀！所以就是知道也不会告诉你的。

vb.net编程一个用键盘控制的东西

最简单的加速运动示例，直接拷贝代码，即可用方向键控制控件移动

Public Class 最简单的加速运动

Dim 左右, 上下 As Integer

Dim X, Y, VX, VY, VA As Double

Dim WithEvents 时钟 As New Timer

Dim WithEvents 移动控件 As New Label

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Me.KeyPreview = True

VA = 0.5

X = 300.0

Y = 300.0

移动控件.BackColor = Color.MediumPurple

移动控件.Size = New Size(60, 60)

Controls.Add(移动控件)

时钟.Interval = 25

时钟.Enabled = True

End Sub

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown

If e.KeyCode = Keys.Up Then 上下 = -1

If e.KeyCode = Keys.Down Then 上下 = 1

If e.KeyCode = Keys.Left Then 左右 = -1

If e.KeyCode = Keys.Right Then 左右 = 1

End Sub

Private Sub Form1_KeyUp(sender As Object, e As KeyEventArgs) Handles MyBase.KeyUp

If e.KeyCode = Keys.Up Then 上下 = 0

If e.KeyCode = Keys.Down Then 上下 = 0

If e.KeyCode = Keys.Left Then 左右 = 0

If e.KeyCode = Keys.Right Then 左右 = 0

End Sub

Private Sub 时钟_Tick(sender As Object, e As EventArgs) Handles 时钟.Tick

VX = Math.Min(VX + 左右 * VA, 10)

VY = Math.Min(VY + 上下 * VA, 10)

X += VX

Y += VY

If X  0 Then X = 2 : VX = -VX

If Y  0 Then Y = 2 : VY = -VY

If X  Width - 移动控件.Width Then X = Width - 移动控件.Width - 2 : VX = -VX

If Y  Height - 移动控件.Height Then Y = Height - 移动控件.Height - 2 : VY = -VY

移动控件.Location = New Point(X, Y)

End Sub

End Class

寻VB.NET下winio(驱动级模拟按键)的键盘使用方法

这是不可能完成的任务，.NET平台不存在开发驱动的能力，你要想在驱动层对键盘操作，最好使用C,C++来实现，比较方便。 像现在一些比较出名的网络游戏，都是在驱动层进行保护的。

用VB.NET模拟鼠标和键盘动作？不用API模拟，用API的我会！ 用.NET框架的类库怎么模拟呢？

.net框架就是对API就行封装，做成一个个的类然后可以让你轻松调用，但是。net封装的内容，是常用的内容，有些东西用的时候，还是需要调用API函数，自己写，毕竟，微软不知道你要用什么函数，所以尽可能的满足用户大众口味而已。如果你需要用的比较复杂，还是调用API自己写类吧。

希望我的回答对您有所帮助

请问最新版VB net中如何在窗口隐藏或失焦的情况下捕捉到键盘按下事件？

微软的DirectInput是基于硬件底层，可以在窗口无焦点时捕捉按键，有兴趣可以去了解了解，在游戏制作方面很有用。

DirectX SDK 中文版，里面有关于DirectInput的介绍与用法。

vb 键盘监控

嗯，蛮巧的，前两天也在玩这个

不过我是用作PS2的扫描抢输入处理的。我偷偷懒不改程序了，您自己参考一下把，主要使用API：SetWindowsHookEx来实现，您只需要修改以下CallHookProc这个回调中的内容即可，其中我是让它遇到回车就RaiseEvent的，当然您也可以修改默认构造函数，使得初始化的时候传递一个函数方法的地址进来（就是那个GetBarCodeEvent委托声明，然后在创建实例的时候使用AddressOf来传递函数地址）

实现类：

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Imports System.Reflection

Imports System.Threading

Imports System.ComponentModel

Imports System.Runtime.InteropServices

Imports System.Text

Public Class MyHook

Private Structure KeyboardHookStruct

Dim vkCode As Integer

Dim ScanCode As Integer

Dim Flags As Integer

Dim Time As Integer

Dim DwExtraInfo As Integer

End Structure

Private Const WH_JOURNALRECORD = 0

Private Const WH_JOURNALPLAYBACK = 1

Private Const WH_KEYBOARD = 2

Private Const WH_GETMESSAGE = 3

Private Const WH_CALLWNDPROC = 4

Private Const WH_CBT = 5

Private Const WH_SYSMSGFILTER = 6

Private Const WH_MOUSE = 7

Private Const WH_HARDWARE = 8

Private Const WH_DEBUG = 9

Private Const WH_SHELL = 10

Private Const WH_FOREGROUNDIDLE = 11

Private Const WH_CALLWNDPROCRET = 12

Private Const WH_KEYBOARD_LL = 13

Private Const WH_MOUSE_LL = 14

Private Const VK_SHIFT As Byte = H10

Private Const VK_CAPITAL As Byte = H14

Private Const VK_NUMLOCK As Byte = H90

Private Const WM_KEYDOWN = H100

Private Const WM_KEYUP = H101

Private Const WM_SYSKEYDOWN = H104

Private Const WM_SYSKEYUP = H105

Private Delegate Sub HookProc(ByVal nCode As Integer, ByVal wParam As Integer, ByVal lParam As IntPtr)

Public Delegate Sub GetBarCodeDelegate(ByVal _BarCode As String)

Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Integer, ByVal lpfn As HookProc, ByVal hMod As IntPtr, ByVal dwThreadId As Integer) As Integer

Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal idHook As Integer) As Integer

Private Declare Function CallNextHookEx Lib "user32" (ByVal idHook As Integer, ByVal nCode As Integer, ByVal wParam As Integer, ByVal lParam As IntPtr) As Integer

Public Event OnBarCodeEvent(ByVal _BarCode As String)

Private GetBarCodeEvent As GetBarCodeDelegate

Private KeyboardHookProcedure As HookProc

Private m_lHook As Integer = 0

Private DataBuff As String = ""

Private IsShift As Boolean = False

Public Sub New()

End Sub

Protected Overrides Sub Finalize()

StopHook()

MyBase.Finalize()

End Sub

'打开系统钩子，开始监视扫描枪

Public Sub StartSystemHook()

If m_lHook = 0 Then

KeyboardHookProcedure = New HookProc(AddressOf CallHookProc)

'Dim hMod() As System.Reflection.Module = System.Reflection.Assembly.GetExecutingAssembly.GetModules()

'm_lHook = SetWindowsHookEx(WH_KEYBOARD_LL, KeyboardHookProcedure, Marshal.GetHINSTANCE(hMod(0)), 0)

m_lHook = SetWindowsHookEx(WH_KEYBOARD_LL, KeyboardHookProcedure, Marshal.GetHINSTANCE([Assembly].GetExecutingAssembly.GetModules()(0)), 0)

End If

End Sub

'打开线程钩子，开始监视扫描枪

Public Sub StartThreadHook(ByVal threadID As Integer)

If m_lHook = 0 Then

KeyboardHookProcedure = New HookProc(AddressOf CallHookProc)

Dim hMod() As System.Reflection.Module = System.Reflection.Assembly.GetExecutingAssembly.GetModules

m_lHook = SetWindowsHookEx(WH_KEYBOARD_LL, KeyboardHookProcedure, Marshal.GetHINSTANCE(hMod(0)), threadID)

End If

End Sub

'关闭监视

Public Sub StopHook()

If m_lHook  0 Then

UnhookWindowsHookEx(m_lHook)

End If

End Sub

Private Sub CallHookProc(ByVal nCode As Integer, ByVal wParam As Integer, ByVal lParam As IntPtr)

If nCode = 0 And wParam = WM_KEYDOWN And Not isHookLock Then

Dim m As KeyboardHookStruct = Marshal.PtrToStructure(lParam, GetType(KeyboardHookStruct))

If m.vkCode = 48 And m.vkCode = 57 Then

'如果扫描的是数字

If Not IsShift Then

DataBuff += (m.vkCode - 48).ToString

Else

Select Case m.vkCode

Case 49

DataBuff += "!"

Case 50

DataBuff += "@"

Case 51

DataBuff += "#"

Case 52

DataBuff += "$"

Case 53

DataBuff += "%"

Case 54

DataBuff += "^"

Case 55

DataBuff += ""

Case 56

DataBuff += "*"

Case 57

DataBuff += "("

Case 48

DataBuff += ")"

End Select

End If

ElseIf (m.vkCode = 65 And m.vkCode = 90) Then

'如果扫描的是字母

DataBuff += Chr(m.vkCode).ToString

ElseIf (m.vkCode = 189) Or (m.vkCode = 109) Then

'如果扫描码是"-"

DataBuff += "-"

ElseIf m.vkCode = 187 Then

'如果扫描码是"="或"+"

If Not IsShift Then

DataBuff += "="

Else

DataBuff += "+"

End If

ElseIf m.vkCode = 190 Then

'如果扫描码是"."或""

If Not IsShift Then

DataBuff += "."

Else

DataBuff += ""

End If

ElseIf m.vkCode = 191 Then

'如果扫描码是"/"或"?"

If Not IsShift Then

DataBuff += "/"

Else

DataBuff += "?"

End If

ElseIf m.vkCode = 13 Then

'如果扫描的是回车

RaiseEvent OnBarCodeEvent(DataBuff.Replace(Chr(13), ""))

DataBuff = ""

Else

'DataBuff += " "

End If

If m.vkCode = 160 Then

'若有Shift键盘，就设置Shift为开状态，然后由其它流程就判断下一个键值是多少

IsShift = True

Else

IsShift = False

End If

End If

End Sub

End Class

============================

附赠键盘键值图，注意VB中Shift、Alt、Ctrl键值有些不一样，自己分步调试一下就能获得（Shift是160，其它您自己找把）