Simular mouse

13/08/2008

1

Boa tarde a todos,

Estou querendo iniciar um programa para facilitar minha
vida, Onde eu tenho que muitas vezes fazer a mesma
coisa no computador todo dia, Por isso pensei em
simular os movimentos do mouse para fazer este trabalho

Alguém tem conhecimento desta função onde grava
e refaz os movimentos gravados do mouse?


Responder

Posts

13/08/2008

Mazzi

Olha resolvi um problema desses esses dias, buscando na internet em sites de download, programas que são chamados de ´ MACROS ´.. entao procure como MACRO de MOUSE e /ou MACRO DE TECLADO.. eles fazem o que vc quer, repetidas vezes...

Mas se tu quiser criar tbm em Delphi, utilize o codigo abaixo, é um exemplinho q fiz pra fazer o mouse mexer...

user um tTimer, pra isso:

pt:tpoint;
begin
getcursorpos(pt);
pt.x := pt.x + 20;
//pt.y := pt.y - 20;
SetCursorPos(pt.x,pt.y);
if pt.x>=screen.width-1 then setcursorpos(0,pt.y);
//if pt.y>=screen.height-1 then setcursorpos(pt.x,0);

lblX.Caption:= IntToStr(pt.x);
lbly.Caption:= IntToStr(pt.y);


//pt.y := pt.y - 40;


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

Abracos


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira