该楼层疑似违规已被系统折叠隐藏此楼查看此楼<br>求解~~~我想监视Esc键<br>模块:<br>Public Const WH_KEYBOARD = 2<br>Public Const VK_SHIFT = &H10<br>Public Const VK_ESCAPE = &H1B<br>Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long<br>Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer<br>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<br>Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long<br>Public hHook As Long<br>Public Function KeyboardProc(ByVal idHook As Long, ByVal wParam As Long, ByVal lParam As Long) As Long<br>If idHook