Automatizando Click do Mouse

Question

Pessoal, estou com uma d�vida.Estou desenvolvendo um programinha, uma parte dele faz com que o click com o bot�o direito do mouse seje automatico, ou seja, apertando um bot�o definido no programa para...

Andremuller · Answer

N�o sei se � isso que tu quer, mas fica valendo a tentativa. Claro que o c�digo abaixo estoura, mas talvez o que tu queira � a id�ia em si.

property Parar: boolean read FParar write FParar;

procedure TForm1.btnPararClick(Sender: TObject);
begin
Parar := True;
end;

procedure TForm1.btnIniciarClick(Sender: TObject);
begin
Parar := False;
while not Parar do
begin
Application.ProcessMessages;
btnIniciar.OnClick(Sender);
end;
end;

Nicchio · Answer

� amigo, n�o deu certo !Oq eu precisava mesmo n�o era nem apertando o bot�o inicar e parar e sim uma tecla expecifica, nisso o programinha vai estar checando se a tecla foi apertada, se foi ele come�a a clicar com o bot�o direito na tela. (obs: o programa vai estar minimizado, ou seja, n�o vai ser somente dentro da janela do programinha e sim no windows todo.)...

Nicchio · Answer

Alguem tem mais alguma id�ia ?! Andei vendo com um amigo ae, parece q cada tecla e bot�o do mouse tem um n�mero, alguem sabe disso ae ?Valeuz !...

F�rum Vini · Answer

Ol�,para simular um clique do mouse, existe a fun��o mouse_event, mas para facilitar as coisas eu criei essa fun��o para voc�:[code:1:c21cb387d0]procedure CliqueMouse;begin  mouse_event( MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0 );  sleep(1);  mouse_event( MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0 );end;[/code:1:c21cb387d0]Se for um clique com o bot�o esquerdo, troque RIGHT por LEFT :wink:Agora o loop infinito para chamar essa fun��o fica por sua conta  :P Qualquer d�vida � s� postarT+,Vinicius;...

Nicchio · Answer

Velho, n�o sei se � pq estou no Kylix, mais esta falando que n�o existe esse mouse_event. Ele est� falando q n�o foi declarado o mouse_event....

F�rum Vini · Answer

Ah... ent�o � por isso... a mouse_event � uma API do Windows  :roll: No Linux eu n�o sei se existe uma fun��o parecida, mas provavelmente deve ter  :wink: T+,Vinicius;...

Vagner.oliveira · Answer

Tche tens com como me dizer o q s�o os 4 zeros pois estou tentanfo fazer um programa q grave uma determinada posi��o e depois independente de onde estiver o mouse ele ir� clicar l�...

F�rum Vini · Answer

[quote:cf70b2aa29=�vagner.deoliveira�]Tche tens com como me dizer o q s�o os 4 zeros pois estou tentanfo fazer um programa q grave uma determinada posi��o e depois independente de onde estiver o mouse ele ir� clicar l�[/quote:cf70b2aa29]Pra isso vc tem que setar a flag MOUSEEVENTF_ABSOLUTE e passar as coordenadas como par�metros:[code:1:cf70b2aa29]procedure CliqueMouse;begin  mouse_event( MOUSEEVENTF_RIGHTDOWN or MOUSEEVENTF_ABSOLUTE, X, Y, 0, 0 );  sleep(1);  mouse_event( MOUSEEVENTF_RIGHTUP or MOUSEEVENTF_ABSOLUTE, X, Y, 0, 0 );end;[/code:1:cf70b2aa29]Onde X e Y s�o as coordenadas do mouse em rela��o � tela.Qualquer d�vida, estou aqui :wink:Espero ter ajudado,Vinicius;...

F�rum Automatizando Click do Mouse #261248