[Medio]Criando um AutoClick Usando 2 Metodos

[FusioN]

A Pedido do Membro diegoka10 Vou Encinar a Faser um Auto Clique Usando 2 Metodos.

METODO 1

Componentes:

2 Buttons;
2 Timer;

Tutorial:

1° Mude as captions dos buttons de acordo como se mostra abaixo:

Button 1 = Iniciar F11
Button 2 = Parar F12

2° Adcione o codigo abaixo no "Iniciar F11":

Timer1.Enabled:=True;

3° Adcione o codigo abaixo no "Parar F12"

Timer1.Enabled:=False;

4° Agora mude as properties do Timer1 de acordo como mostra abaixo:

Enabled - False;
Interval - 100; (Este valor é o tempo de cada clique é feito em MS, se quise rpode altera-lo).
Name - Timer1;
Tag - 0;

5° Agora mude as properties do Timer2 de acordo como mostra abaixo:

Enabled - True;
Interval - 100; (Não altere este valor).
Name - Timer2;
Tag - 0;

6° Agora adcione o seguinte codigo no Timer1:

mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);

7° Por ultimo adcione o seguinte codigo no Timer2:

if (GetAsyncKeyState (VK_F11) <> 0) then begin
  Timer1.Enabled:=True;
  Button1.SetFocus;
end;
if (GetAsyncKeyState (VK_F12) <> 0) then begin
  Timer1.Enabled:=False;
  Button2.SetFocus;
end;

METODO 2

Componentes:

2 Buttons;
1 Timer;

Tutorial:


1° Mude as captions dos buttons de acordo como se mostra abaixo:

Button 1 = Iniciar
Button 2 = Parar

2° Mude as properties do Timer1 como mostra a seguir:

Enabled - False;
Interval - 100
Name - Timer1; (Este valor é o tempo de cada clique é feito em MS, se quise rpode altera-lo).
Tag - 0;

3° Adcione o seguinte codigo no botão Iniciar:

timer1.enabled:= True;

4° Adcione o seguinte codigo no botão Parar;

timer1.enabled:= False;

5° Adcione o codigo abaixo no Timer1 se for o botão esquerdo do mouse para autoclick:

mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
   mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);

6° Adcione o codigo abaixo no Timer1 se for o botão direito do mouse para autoclick:

mouse_event(MOUSEEVENTF_RIGHTDOWN,0,0,0,0);
   mouse_event(MOUSEEVENTF_RIGHTUP,0,0,0,0);

Criado Por:

FusioN

[diegoka10]

Aqui o metodo 2 deu certo , o primeiro tbm , so que nao vai quando aperta f11 -f12 , so manualmente.Vlw!

[FusioN]

Que Pena Manow !
Eu Vo Ver se da pra min criar o 3° Metodo Usando HOTKEYS ai eu posto blz ?

---------------------------------------------------------------------------------------------------

Me desculpa ae galera, o infelis q fes o code fes todo errado, eu modifiquei e agora o METODO 1 funciona com F11 e F12 .

[LaBaK]

Isso eu fiz só que nem pegou no Mu :s


----------------------Edit--------------------------------

Consegui, eu fiz pelo Findwindow, para capturar peloo nome da janela e depois ele da um sendmessage!

[FusioN]

LeBaK,
Como nosso amigo diegoka vinha dito, não funcionou no mu mesmo.
Vi o seu topico pedindo uma sourcer ai um amigo disse para usar a função SendMessage nesse metodo aqui usa o mouse_event, então não posso lhe diser se usar o metodo SendMessage ira funcionar, eu vou ver aqui se consigo faser uma sourcer, mas naum vou te prometer nada.

Abraços

-----------------------------------------

Caso naum de certo procure sobre SetWindowsHookEx, talvez precise hook o teclado, eu naum sei como funciona seria bom um programador da area dar um suporte a você.