[Tutorial Basicão] Fazendo um Auto Clique

XSystemX

Honrado XPZ
14 de Julho de 2012
83
43
18
24
Vamos lá


Adicione os seguintes componentes em seu form:
2 Button (Aba Standard);
2 Timers (Aba System);
1 Edit (Aba Standard).

Agora posicione-os como quiser em seu form.
Ao posicionar, pode mudar a propriedade Caption dos buttons para:
Button1 - Iniciar (F1)
Button2 - Parar (F2)

Ao terminar, de duplo clique no botão Iniciar (F1).
Adicione o seguinte código entre Begin e End:


Timer1.Enabled:=True;

Dê duplo clique no botão Parar (F2).
Adicione o seguinte código entre Begin e End:


Timer1.Enabled:=False;

Feito isso, selecione o Timer 1 e mude as seguintes propriedades:
Enabled -> False
Interval -> 100 (100 é o tempo que haverá entre cada clique. É dado em ms. Pode mudar se quiser.)

Agora selecione o Timer 2 e mude as seguintes propriedades:
Interval -> 100 (Não mude.)

Agora dê duplo clique sobre o Timer1.
Adicione o seguinte código entre Begin e End:


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

Agora dê duplo clique sobre o Timer2.
Adicione o seguinte código entre Begin e End:


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

Ao fazer isso, pode testar (F9).

Gostou? Agradeça!