[Ajuda] Auto clicker Delphi

[victorhk 0]

Ta vamos la.

Queria saber 2 Coisas.

1° Como fazer meu auto clicker rodar em uma janela espeficia e nao no q ta aberto

Ex: vc ta com o auto clicker no jogo, dai alguem vai falar com vc no msn e se vai responder, dai o auto click sai digitando [OBS nao quero isso] quero q ele rode apenas na janela do jogo.

 

2° Eu concegui fazer o auto clicker de numeros mais quero fazer um de mouse tipo X Y

so q nao sei como q faço pra achar o X Y do meu programa saca. queria fazer um painel em 800 x 600 q mi mostrase aonde e X e Y pra eu por no programa.

 

se alguem puder mi ajudar eu agradeceria.

obg

[Ryokusei 21]

1 - Verifique a janela ativa antes de clicar, use a API GetFocus ou GetForegroundWindow. Ou se o jogo permitir use API's de janela que podem ser executadas independente da janela em foco, por exemplo, SendMessage;

 

2 - O X e Y do seu programa é definido respectivamente por: NomeDoForm.Left e NomeDoForm.Top

[victorhk 0]

Tipo vc ja viu o WYD FAK? e um aplicativo q serve pra clicar em X e Y so q ele SO RODA NA JENA ESPECIFICADA NO Edit queria saber como fazer isso no meu programa...

[raniely 0]

Pra ele funcionar só na janela que você quer faça o seguinte,

-Declare uma Variavel Global ( titulo:String ) // se você não sabe é aquela que tem o Form declarado fica em cima do Implementation

-Adicione um Timer (timerTitulo)

-coloque esse codigo nele:

 

GetWindowText( GetforegroundWindow, PChar(titulo), 255);

if titulo=edtJanela.text then //edtJanela é o edit que deve conter o nome da janela que será clicada

timerAutoClick.enabled:=true

else

timerAutoClick.enabled:=false;

 

-Agora pra pegar o X,Y do Mouse na Tela:

 

procedure TForm1.Timer1Timer(Sender: TObject);

var

Mouse: TPoint;

begin

if GetCursorPos(Mouse) then

Label1.Caption := 'Mouse: x='+IntToStr(Mouse.x)+' y='+IntToStr(Mouse.y);

end;

 

Pelo que eu entendi você queria que o panel de 800x600 simulace a tela do jogo para você descobrir uma coordenada e fazer clicar nela certo ?

Se for isso não tem problema use a coordenada da tela mesmo que da certo.

[victorhk 0]

Raniely olha ta dando erro nesta linha

timerAutoClick.enabled:=true

else

timerAutoClick.enabled:=false;

 

Tipo ja removi ela e criei um button dai botei nele

Timer1.enabled:= True;

 

dai nao da erro so q nao funciona na janela especifica... se puder dar mais uma força ai eu agradeço =D:D

[raniely 0]

Explicando:

Cria uma variavel global chamada titulo do tipo String

ai você vai por um timer pra fazer a variavel titulo receber o nome da janela

adiciona um timer ( timerTitulo ) neste timer programe:

 

GetWindowText( GetforegroundWindow, PChar(titulo), 255);

if titulo=edtJanela.text then //edtJanela é o edit que deve conter o nome da janela que será clicada

timerAutoClick.enabled:=true else

timerAutoClick.enabled:=false;

{o auto click não tem um timer que simula o click do mouse a cada intervalo ? então você vai Ativar o autoClick se o Titulo da janela for Igual ao Titulo que você digitou no edtJanela e se não for ele para o timer do autoClick}

 

realmente possui muitos problemas no que eu disse, estou tentando fazer aqui (meio basico) mas estou tendo problemas sahsuhu quando consegui eu posto... se eu consegui :X

[victorhk 0]

Uhum, e tipo o X e Y ele mostra as Cordendas X e Y da resolucao total do monitor, dai quando eu conseguir fazer ele rodar apenas em uma janela ele vai mostra so o x e y da minha janela ou de todo monitor?:D

[raniely 0]

entao ele vai mostra o do monitor inteiro... bom daquele jeito que te falei acho que nao ia consegui mesmo tive problemas pra fazer daquele jeito entao fiz de outra forma... ta qse completo jah se quise eu posto aqui o projeto

(só nao postei pq não ta completo ainda)

[victorhk 0]

Num tem problema tar incompleto nao, manda ai q e bom e que eu vo entendendo como ele funciona, vlw

[raniely 0]

bom eu não ia te manda sem termina de fase o que você pediu,

eu terminei agora mas ainda tem bugs e nao to com vontade pra arruma D:

por exemplo:

coloquei atalho pra aumenta e diminui o Delay do click (+,-)

entao quando voce diminui o delay se ele chega a 0 ou fica negativo

para de conta o timer entao você tem que trava ele no +1.

deve te outros ainda...

se não consegui entende o que eu fiz, me contate ^^

(não duvidando de vc, mas meus codigos sao doidos d+ e as vezes nem eu entendo)

Download do Projeto (código e executavel)

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Scan

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

Ajudei ? Agradeça ! Afinal um click não custa nada

[victorhk 0]

huhuhu "(não duvidando de vc, mas meus codigos sao doidos d+ e as vezes nem eu entendo)" normal. agente tem q tentar ser diferente, pq se formos todos iguais, todos vao saber oque os outros pensao, fazendo e vao fazer =D

 

vo ver o codigo aki, e vlw pela atençao =D:D

[raniely 0]

de nada, ele tem bugs eu ate marquei pra corrigi mas vo deixa pra vc tenta se nao cnsegui eu te ajudo...

e também ele pode ter mais coisa, porque ele so clica com o botao esquerdo vc pode faze um jeito pra escolhe com qual botao quer clicar ou entao os 2 'juntos' ^^

Bug

quando usa click por coordenada e nome da janela ele clica em qualquer janela

só marquei esse depois se acha outro me avisa =)

[ads.mail27 0]

OBS: no delphi vc tbm pode usar SendMessage

 

hadn := FindWindow(nil,PChar('Caption do Programa Alvo'));

x:= 150; y:=150;

Sendmessage(hadn, WM_LBUTTONDOWN, x, y);

Sendmessage(hadn, WM_LBUTTONUP, x, y);