VB屏蔽按键

Option Explicit

'=================================================================

'功能:屏蔽任意键

'用法:Form_Load-->Call HooK Form_Unload-->Call UnHooK

'说明:要屏蔽某键,请修改LowLevelKeyboardProc函数中p.vkCode的值

'=================================================================

'==================================================================================================================

'ESC键 VK_ESCAPE(27)             '方向键(←)： VK_LEFT (37)           '小键盘0:   VK_NUMPAD0 (96)

'回车键:   VK_RETURN (13)          '方向键(↑)： VK_UP (38)          '小键盘1:   VK_NUMPAD0 (97)

'TAB键: VK_TAB (9)             '方向键(→)： VK_RIGHT (39)       '小键盘2:   VK_NUMPAD0 (98)

'Caps Lock键: VK_CAPITAL (20)    '方向键(↓)： VK_DOWN (40)           '小键盘3:   VK_NUMPAD0 (99)

'Shift键： VK_SHIFT ($10)           'F1键: VK_F1 (112)             '小键盘4:   VK_NUMPAD0 (100)

'Ctrl键:   VK_CONTROL (17)           'F2键: VK_F2 (113)    &