c语言VK_SPACE什么意思,以下键盘监视程序，换成VK_ESCAPE就什么反应都没有

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

求解~~~我想监视Esc键

模块：

Public Const WH_KEYBOARD = 2

Public Const VK_SHIFT = &H10

Public Const VK_ESCAPE = &H1B

Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long

Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

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

Public hHook As Long

Public Function KeyboardProc(ByVal idHook As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

If idHook < 0 Then

KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)

Else

If GetKeyState(VK_SHIFT) = 0 Then      '换成VK_ESCAPE就什么反应都没有

Form1.Cls

Form1.Print "你按下了Shift键"

End If

KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)

End If

End Function

=====================

窗体：Private Sub Form_Load()

hHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyboardProc, App.hInstance, App.ThreadID)

End Sub

Private Sub Form_Unload(Cancel As Integer)

UnhookWindowsHookEx hHook

End Sub