Tutorial Teclado e Mouse / Simulando

[~Mystogan]

Hoje vou mostrar um pouco como são feitos os Hacks com comandos de Teclado e também vou mostrar como seria simular o pressionamento de uma Tecla ou botão do Mouse, muito usado em Auto Click e Bots.

OBS: Tudo que estiver depois de // dentro dos Codes são apenas Comentários.

1º Comando pra Ativar determinada Função

Normalmente usamos um "Timer" com Intervalo 100 pra verificar o pressionamento da Tecla, mas existem outras formas como por exemplo "While".
Nesse exemplo vou usar um "Timer".

procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
if GetAsyncKeyState(VK_SPACE)<>0 then  //Se a Tecla ESPAÇO for pressionada então 
begin 
PDWORD($ADDRESS)^:=Valor; 
end; 
end;  

Um exemplo usando Letras.

procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
if GetASyncKeyState(Ord('P')) <> 0 then  //Se a Tecla P for pressionada então 
begin 
PDWORD($ADDRESS)^:=Valor; 
end; 
end;  

Outro exemplo é usando 2 Teclas pra ativar uma função.

procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
if (GetASyncKeyState (VK_MENU) <> 0) and    // Se a Tecla ALT e  
 (GetASyncKeyState (VK_NUMPAD1) <> 0) then  // a Tecla NUMPAD 1 for pressionada então 
begin 
PDWORD($ADDRESS)^:=Valor; 
end; 
end;  

2º Simulando Mouse e Teclado

Agora vamos Simular o pressionamento do Mouse, normalmente usado em Auto Click. Podemos usar um "Timer" com intervalo a seu gosto.

procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);  // Pressiona o botão Esquerdo do Mouse 
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);       // Libera o botão Esquerdo do Mouse 
end;  

Pra mudar pro botão direito do Mouse só trocar LEFT por RIGHT.

Agora vamos simular o pressionamento do Teclado, muito usado em Bots

procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
keybd_event(VK_SHIFT,0,WM_KEYDOWN,0);          //Pressiona a Tecla SHIFT 
keybd_event(VK_SHIFT,0,KEYEVENTF_KEYUP,0);    //Libera a Tecla SHIFT 
end;  

Simulando o pressionamento de uma Letra.

procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
keybd_event(Ord('P'),0,WM_KEYDOWN,0);       // Pressiona a Tecla P 
keybd_event(Ord('P'),0,KEYEVENTF_KEYUP,0); //Libera a Tecla P 
end;  

Tabela com as Teclas para serem usadas junto do tutorial desse Tópico.

VK_LBUTTON      = Left mouse button 
VK_RBUTTON      = Right mouse button 
VK_CANCEL    = Control-break processing 
VK_MBUTTON    = Middle mouse button (three-button mouse) 
VK_BACK            = BACKSPACE key 
VK_TAB            = TAB key 
VK_CLEAR    = CLEAR key 
VK_RETURN    = ENTER key 
VK_SHIFT    = SHIFT key 
VK_CONTROL      = CTRL key 
VK_MENU            = ALT key 
VK_PAUSE    = PAUSE key 
VK_CAPITAL    = CAPS LOCK key 
VK_ESCAPE    = ESC key 
VK_SPACE    = SPACEBAR 
VK_PRIOR    = PAGE UP key 
VK_NEXT            = PAGE DOWN key 
VK_END            = END key 
VK_HOME            = HOME key 
VK_LEFT            = LEFT ARROW key 
VK_UP            = UP ARROW key 
VK_RIGHT    = RIGHT ARROW key 
VK_DOWN            = DOWN ARROW key 
VK_SELECT    = SELECT key 
VK_PRINT    = PRINT key 
VK_EXECUTE    = EXECUTE key 
VK_SNAPSHOT    = PRINT SCREEN key 
VK_INSERT    = INS key 
VK_DELETE    = DEL key 
VK_HELP            = HELP key 
VK_NUMPAD0    = Numeric keypad 0 key 
VK_NUMPAD1    = Numeric keypad 1 key 
VK_NUMPAD2    = Numeric keypad 2 key 
VK_NUMPAD3    = Numeric keypad 3 key 
VK_NUMPAD4    = Numeric keypad 4 key 
VK_NUMPAD5    = Numeric keypad 5 key 
VK_NUMPAD6    = Numeric keypad 6 key 
VK_NUMPAD7    = Numeric keypad 7 key 
VK_NUMPAD8    = Numeric keypad 8 key 
VK_NUMPAD9    = Numeric keypad 9 key 
VK_SEPARATOR    = Separator key 
VK_SUBTRACT    = Subtract key 
VK_DECIMAL    = Decimal key 
VK_DIVIDE    = Divide key 
VK_F1               = F1 key 
VK_F2               = F2 key 
VK_F3               = F3 key 
VK_F4               = F4 key 
VK_F5               = F5 key 
VK_F6               = F6 key 
VK_F7               = F7 key 
VK_F8               = F8 key 
VK_F9               = F9 key 
VK_F10               = F10 key 
VK_F11               = F11 key 
VK_F12               = F12 key 
VK_NUMLOCK     = NUM LOCK key 
VK_SCROLL     = SCROLL LOCK key 
VK_LSHIFT     = Left SHIFT key 
VK_RSHIFT     = Right SHIFT key 
VK_LCONTROL     = Left CONTROL key 
VK_RCONTROL     = Right CONTROL key 
VK_LMENU     = Left MENU key 
VK_RMENU     = Right MENU key  

Créditos

~Mystogan
PSob