Início
![Tutorial Auto Click [Iniciante] Empty](https://2img.net/i/empty.gif)
Bom Galera Aque e o RevoProgrammer Vou Mostrar para vocês como fazer um auto click que e bem utilizado Em MU . Então vamos la !
bom se tiver alguma coisa faltando nele alguem me diz porfavor
Na sua form crie
1 label
1 edit
1 timer
2 button ( Um para ligar e o outro para desligar )
Posicione eles a sua escolha =]
de 2 click no button 1 qe no caso seria o ligar
e bote esse codigo entre o begin e o end;
Código HTML:
E no button 2 qe no caso seria o de desligar
bote esse codigo entre o begin e o end;
Agora de 2 click no timer e bote um desses 2 códigos
Click Esquerdo :
Código HTML:
Click Direito :
Código HTML:
No meu auto click eu usei o esquerdo
então sua Unit ficara exatamente assim
bom se tiver alguma coisa faltando nele alguem me diz porfavor
Na sua form crie
1 label
1 edit
1 timer
2 button ( Um para ligar e o outro para desligar )
Posicione eles a sua escolha =]
de 2 click no button 1 qe no caso seria o ligar
e bote esse codigo entre o begin e o end;
Código HTML:
timer1.interval:= strtoint(edit1.text);
timer1.enabled:= true;
E no button 2 qe no caso seria o de desligar
bote esse codigo entre o begin e o end;
Código HTML:
timer1.enabled:= false;
Agora de 2 click no timer e bote um desses 2 códigos
Click Esquerdo :
Código HTML:
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
Click Direito :
Código HTML:
mouse_event(MOUSEEVENTF_RIGHTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_RIGHTUP,0,0,0,0);
No meu auto click eu usei o esquerdo
então sua Unit ficara exatamente assim
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Timer1: TTimer;
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.interval:= strtoint(edit1.text);
timer1.enabled:= true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
timer1.enabled:= false;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
mouse_event(MOUSEEVENTF_RIGHTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_RIGHTUP,0,0,0,0);
end;
end.
RevoProgrammer 
Dedicando a Revolution Cheats
Dedicando a Revolution Cheats
Última edição por RevoProgrammer em Qua Jan 23, 2013 5:45 am, editado 1 vez(es)
