[Resolvido] Clicando com o botao esquerdo do mouse

[RmX ® 0]

Queria uma source de um programa que ficasse clicando com o botao esquerdo do mouse!

 

Ou seja com um TButton no Form que no evento OnClick do TButton um codigo para que fique clicando sem parar com o botao esquerdo do mouse!

 

Obrigado!

[marcio.theis 3]

Bom, não sei qual a finalidade disto, e nem muito explicativo esta, mas pode adicionar um TTimer no programa e no evento OnTime fazer:

 

BitBtn1Click(Sender);

Assim vai ficar chamando o evento OnClick do botão...

Sendo que pode ainda mudar o tempo no TTimer conforme desejado...

[RmX ® 0]

Eu fiz e coloquei em um zip ve se ta certo!

 

http://rapidshare.com/files/82462355/Auto_Clicker.zip.html

 

Valeu viu !?

[marcio.theis 3]

Nesse fonte que você passou, não tem nenhum evento, nenhum fonte para executar...

[RmX ® 0]

Voce pode arrumar pra mim!?

[marcio.theis 3]

A intenção do fórum é ajudar, e não fazer o serviço...

Basta você implementar o fonte que passei no post acima...

[RmX ® 0]

Se voce puder passar tudo explicadinho pra mim!

 

Eu agradeco =)

[marcio.theis 3]

Você já criou o código que deseja para o botão ? Primeiro precisa ter ele pronto, depois basta dar dois cliques sobre o TTimer e colocar a chamada do clique do botão:

 

BitBtn1Click(Sender);

[RmX ® 0]

Ainda nao fiz nada sou mto iniciante =\

[marcio.theis 3]

Bom, primeiro então desenvolve o fonte desejado do botão...

E depois implementa-se o restante...

[RmX ® 0]

Voce poderia me dar uma dica de como eu faco!

 

ou entao postar uma pra eu aprender a fzr?

[marcio.theis 3]

Mas o que você quer colocar no botão ? Precisa comentar o que deseja que o botão faça...

[RmX ® 0]

Tipo quando eu clicar no Butao !

 

O Prog fica clicando com o botao ESQUERDO do mouse =)

[marcio.theis 3]

Bom, isto você já falou...

Mas você precisa ter alguma coisa no BOTÃO, algum fonte para executar algo, senão não adianta ele ficar clicando no botão, não vai fazer nada... Ou você quer que ele fique clicando com o botão do mouse independente de onde esteja ?

[RmX ® 0]

Ou você quer que ele fique clicando com o botão do mouse independente de onde esteja ?

 

Isso ai!

 

Tem como me passar o codigo !?

[marcio.theis 3]

Agora sim... disse o que realmente queria... :P

 

Isto é simples de se fazer, pode fazer da seguinte forma:

 

var
	Pt: TPoint;
begin
Timer1.Enabled:=True;
Pt:=ClientToScreen(Pt);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, Pt.x, Pt.y, 0, 0);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, Pt.x, Pt.y, 0, 0);

Sendo que o fonte completo fica:

 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TForm1 = class(TForm)
	BitBtn1: TBitBtn;
	Timer1: TTimer;
	procedure BitBtn1Click(Sender: TObject);
	procedure Timer1Timer(Sender: TObject);
	procedure FormCreate(Sender: TObject);
  private
	{ Private declarations }
  public
	{ Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
	Pt: TPoint;
begin
Timer1.Enabled:=True;
Pt:=ClientToScreen(Pt);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, Pt.x, Pt.y, 0, 0);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, Pt.x, Pt.y, 0, 0);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
BitBtn1Click(Sender);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled:=False;
end;

end.

[RmX ® 0]

Valeu cara!

 

De coração ;)

[RmX ® 0]

Tipo cara!

 

Nao foi do jeito que eu queria!

 

Tipo Qndo eu Clico em Ativar no Button

 

Ele So Clica dentro do programa!

 

Eu queria que ele clicasse fora tbm!

 

E Sem parar =/

 

Como faço!?

[marcio.theis 3]

Ele faz isto sim, só que ele clica a cada um segundo...

Fiz teste aqui e ele funciona em qualquer local que estiver...

No caso para clicar mais rápido, precisa diminuir o tempo no TTimer, pode colocar meio segunda, ou seja, 500 milisegundos...

[RmX ® 0]

Faz não!

 

Tenta clicar no button e dar alt tab e ir para outro aplicativo!

 

Veja meu codigo:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TForm1 = class(TForm)
	BitBtn1: TBitBtn;
	Timer1: TTimer;
	procedure BitBtn1Click(Sender: TObject);
	procedure Timer1Timer(Sender: TObject);
	procedure FormCreate(Sender: TObject);
  private
	{ Private declarations }
  public
	{ Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
	Pt: TPoint;
begin
Timer1.Enabled:=True;
Pt:=ClientToScreen(Pt);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, Pt.x, Pt.y, 25, 25);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, Pt.x, Pt.y, 25, 25);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
BitBtn1Click(Sender);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled:=False;
end;

end.