Bloquear Teclado
Publicado: 19 Abr 2009, 14:55
Bueno, este es el codigo para bloquear el teclado.. ahora si esta el juego completo.. jejeje..
Hagamoslo de esta manera, agreguen un timer con un intervalo de 10000 mls.. para que podamos reactivar nuestro teclado y no tengamos inconvenientes:
En un form
En un modulo
Hagamoslo de esta manera, agreguen un timer con un intervalo de 10000 mls.. para que podamos reactivar nuestro teclado y no tengamos inconvenientes:
En un form
Private Sub Form_Load()
IdKeyBoard = SetWindowsHookEx(WH_KEYBOARD_LL, _
AddressOf WinProcKeyBoard, _
App.hInstance, 0)
End Sub
Private Sub Timer1_Timer()
If IdKeyBoard <> 0 Then UnhookWindowsHookEx IdKeyBoard
Timer1.Enabled = False
End Sub
En un modulo
Public 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
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public Const WH_KEYBOARD_LL = 13
Public IdKeyBoard As Long
Public Function WinProcKeyBoard(ByVal nCode As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
WinProcKeyBoard = -1
End Function