vb.net监视按键的简单介绍

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

窗体内检测按键

创新互联专注于错那网站建设服务及定制，我们拥有丰富的企业做网站经验。热诚为您提供错那营销型网站建设，错那网站制作、错那网页设计、错那网站官网定制、小程序设计服务，打造错那网络公司原创品牌,更为您提供错那网站排名全网营销落地服务。

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

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

以记事本为例

Public Class Form1

Public Sub ShellAndWait(ByVal ProcessPath As String)

Dim objProcess As System.Diagnostics.Process

Try

objProcess = New System.Diagnostics.Process()

objProcess.StartInfo.FileName = ProcessPath

objProcess.StartInfo.WindowStyle = ProcessWindowStyle.Normal

objProcess.Start()

objProcess.WaitForExit()

objProcess.Close()

Catch

MessageBox.Show("无法执行文件 " ProcessPath, "错误")

End Try

End Sub

'监视程序就可以了，若果监视别的窗体的话，用SPY++ 找到句柄，配合FindWindowEx，SendMessage根据其属性做

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

ShellAndWait("Notepad.exe")

MessageBox.Show("笔记本被关闭后我才会出现")

End Sub

End Class

在VB环境中执行源代码，本身就是调试模式

按F8即可逐语句运行

点击语句左端空白处，将其背景色变为深红，就是添加断点，运行到该语句会停下来

可以在变量、对象等语句上点击右键，选择“添加监视”即可

网站名称：vb.net监视按键的简单介绍
网页网址：http://jkwzsj.com/article/dddhoje.html