|
Título: blokear teclado y mause Publicado por: Robokop en 24 Diciembre 2005, 21:50 pm Esta es una idea de como blokear el teclado por cierto lo puedes aumentear :P
Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long 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 si alguien puede contribuir con algo en el codigo se lo agradecere :shocked: |