Es una api interesante! pongan esto en un modulo bas


Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long



Public Function Bloquear(Incremento As Integer, TiempoMax As Integer)
Static contador As Integer
contador = contador + Incremento
If contador >= TiempoMax Then
BlockInput False
End If
End Function





Y esto en su formulario, y necesitan agregar un timer si no se les bloqueara y no podran hacer nada ok?


Private Sub Form_Load()
Timer1.Interval = 1000
'BlockInput True
End Sub


Private Sub Timer1_Timer()
Bloquear 2, 10'El dos es el incremento en segundos y el diez son los segundos maximos, ok?


End Sub


Si tienes dudas postea!
Edited by: Zitro

y si solo quiero bloquear el teclado como le hago?

orientame acerca de cual es


el modulo bas

Entonces, esto bloque el uso del mouse y el teclado, pero cual es el codigo para iniciar, y cual para finalizar??? Obvio que solo bloque salvo la pulsacion de [Control]+[Alt]+[Supr] Verdad???

Iniciado por ezau

y si solo quiero bloquear el teclado como le hago?

Pues para bloquear el teclado puedes interceptar las teclas pulsadas, por ejemplo en el keypress del form, puedes hacer que si un flag esta activado no acepte teclas de esta forma


'Activa El Keypreview!


if flagActivaTeclado = false then KeyAscii=0

Iniciado por arturo

orientame acerca de cual es


el modulo bas

El Modulo bas no es mas que una parte de tu programa en la que puedes hacer funciones y Procesos, pero no es grafica, como los formularios, aui puedes crearte funciones o variables que van a servir en todo tu proyecto por ejemplo una variable boleana que te va a decir si esta o no esta un usuario administrador me entiendes?

Iniciado por Dark Zero

Entonces, esto bloque el uso del mouse y el teclado, pero cual es el codigo para iniciar, y cual para finalizar??? Obvio que solo bloque salvo la pulsacion de [Control]+[Alt]+[Supr] Verdad???

El Ctrl+Alt+Supr Funcionan y quitan el timer, Se tendria que desactivar el uso de estas teclas, ahi mismo esta el codigo pero aqui te va


'BlockInput True
Este es para Bloquear


'BlockInput False


Este es para Desbloquear


'Bloquear 2, 10'


Este es para poder poner parametros, pero recuerda que deben ir dentro de un timer para que funciones con segundos


Si tienen dudas dejen un post

creo que me va a servir pero como hago pa bloquear todo incluyendo el Ctrl+Alt+Spr???? todo por la ciencia...


si es posible agregame o respondeme al correo lasta16@gmail.com


GRACIAS!

como desabilito la tecla window y las teclas ctrl alt durante la ejecucion de un pgma

explicarme mas claro que es un api nesecito bloquear ctrl,alt,spr en visual se lo agradesco


escribir a babano22@hotmail.com

Viejo, una cosa, como es eso del timer, que la verdad lo he leído en muchas partes, pero no veo nada que lo explique y lo logre entender.

bueno tratando de responder las preguntas hay va...


Para empezar para bloquear otras teclas como el backdoor del ctrl+alt+supr si tu ventana esta activa solo haz que el keypreview del form este activado y de ahi que el cod ascii de la tecla pulsada sea igual a cero, si la ventana no esta con el foco hay que usar un gancho o los llamados hook, para interceptar las teclas presionadas y tambien dandoles un valor nulo, o con un windowfind puedes hacer que cuando se encuentre la ventana del administrados de tareas la cierre es cuestion de lo que se quiera hacer...


ahora con lo del timer solo es un control que puede hacer ciertas instrucciones cada cierto tiempo masomenos como un for pero con el tiempo que tu le asignes...


Bueno espero haber sido claro si tienen dudas dejen su post voy a tratar de contestar rapido

he estado buscando por internet y lo que he obtenido es que en equipos con NTFS NO SE PUEDEN BLOQUEAR las teclas Ctrl+Alt+Supr. encontré una donde se hace modificando una cadena del registro, pero se me perdió el enlace. si la encuentro la coloco.