destructor
22 de Agosto del 2005

hola a qien klea este mensaje.
por fa si pueden ayudemen con el codigo para bloquear el mouse y el teclado

mvallejos
22 de Agosto del 2005

Me imagino que lo que quieres bloquear del teclado
es el ALT+TAB o el CTRL+ALT+SUPR

Private Const SPI_SCREENSAVERRUNNING = 97&
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

Sub DeshabilitarCierre()
'Para deshabilitar estas teclas:
Dim lngRet As Long
Dim blnOld As Boolean
lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, _
True, blnOld, 0&)

End Sub
Sub HabilitarCierre()
'Para volver a habilitarlas:
Dim lngRet As Long
Dim blnOld As Boolean
lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, _
False, blnOld, 0&)
End Sub

Lo del mouse no recuerdo bien, pero hay una API por el estilo para eso.

Saludos

axelopez
22 de Agosto del 2005

El teclado se como lo pudes bloquear y como ocultar el raton, pero como esperas volver a la normalidad??

o tu intencion es dañar a alguien??

Aunque te infromo que el ctrl+alt+del no se puede, windows no deja hacer interrupcion en el. yo lo utilice para un programa en el que se bloquea completamente una estacion con internet, con el objeto que no pueda utilizar hasta que escriban la contraseña, tuve que desavilitar las teclas de funcion de windows, el taskmanager, entre otras cosas.

Estudia un poquitin el SetWindowsHookEx
y me contas