Colocar botao no coletor...

[neivisson1 0]

Fiz um coletor pra CF apartir desse topico(http://www.webcheats.com.br/forum/delphi-vb/306492-fazendo-seu-proprio-coletor-colheita-feliz.html)

So que eu queria saber como eu posso botar os botoes de liga e desligar...

Espero respostas *-*

[matheusguerra 3]

coloca um o timer como enabled = false

ae vc coloca o codigo no buttom:

timer1.enabled:='true'

[bidoow 0]

coloca o timer para false dai coloca o codigo

 

if Timer1.Enabled=False then

Timer1.Enabled:=True

else

Timer1.Enabled:=False

 

vlw

[neivisson1 0]

Vou tentar ake...

 

Ja respondo se pegou ou nao '-'

[matheusguerra 3]

verdade cara,

falei como liga o timer e num flei como desliga kkkk ^^

vlw :D ^^

[neivisson1 0]

Ja conseguir

Brigado....

 

Agora aproveitando o topico...

Comofaz pra por as coordenadas ? '-'

[Surfistinha£ 20]

Primeiro Adicione o Timer , coloque o interval a 1.

 

e na ontimer do Timer coloca o seguinte codigo. coordenada click :

 

var

Pt : TPoint;

begin

Pt.X := 418; //posição da coordenada a clickar x

Pt.Y := 328; //posição da coordenada a clickar y

 

Pt := ClientToScreen(Pt);

Pt.x := Round(Pt.x * (65535 / Screen.Width));

Pt.y := Round(Pt.y * (65535 / Screen.Height));

 

 

Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, Pt.x, Pt.y , 0, 0);

 

 

No botao pra ativar vc coloca

Timer1.Enabled:=True

 

No botao pra desativar vc coloca

 

Timer1.Enabled:=False

[matheusguerra 3]

as cordenadas ja ta no otro topico

 

da uma olhada lá

:D ^^

[Surfistinha£ 20]

A esqueci declare tbm

 

SetCursorPos(x, y);

Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);

[neivisson1 0]

Ok..

Mais uma vez obrigado a todos =)