Проблемы с GetKeyState

[Rostik Ultra (2)]

'In a module
Public Const WH_KEYBOARD = 2
Public Const VK_SHIFT = &H10
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 is less than zero, no further processing is required
If idHook < 0 Then
'call the next hook
KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
Else
'check if SHIFT-S is pressed
If (GetKeyState(VK_SHIFT) And &HF0000000) And wParam = Asc("S") Then
'show the result
end
End If
'call the next hook
KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
End If
End Function

'In a form, called Form1
Private Sub Form_Load()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
'set a keyboard hook
hHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyboardProc, App.hInstance, App.ThreadID)
End Sub
Private Sub Form_Unload(Cancel As Integer)
'remove the windows-hook
UnhookWindowsHookEx hHook
End Sub



При выполнении программа на стадии разработки падает не то только прога но и весь проект - просто всё исчезает без всяких сообщений ... А в скомпилированной программе прога падает с попыткой отослать отчёт

[alibek]

А нефиг хуки ставить.

[Naked]

end убери и вылетать не будет

[tyomitch]

А нефиг хуки ставить.

Хуки как раз на месте, просто первый раз вижу чтобы их смешивали с GetKeyState. Может, лучше GetKeyState убрать?

[alibek]

tyomitch, я к тому, что нефиг делать End, не вернув WindowProc.

[Rostik Ultra (2)]

А нефиг хуки ставить.

Хуки как раз на месте, просто первый раз вижу чтобы их смешивали с GetKeyState. Может, лучше GetKeyState убрать?

Все вопросы к апи гайду , пример взят оттуда ...

[Rostik Ultra (2)]

tyomitch, я к тому, что нефиг делать End, не вернув WindowProc.

А как ?