Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > C++ Builder
Actualizar esta página bloqueador de teclado antigatos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 24-03-2016
Avatar de aguml
aguml aguml is offline
Miembro
  
Registrado: may 2013
Posts: 885
Poder: 11
aguml Va por buen camino
bloqueador de teclado antigatos
Bueno, esto suena chistoso pero estoy cansado de que mis gatos masajeen mi teclado y he estado buscando soluciones para bloquear el teclado y que por mucho que pisen no hagan ningun estropicio. Todo lo que he encontrado por la red ha sido referente a una app que haga un hook del teclado y deseche las pulsaciones hasta que haya una combinacion de teclas deseadas o una palabra o algo asi. He escrito este codigo pero funciona a medias:
Código PHP:
#include <vcl.h>
#pragma hdrstop

#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

#define OK -32767 //Necesario para el keylogger

LRESULT WINAPI KeyboardEvent(int nCode, WPARAM wParam, LPARAM lParam);

TForm1 *Form1;
HHOOK  hKeyboardHook;
//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ButtonColocarHookClick(TObject *Sender)
{
   hKeyboardHook  = SetWindowsHookEx(WH_KEYBOARD_LL, (HOOKPROC)KeyboardEvent, GetModuleHandle(NULL), 0);
   ButtonColocarHook->Enabled = false;
   ButtonQuitarHook->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ButtonQuitarHookClick(TObject *Sender)
{
   UnhookWindowsHookEx(hKeyboardHook);
   ButtonColocarHook->Enabled = true;
   ButtonQuitarHook->Enabled = false;
}
//---------------------------------------------------------------------------

LRESULT WINAPI KeyboardEvent(int nCode, WPARAM wParam, LPARAM lParam)
{
   static count=0;

   if( (nCode == HC_ACTION) && ((wParam == WM_SYSKEYDOWN) || (wParam == WM_KEYDOWN)) ){
      if(GetAsyncKeyState(VK_CONTROL) && GetAsyncKeyState(VK_SHIFT))
      {

      }else if(GetAsyncKeyState(VK_CONTROL) && GetAsyncKeyState(VK_MENU))
      {

      }else if(GetAsyncKeyState(VK_CONTROL))
      {

      }else if(GetAsyncKeyState(VK_MENU))
      {

      }else if(GetAsyncKeyState(VK_SHIFT)){

      }else{
         if (count == 0 && tolower(*(PDWORD)lParam) == 'u') {        // 'u'
            count = 1;
         } else if (count == 1 && tolower(*(PDWORD)lParam) == 'n') { // 'n'
            count = 2;
         } else if (count == 2 && tolower(*(PDWORD)lParam) == 'l') { // 'l'
            count = 3;
         } else if (count == 3 && tolower(*(PDWORD)lParam) == 'o') { // 'o'
            count = 4;
         } else if (count == 4 && tolower(*(PDWORD)lParam) == 'c') { // 'c'
            count = 5;
         } else if (count == 5 && tolower(*(PDWORD)lParam) == 'k') { // 'k'
            count = 0;
            Form1->ButtonQuitarHook->Click();
         } else {
            count = 0;
         }
      }
   }
   return CallNextHookEx(hKeyboardHook, nCode, wParam, lParam);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
   hKeyboardHook  = SetWindowsHookEx(WH_KEYBOARD_LL, (HOOKPROC)KeyboardEvent, GetModuleHandle(NULL), 0);
   ButtonColocarHook->Enabled = false;
   ButtonQuitarHook->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
   UnhookWindowsHookEx(hKeyboardHook);
   ButtonColocarHook->Enabled = true;
   ButtonQuitarHook->Enabled = false;
}
//--------------------------------------------------------------------------- 
Realmente capturo todas las pulsaciones que desee pero lo que deseo es que esas pulsaciones sean todas desechadas hasta que se desbloquee el teclado pero aunque las capturo no consigo anularlas. ¿podeis ayudarme con esto?
Responder Con Cita
  #2  
Antiguo 24-03-2016
j0seant j0seant is offline
Miembro
  
Registrado: feb 2006
Posts: 38
Poder: 0
j0seant Va por buen camino
Algo sencillo es usar la función del API "BlockInput" (hay que ejecutarla con privilegios de administrador), bloquea tanto el teclado como el ratón hasta que se cierra el proceso que la invoco o usando la combinación CTRL+ALT+SUPR (que si los gatos ya conocen esta combinación se fastidio la cosa) ;-)
Última edición por j0seant fecha: 24-03-2016 a las 18:34:13.
Responder Con Cita
  #3  
Antiguo 24-03-2016
Avatar de jhonny
jhonny jhonny is offline
Jhonny Suárez
  
Registrado: may 2003
Ubicación: Colombia
Posts: 7.058
Poder: 29
jhonny Va camino a la famajhonny Va camino a la fama
Realmente no aportaré mucho con lo siguiente pero... Que genial idea, mis gatos se ven tan bonitos ahí estorbando que es imposible bajarlos, así que o los enseñamos a no subirse ahí (cosa posible pero con mucha paciencia) o esperaré con ansias tu app, pues suena genial.
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!"

http://www.purodelphi.com/
http://www.nosolodelphi.com/
Responder Con Cita
  #4  
Antiguo 24-03-2016
Avatar de aguml
aguml aguml is offline
Miembro
  
Registrado: may 2013
Posts: 885
Poder: 11
aguml Va por buen camino
Bueno, el codigo funciona perfectamente y es este:
Código PHP:
#include <vcl.h>
#pragma hdrstop

#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SysTrayIcon"
#pragma resource "*.dfm"

#define OK -32767 //Necesario para el keylogger

LRESULT WINAPI KeyboardEvent(int nCode, WPARAM wParam, LPARAM lParam);
bool CloseApp;

TForm1 *Form1;
HHOOK  hKeyboardHook;
//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ButtonColocarHookClick(TObject *Sender)
{
   hKeyboardHook  = SetWindowsHookEx(WH_KEYBOARD_LL, (HOOKPROC)KeyboardEvent, GetModuleHandle(NULL), 0);
   ButtonColocarHook->Enabled = false;
   ButtonQuitarHook->Enabled = true;
   Activarteclado1->Enabled=ButtonQuitarHook->Enabled;
   Desactivarteclado1->Enabled=ButtonColocarHook->Enabled;
   SysTrayIcon1->IconIndex=0;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ButtonQuitarHookClick(TObject *Sender)
{
   UnhookWindowsHookEx(hKeyboardHook);
   ButtonColocarHook->Enabled = true;
   ButtonQuitarHook->Enabled = false;
   Activarteclado1->Enabled=ButtonQuitarHook->Enabled;
   Desactivarteclado1->Enabled=ButtonColocarHook->Enabled;
   SysTrayIcon1->IconIndex=1;
}
//---------------------------------------------------------------------------

LRESULT WINAPI KeyboardEvent(int nCode, WPARAM wParam, LPARAM lParam)
{
   static count=0;

   if( (nCode == HC_ACTION) && ((wParam == WM_SYSKEYDOWN) || (wParam == WM_KEYDOWN)) ){
      if(!GetAsyncKeyState(VK_CONTROL) && !GetAsyncKeyState(VK_SHIFT) && !GetAsyncKeyState(VK_MENU)){
         if (count == 0 && *(PDWORD)lParam == 'U') {        // 'u'
            count = 1;
         } else if (count == 1 && *(PDWORD)lParam == 'N') { // 'n'
            count = 2;
         } else if (count == 2 && *(PDWORD)lParam == 'L') { // 'l'
            count = 3;
         } else if (count == 3 && *(PDWORD)lParam == 'O') { // 'o'
            count = 4;
         } else if (count == 4 && *(PDWORD)lParam == 'C') { // 'c'
            count = 5;
         } else if (count == 5 && *(PDWORD)lParam == 'K') { // 'k'
            count = 0;
            Form1->ButtonQuitarHook->Click();
         } else {
            count = 0;
         }
      }else{
         count = 0;
      }
      return 1;
   }
   return CallNextHookEx(hKeyboardHook, nCode, wParam, lParam);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
   hKeyboardHook  = SetWindowsHookEx(WH_KEYBOARD_LL, (HOOKPROC)KeyboardEvent, GetModuleHandle(NULL), 0);
   ButtonColocarHook->Enabled = false;
   ButtonQuitarHook->Enabled = true;
   Activarteclado1->Enabled=ButtonQuitarHook->Enabled;
   Desactivarteclado1->Enabled=ButtonColocarHook->Enabled;
   CloseApp=false;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
   UnhookWindowsHookEx(hKeyboardHook);
   ButtonColocarHook->Enabled = true;
   ButtonQuitarHook->Enabled = false;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Salir1Click(TObject *Sender)
{
   CloseApp = true;
   Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Desactivarteclado1Click(TObject *Sender)
{
   ButtonColocarHook->Click();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Activarteclado1Click(TObject *Sender)
{
   ButtonQuitarHook->Click();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
   if(CloseApp){
      CanClose = CloseApp;
   }else{
      CanClose=CloseApp;
      SysTrayCanClose = CanClose;
      SysTrayIcon1->Minimize();
   }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::SysTrayIcon1Minimize(TObject *Sender)
{
   SysTrayCanClose = true;
   SysTrayIcon1->Visible = true;
   SysTrayIcon1->Hide = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::SysTrayIcon1Restore(TObject *Sender)
{
   SysTrayIcon1->Visible = false;
   SysTrayIcon1->Hide = false;
}
//--------------------------------------------------------------------------- 
Ahora tengo un pequeño problema, se que se ha visto mas veces pero no doy con el post donde se trató, lo que deseo es que el form principal se inicie oculto ya que uso el componente SysTrayIcon que creó escafandra y quiero que arranque mostrando solo el trayicon y no lo consigo. Si que era poniendo algo en el cpp del proyecto pero no lo recuerdo.
Responder Con Cita
  #5  
Antiguo 24-03-2016
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
  
Registrado: may 2003
Posts: 7.424
Poder: 28
Lepe Va por buen camino
¿a ver si es esto?

Application-> ShowMainForm := False ;

La idea es buena, pero creo hay alternativas más fáciles, por ejemplo salvapantallas con contraseña y acceso directo en el escritorio para activarlo con tecla rápida global a windows (hook que todo acceso directo tiene implementado).

No tengo gato, pero uso algo parecido para apagar los monitores inmeditamente (screenOFF.exe bajado de internet).
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita
  #6  
Antiguo 24-03-2016
Avatar de aguml
aguml aguml is offline
Miembro
  
Registrado: may 2013
Posts: 885
Poder: 11
aguml Va por buen camino
Es lo que tu dices y ya lo puse. Con respecto a usar un salvapantallas pues no sirve porque a veces estoy viendo una peli y el gato decide que el teclado es una buena cama jajaja.
Ahora que he puesto esa linea aparece una excepcion al mostrar el menu del systrayicon. El problema es que no hay ningun form activo al ser el unico y estar oculto y el componente hace uso de este codigo:
Código PHP:
void __fastcall TSysTrayIcon::ShowMenu()
{
   if(FPopupMenu == NULL) return;

   TPoint point;
   GetCursorPos((tagPOINT*)&point);

   try
   {
      if (Screen->ActiveForm->Handle != NULL)
         SetForegroundWindow(Screen->ActiveForm->Handle);
   }
   catch (...)
   {
   }

   FPopupMenu->Popup(point.x, point.y);
} 
El caso es que ActiveForm vale NULL y da una excepcion y no la pasa ni con el catch correctamente.
He hecho un chapú para solucionarlo que es hacer en el evento OnCreate del form Form1->Show() y Form1->Hide() y con eso ya hay un form activo y no falla pero durande unas decimas aparece y desaparece el form y no quiero que pase eso.
Responder Con Cita
  #7  
Antiguo 25-03-2016
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
  
Registrado: nov 2007
Posts: 2.197
Poder: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
Cita:
Empezado por aguml Ver Mensaje
...Ahora que he puesto esa linea aparece una excepcion al mostrar el menu del systrayicon. El problema es que no hay ningun form activo al ser el unico y estar oculto y el componente hace uso de este codigo:
Código PHP:
void __fastcall TSysTrayIcon::ShowMenu()
{
   if(FPopupMenu == NULL) return;

   TPoint point;
   GetCursorPos((tagPOINT*)&point);

   try
   {
      if (Screen->ActiveForm->Handle != NULL)
         SetForegroundWindow(Screen->ActiveForm->Handle);
   }
   catch (...)
   {
   }

   FPopupMenu->Popup(point.x, point.y);
} 
El caso es que ActiveForm vale NULL y da una excepcion y no la pasa ni con el catch correctamente.
He hecho un chapú para solucionarlo que es hacer en el evento OnCreate del form Form1->Show() y Form1->Hide() y con eso ya hay un form activo y no falla pero durande unas decimas aparece y desaparece el form y no quiero que pase eso.
Efectivamente la función falla cuando Application->ShowMainForm = false porque en ese caso Screen->ActiveForm == NULL
He aprovechado para corregir eso y ampliar esa funcionalidad de forma sencilla.
Código PHP:
// Esto hará que la App arranque escondida, no visible en la barra de tareas y si en el SysTray 
__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{
   Application->ShowMainForm = false;
   SysTrayIcon1->Hide = true;
   SysTrayIcon1->Visible = true;
} 
El enlace del componente actualizado lo tienes aquí


Saludos
Última edición por escafandra fecha: 25-03-2016 a las 18:08:30.
Responder Con Cita
  #8  
Antiguo 24-03-2016
Avatar de aguml
aguml aguml is offline
Miembro
  
Registrado: may 2013
Posts: 885
Poder: 11
aguml Va por buen camino
Asi lo tengo ahora mismo:
Código PHP:
#include <vcl.h>
#pragma hdrstop

#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SysTrayIcon"
#pragma resource "*.dfm"

#define OK -32767 //Necesario para el keylogger

LRESULT WINAPI KeyboardEvent(int nCode, WPARAM wParam, LPARAM lParam);
bool CloseApp;

TForm1 *Form1;
HHOOK  hKeyboardHook;
//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ButtonColocarHookClick(TObject *Sender)
{
   hKeyboardHook  = SetWindowsHookEx(WH_KEYBOARD_LL, (HOOKPROC)KeyboardEvent, GetModuleHandle(NULL), 0);
   ButtonColocarHook->Enabled = false;
   ButtonQuitarHook->Enabled = true;
   Activarteclado1->Enabled=ButtonQuitarHook->Enabled;
   Desactivarteclado1->Enabled=ButtonColocarHook->Enabled;
   SysTrayIcon1->IconIndex=0;
   SysTrayIcon1->ShowBalloon("El teclado ha sido bloqueado","Gato, ya puedes jugar con mi teclado, esta vez gano yo jajaja.");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ButtonQuitarHookClick(TObject *Sender)
{
   UnhookWindowsHookEx(hKeyboardHook);
   ButtonColocarHook->Enabled = true;
   ButtonQuitarHook->Enabled = false;
   Activarteclado1->Enabled=ButtonQuitarHook->Enabled;
   Desactivarteclado1->Enabled=ButtonColocarHook->Enabled;
   SysTrayIcon1->IconIndex=1;
   SysTrayIcon1->ShowBalloon("El teclado ha sido desbloqueado","Gato, no te digo nada.");
}
//---------------------------------------------------------------------------

LRESULT WINAPI KeyboardEvent(int nCode, WPARAM wParam, LPARAM lParam)
{
   static count=0;

   if( (nCode == HC_ACTION) && ((wParam == WM_SYSKEYDOWN) || (wParam == WM_KEYDOWN)) ){
      if(!GetAsyncKeyState(VK_CONTROL) && !GetAsyncKeyState(VK_SHIFT) && !GetAsyncKeyState(VK_MENU)){
         if (count == 0 && *(PDWORD)lParam == 'U') {        // 'u'
            count = 1;
         } else if (count == 1 && *(PDWORD)lParam == 'N') { // 'n'
            count = 2;
         } else if (count == 2 && *(PDWORD)lParam == 'L') { // 'l'
            count = 3;
         } else if (count == 3 && *(PDWORD)lParam == 'O') { // 'o'
            count = 4;
         } else if (count == 4 && *(PDWORD)lParam == 'C') { // 'c'
            count = 5;
         } else if (count == 5 && *(PDWORD)lParam == 'K') { // 'k'
            count = 0;
            Form1->ButtonQuitarHook->Click();
         } else {
            count = 0;
         }
      }else{
         count = 0;
      }
      return 1;
   }
   return CallNextHookEx(hKeyboardHook, nCode, wParam, lParam);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
   hKeyboardHook  = SetWindowsHookEx(WH_KEYBOARD_LL, (HOOKPROC)KeyboardEvent, GetModuleHandle(NULL), 0);
   ButtonColocarHook->Enabled = false;
   ButtonQuitarHook->Enabled = true;
   Activarteclado1->Enabled=ButtonQuitarHook->Enabled;
   Desactivarteclado1->Enabled=ButtonColocarHook->Enabled;
   CloseApp=true;
   Form1->Show();
   Form1->Hide();
   SysTrayIcon1->ShowBalloon("El teclado ha sido bloqueado","Gato, ya puedes jugar con mi teclado, esta vez gano yo jajaja.");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
   UnhookWindowsHookEx(hKeyboardHook);
   ButtonColocarHook->Enabled = true;
   ButtonQuitarHook->Enabled = false;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Salir1Click(TObject *Sender)
{
   CloseApp = true;
   Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Desactivarteclado1Click(TObject *Sender)
{
   ButtonColocarHook->Click();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Activarteclado1Click(TObject *Sender)
{
   ButtonQuitarHook->Click();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
   if(CloseApp){
      CanClose = CloseApp;
   }else{
      CanClose = !CheckBox1->Checked;
      SysTrayCanClose = CanClose;
      SysTrayIcon1->Minimize();
   }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::SysTrayIcon1Minimize(TObject *Sender)
{
   SysTrayCanClose = true;
   SysTrayIcon1->Visible = true;
   SysTrayIcon1->Hide = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::SysTrayIcon1Restore(TObject *Sender)
{
   SysTrayIcon1->Visible = false;
   SysTrayIcon1->Hide = false;
   CloseApp=false;
   Form1->Show();
}
//--------------------------------------------------------------------------- 
Responder Con Cita
  #9  
Antiguo 25-03-2016
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
  
Registrado: nov 2007
Posts: 2.197
Poder: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
Veo que diste con la solución pero para el bloqueo no deberías devolver 1 sino -1.

En este enlace puse un ejemplo para bloquear teclado y ratón sólo para la aplicación que realiza el hook.

Saludos.
Responder Con Cita
Respuesta

« Tema Anterior | Próximo Tema »


Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes
El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Bloqueador para Android FabianSiza Desarrollo en Delphi para Android 1 14-01-2015 13:22:45
teclado usb armando Varios 1 12-02-2011 04:09:00
Bloqueador solar.... RONPABLO La Taberna 5 16-07-2007 19:48:47
Teclado D-MO Linux 3 14-07-2006 21:06:07
USB Teclado en Red Hat 9 nicocer Linux 0 05-07-2004 22:04:56


La franja horaria es GMT +2. Ahora son las 16:52:54.

Club Delphi - Archivo - Top

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi