Fazendo Coletor De Colheita Feliz

por **pelpas** Qua Mar 10, 2010 2:39 am

Pessoal Estou Trazendo Aqui Pra Voces Como Fazer Um 'Auto-Click'
Que No Nosso Caso Vai Ser Para Um Coletor De Colheita Feliz

Primeiro Va Na Aba System De Seu Delphi E Coloque Um Timer(O Relogio, Primeira Coisa).

Mude O Interval De Seu Timer Para 1(Aqui Coloque O Numero Que Quiser Porque E A Distancia Entre Um Clique E Outro)

Agora De Dois Cliques Em Seu Timer, Apague A Palavre Begin, E Adicione O Seguinte Codigo:

Código:
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);

Se Voce Quiser Que Ele Fique Somente Coletando Em Uma Coordenada Adicione O Seguinte Codigo Logo Apos O Outro:
Código:
SetCursorPos(x, y); Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);

Agora Basta Salvar("File > Save All" Ou "Ctrl + Shift + S") E Compilar(F9)

Obs.:Se Quiser Fazer Um Button Para Parar De Clicar E Para Continuar Basta Mudar O Enabled Do Timer Para True Ou False

Bom Proveito !!

Creditos:
Informacoes(Codigos E Etc): 4jax
Organizacao: Eu Mesmo(Pelpas)

Atenciosamente Mod Pelpas

por **kaahxD** Qua Mar 10, 2010 9:54 am

Vlww Cara Tavaa Precisando Desse Tutorial
Vlw Pelpas !

Fazendo Coletor De Colheita Feliz

Fazendo Coletor De Colheita Feliz

Re: Fazendo Coletor De Colheita Feliz