BLOQUEO MOUSE Y TECLADO

[sircuit]

Buenas
saben que ando en busca de un codigo que bloquee automaticament e el mouse y el teclado del pc.
Gracias

[ghost]

Esta api lo bloquea:

Código:

'-----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

no se si funcionara en XP o NT

salu2

[sircuit]

mmm y no hay alguna forma de hacerlo en vbs ? que sea funcional en equipos NT

[Belorofonte]

me parese que con una bonba logica lo puedes hacer
mira que hay un manual en la secion de virus y troyanos
salu2 y suerte

[electro-ooz]

en windows XP si que me a funcionado

[sircuit]

Esta api lo bloquea:

Código:

'-----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

no se si funcionara en XP o NT

salu2

wow man
la sencilles me encanta.
molto gratzie.

PD:  Si solo se incluyera esto en el form:
Private Sub Form_Load()
    BlockInput True
End Sub

el teclado y mouse estarian bloqueados hasta que se reinicie el pc cierto ?

[ghost]

Código:

'En un modulo
Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As
Long

y luego en cualquier parte de tu codigo pones:

Código:

BlockInput True

ahi si te queda trabado el teclado y mouse, hasta que reinicies!


les dejo otro truquito mas, este es para esconder el cursor del raton

Código:

'Esto en un modulo:
Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long


'Encualquier parte de tu formulario, por ejemplo en el evento al cargar:
ShowCursor False  'Esconde el cursor del mouse !

salu2

[sircuit]

hay man
te has pasado.
da gusto ver aportar a gente como t