bloquear teclado

[foreneo]

alguien que sepa como hacerle para bloquear el teclado en windows xp sp2
estoy usando este codigo


Private Declare Function SystemParametersInfo Lib "User32" _
Alias "SystemParametersInfoA" _
(ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long

Private Const SPI_SCREENSAVERRUNNING = 97&


Private Sub Form_Load()
Dim lngRet As Long
Dim blnOld As Boolean

lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, blnOld, 0&)
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim lngRet As Long
Dim blnOld As Boolean
lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, blnOld, 0&)
End Sub

pero no funciona para nada, alguien que pueda ayudarme?

[jc_moty]

Si la memoria no me falla la API BlockInput hace eso; nada mas que esta funcion creo que tambien bloquea el mouse.

Código:

Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long

' Para bloquear:
BlockInput True

' Para desbloquear:
BlockInput False

Saludos

[foreneo]

voy a probar a ver que tal

[marcos1979]

jc_moty tu memoria no te falla, bloquea ambas cosas.

fereneo, BLOQUEA DE VERDAD las dos cosas, ten cuidado en las pruebas ya que no podras desbloquearlo, salvo con el propio código... o con el reset de la pc :p (esto lo digo por experiencia)

Un saludo

[darkhack]

Se desblokea si abres el administrador de tareas(control + alt + suprimir)

[jc_moty]

Iniciado por darkhack

Se desblokea si abres el administrador de tareas(control + alt + suprimir)

Exactamente; una solucion que vi por ahi, es usar las APIs FindWindow y SendMessage, para cerrar la ventana del administrador:

Código:

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
    (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const SC_CLOSE = &HF060&
Public Const WM_SYSCOMMAND = &H112

' su uso
Dim hWnd As Long
' cerrar el administrador de tareas
hWnd = FindWindow(vbNullString, "Titulo del Administrador de tareas")
Call SendMessage(hWnd, WM_SYSCOMMAND, SC_CLOSE, ByVal 0&)

Saludos

[marcos1979]

jajaj, nunca habia probado con ctrl + alt + sup para desbloquear, todos los dias se aprende algo nuevo.

Un saludo

[darkhack]

Claro!!!! siempre se aprende algo nuevo y especialmente aki en FDW:arrivb:

[foreneo]

igual y asi se bloquea toda la compu hasta el mouse