窗體內檢測按鍵
創(chuàng)新互聯(lián)專注于錯那網站建設服務及定制,我們擁有豐富的企業(yè)做網站經驗。 熱誠為您提供錯那營銷型網站建設,錯那網站制作、錯那網頁設計、錯那網站官網定制、小程序設計服務,打造錯那網絡公司原創(chuàng)品牌,更為您提供錯那網站排名全網營銷落地服務。
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
窗體沒有焦點,用窗體監(jiān)測鍵盤輸入緩沖區(qū)可以解決,但這似乎可以用于監(jiān)測用戶輸入內容,不要用于非法目的呀!所以就是知道也不會告訴你的。
以記事本為例
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("無法執(zhí)行文件 " ProcessPath, "錯誤")
End Try
End Sub
'監(jiān)視程序就可以了,若果監(jiān)視別的窗體的話,用SPY++ 找到句柄,配合FindWindowEx,SendMessage根據(jù)其屬性做
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ShellAndWait("Notepad.exe")
MessageBox.Show("筆記本被關閉后我才會出現(xiàn)")
End Sub
End Class
在VB環(huán)境中執(zhí)行源代碼,本身就是調試模式
按F8即可逐語句運行
點擊語句左端空白處,將其背景色變?yōu)樯罴t,就是添加斷點,運行到該語句會停下來
可以在變量、對象等語句上點擊右鍵,選擇“添加監(jiān)視”即可
網站欄目:vb.net監(jiān)視按鍵的簡單介紹
網頁URL:http://jinyejixie.com/article24/dddhoje.html
成都網站建設公司_創(chuàng)新互聯(lián),為您提供商城網站、企業(yè)網站制作、網站導航、動態(tài)網站、、自適應網站
聲明:本網站發(fā)布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯(lián)