让F8键失效(Visual Basic)
来源:互联网 发布:桥接模式网络不稳定 编辑:程序博客网 时间:2024/04/28 12:40
'以下在.Bas
Option Explicit
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
Declare Function UnhookWindowsHookEx Lib "user32" _
(ByVal hHook As Long) As Long
Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, _
ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
Public hnexthookproc As Long
Public Const HC_ACTION = 0
Public Const WH_KEYBOARD = 2
Public Sub UnHookKBD()
If hnexthookproc <> 0 Then
UnhookWindowsHookEx hnexthookproc
hnexthookproc = 0
End If
End Sub
Public Function EnableKBDHook()
If hnexthookproc <> 0 Then
Exit Function
End If
hnexthookproc = SetWindowsHookEx(WH_KEYBOARD, AddressOf _
MyKBHFunc, App.hInstance, 0)
If hnexthookproc <> 0 Then
EnableKBDHook = hnexthookproc
End If
End Function
Public Function MyKBHFunc(ByVal iCode As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
'这三个叁数是固定的,不能动,而MyKBHFunc这个名称只要和
'SetWindowsHookex()中 AddressOf後的名称一样便可,不一定叫什麽
'wParam 是传入按了哪个key的virtual-key code
'如果您将以下的两行unmark则所有键盘的输入皆没有作用
'MyKBHFunc = 1 '吃掉讯息
'Exit Function
MyKBHFunc = 0 '讯息要处理
If iCode < 0 Then
MyKBHFunc = CallNextHookEx(hnexthookproc, iCode, wParam, lParam)
Exit Function
End If
If wParam = vbKeyF8 Then '侦测 有没有按到F8键
MyKBHFunc = 1 '在这个Hook便吃掉这个讯息
Debug.Print "haha"
Else
Call CallNextHookEx(hnexthookproc, iCode, wParam, lParam)
End If
End Function
'以下在Form
Private Sub Form_Load()
Call EnableKBDHook
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call UnHookKBD
End Sub
- 让F8键失效(Visual Basic)
- T400笔记本Fn+F3、Fn+F8失效
- 为何Eclipse的调试快捷键F8失效?
- idea中调试时F8,F7失效等快捷键失效
- [Visual Basic]
- Visual Basic
- VISUAL BASIC
- Visual Basic
- Visual Basic
- f8
- 7.3Basic and visual basic
- Visual Basic编程,让窗口中控件响应键盘命令的方法
- Visual Basic.net
- 配置Visual Basic应用程序
- Visual Basic 的常见问题
- Visual Basic .NET 入门
- 精通 Visual Basic .NET
- Visual Basic不可能消失
- 如何去掉去掉重复的字符!
- OLTP报表和OLAP报表
- 煮酒谈报表展示(即席分析,模板分析)
- 羽毛球 - 握拍
- 我们需要什么怎样的OLAP(转摘并修改)
- 让F8键失效(Visual Basic)
- PHP程序开发中的模板选择
- 一道C语言题(2)
- Win32消息在C#中的使用
- 报表软件及其分类
- SQL Server 2000之日志传送功能 - 设定(3)
- Self-Deleting Executables
- 探究 Windows Vista 中新的语音识别与合成 API
- 报表采集汇总分析项目的关键点