Simular mouse
13/08/2008
0
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?
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?
Codename
Curtir tópico
+ 0
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
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
Clique aqui para fazer login e interagir na Comunidade :)