Como faz auto click?

[קђ๏єภเא 14]

Olha eu tava tentando fazer um auto click assim:

Tipo to tentando fazer auto click que fica tentando gerar cartao de cash toda hora

Ai tipo eu ja adiciono um WebBrowser Da pagina la de fazer o cash e tipo faço o botao "ativar" e "desativar" so que quando clica no "ativar" ele ja gere o codigo tudo certinho ja sem parar!

Entenderam?

[Surfistinha£ 20]

Adicione os seguintes componentes em seu form:

2 Button (Aba Standard);

2 Timers (Aba System);

 

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:

Código:

 

Timer1.Enabled:=True;

 

Dê duplo clique no botão Parar (F2).

Adicione o seguinte código entre Begin e End:

Código:

 

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:

Código:

 

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:

Código:

 

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).

[קђ๏єภเא 14]

Nao e bem assim tipo eu quero tipo um que deixe ele clicando sozinho

tipo X e Y eu ach o valor a mando ele clicar onde eu quero toda hora, tipo esse joy tokey ou outros!!!!!

[Surfistinha£ 20]

ah vc qer em coordenadas X e Y e Z ?

[קђ๏єภเא 14]

Tipo isso!!!!

[Surfistinha£ 20]

mas clika no botao direito ou esquerdo ?

[קђ๏єภเא 14]

Bom os dois tipo uma hora tipo o direito depois move pra tal coordenada e clica e depois denovo

[Surfistinha£ 20]

Primeiro Adicione o Timer , coloque o interval a 1.

 

e na ontimer do Timer coloca o seguinte codigo. coordenada click :

var

Pt : TPoint;

begin

Pt.X := 418; //posição da coordenada a clickar x

Pt.Y := 328; //posição da coordenada a clickar y

 

Pt := ClientToScreen(Pt);

Pt.x := Round(Pt.x * (ValorAqui / Screen.Width));

Pt.y := Round(Pt.y * (ValorAqui / Screen.Height));

 

Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, Pt.x, Pt.y , 0, 0);

 

agora se você quer q ele fica fixo naquela coordenada e faz o click o seguinte codigo Na onclick do Timmer:

 

SetCursorPos(x, y);

Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);

 

x a coordenada a clickar posição x

y a coordenada a clickar posição y

[קђ๏єภเא 14]

Como eu acho esse valor do y e do x??

[Surfistinha£ 20]

ADD um Button e Declare

procedure TForm1.Button1Click(Sender: TObject);

var

p: Tpoint;

s: string;

begin

GetCursorPos(p);

s:='X='+inttostr(p.x)+#13#10+'Y='+inttostr(p.y);

showmessage(s);

end;

 

end.

 

dps clika no botton1 e ira abrir a janela das coordenadas de X e Y pegue-as