Bloqueo de teclado
Como se puede bloquear el teclado de una computadora usando Visual Fox 6.0
1 Respuesta
Respuesta de Víctor Arturo Mercado Fernández
1
Si, haciendo uso de las API's, algo similar a:
Declare Integer SystemParametersInfo ;
In user32 As SystemParametersInfo ;
Integer uAction , ;
Integer uParam ,;
String lpvParam ,;
Integer fuWinIni
* Bloquear el Boton Inicio, Crtl + Tab y Ctrl + Alt + Supr
=SystemParametersInfo( 97, 1, 0, 0)
wait windows "botones crtl+tab y ctrl+alt+supr bloqueados"
* desbloquear
=SystemParametersInfo( 97, 0, 0, 0)
Wait windows "botones desbloqueados"
Bueno, eso digo yo...
Declare Integer SystemParametersInfo ;
In user32 As SystemParametersInfo ;
Integer uAction , ;
Integer uParam ,;
String lpvParam ,;
Integer fuWinIni
* Bloquear el Boton Inicio, Crtl + Tab y Ctrl + Alt + Supr
=SystemParametersInfo( 97, 1, 0, 0)
wait windows "botones crtl+tab y ctrl+alt+supr bloqueados"
* desbloquear
=SystemParametersInfo( 97, 0, 0, 0)
Wait windows "botones desbloqueados"
Bueno, eso digo yo...
Se pueden bloquear todas las teclas sin excepción( ctrl+alt+del, alt, el despliegue del menu de inicio
Puedes usar la función INKEY() con algo similar a:
m.nTecla = 0
DO WHILE m.nTecla <> -9 && F10
m.nTecla = INKEY(0)
Enddo
Bueno, eso digo yo...
m.nTecla = 0
DO WHILE m.nTecla <> -9 && F10
m.nTecla = INKEY(0)
Enddo
Bueno, eso digo yo...
