SAludos queria saber como se podria desctivar el teclado y volverlo a activar
yo tengo un codigo el cual bloquea el mouse y el teclado por un determinado tiempo:
Bloquea el mouse y el teclado
'-----Modulo-----
Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
'-----Programa-----
'Añadir un timer en el formulario
'Durante 10 segundos el teclado y mouse quedaran bloqueados
Private Sub Form_Load()
Timer1.interval = 1000
BlockInput True
End Sub
Private Sub Timer1_Timer()
Static contador As Integer
contador = contador + 1
If contador = 10 Then BlockInput False: MsgBox "timer"
End Sub
Espero que esto te sirva
JUAN MANUEL LOMBANA
MEDELLÍN - COLOMBIA
Me suena haber visto ese code ;)
si, esta en www.lawebdelprogramador.com (http://www.lawebdelprogramador.com) yo nunca dije que lo habia hecho.... lo tenia
JUAN MANUEL LOMBANA
MEDELLÍN - COLOMBIA
pues no sirve para mucho puesto que pulsando control alt supr lo desbloquea...