Desactivar teclado

[David Vans]

SAludos queria saber como se podria desctivar el teclado y volverlo a activar

[MANULOMM]

yo tengo un codigo el cual bloquea el mouse y el teclado por un determinado tiempo:

Código [Seleccionar] Expandir


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

[ReViJa]

Me suena haber visto ese code

[MANULOMM]

si, esta en www.lawebdelprogramador.com yo nunca dije que lo habia hecho.... lo tenia



JUAN MANUEL LOMBANA
MEDELLÍN - COLOMBIA

[Hans el Topo]

pues no sirve para mucho puesto que pulsando control alt supr lo desbloquea...