Delphi 7 - Como fazer um auto click com coordenadas pré definidas

[SeaCrusher 0]

Video Aula:

 

[video=youtube;4Rd9VzTMQ5M]

[Puro.Osso 0]

Hum, não sou ligado em auto-click mais obrigado por postar

Irar ajudar muitos membros e moderadores.

[iMelo~' 18]

Já sabia fazer uma parte e outra área de coordenadas nao pois nunca tentei, parabens pelo video

[Lf' 7]

Opa, ótima vídeo aula :D

gostei bastante, vídeos são muito boas, principalmente por serem mais fáceis de entender, isso ajuda bastante os que estão iniciando agora;

Obrigado por compartilhar esse tutorial conosco.

 

Abraços.

[xicra 0]

Alguem poderia postar um tutorial do que ele ensinou ? é por que aqui esta muito ruim para vizualizar videos. obrigado

[gaabscps 8]

Na descrição do vídeo tem os códigos:

Nesta vídeo aula mostrarei como fazer um auto click a qual você configura as coordenadas de onde deve ser clicado

 

Codigos :

Obs: Não copie e cole no seu projeto pois dará erro o codigo é so para voce ver como eles são!!

 

procedure TForm1.Button1Click(Sender: TObject);

begin

timer1.Enabled := true;

timer1.Interval :=STRToint (edit1.text);

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

timer2.Enabled := true;

timer2.Interval :=STRToint (edit2.text);

end;

 

procedure TForm1.Timer1Timer(Sender: TObject);

begin

SetCursorPos(X, Y);

Mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0 );

Mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0 );

end;

 

procedure TForm1.Timer2Timer(Sender: TObject);

begin

SetCursorPos(X, Y);

Mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0 );

Mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0 );

end;

 

procedure TForm1.Button3Click(Sender: TObject);

begin

button1.Visible := false;

end;

 

procedure TForm1.Button4Click(Sender: TObject);

begin

button1.Enabled := true;

end;

 

end.

[SeaCrusher 0]

qualquer coisa os videos estao em HD :D