Visual Basic - INHABILITAR MOUSE Y TECLADO

Life is soft - evento anual de software empresarial
 
Vista:

INHABILITAR MOUSE Y TECLADO

Publicado por jorge (7 intervenciones) el 01/07/2002 03:16:31
Hola amigos ¡¡¡
Necesito inhabilitar mouse y teclado temporalmente atraves de un timer y no pudo hacerlo con imputblock.dll ya que tambien me inhabilita el joistick y lo tengo que tener siempre habilitado y tengo que volver a habilitar el mouse y teclado sin reeniciar el sistema.

desde ya muchas gracias JORGE
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:INHABILITAR MOUSE Y TECLADO

Publicado por Adolfo (45 intervenciones) el 01/07/2002 13:54:02
hola jorge.
Te mando un ejemplo de cómo bloquear teclado y ratón con una función de la API. En el ejemplo en vez de usar un timer usa la función sleep.
Está sacado de http://www.allapi.net. Espero que te sirva.
Un saludo, Adolfo

Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Activate()
DoEvents
'block the mouse and keyboard input
BlockInput True
'wait 10 seconds before unblocking it
Sleep 10000
'unblock the mouse and keyboard input
BlockInput False
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:INHABILITAR MOUSE Y TECLADO

Publicado por gabriel (1 intervención) el 01/07/2002 16:14:17
pero eso bloquea todo, osea, .... el programa no puede seguir en funcionamiento , o yo estoy equivocado?

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:INHABILITAR MOUSE Y TECLADO

Publicado por Rolando (11 intervenciones) el 01/07/2002 22:38:07
ESTAS EQUIBOCADO, lo bloquea solo por el tiempo que indica el sleep, y luego continua sin problemas
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar