Simular movimento de mouse e teclado..como?

Delphi

13/12/2005

Olá,
Eu pesquisei em todo forum mas nao achei ao certo os comandos..
Presciso de fazer um programa que mova o mouse do meu pc para os pixel q eu pedir x,y eu sei fazer isto no autoit mas no autoit nao funciona no windows 98 e é limitado.

Preciso fazer o seguinte:
mouseclick [righ, xxx,xxx,1] /clica no pixel q eu quero
Send ´space´ /aperta barra de espaço

esse comando e no autoit eu nao sei fazer no delphi.
o comando tem que mover o cursor e clica com o botao direito do mouse
depois ele aperta barra de espaço

-----------------------------------------------------------------
Se alguem puder me ajudar..Obrigado.


Autokens

Autokens

Curtidas 0

Respostas

Aloizio Castro

Aloizio Castro

13/12/2005

[b:f176b05a08]MOUSE[/b:f176b05a08]
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, Pt.x, Pt.y, 0, 0);
{Simula o pressionamento do botão esquerdo do mouse} 
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, Pt.x, Pt.y, 0, 0);
{ Simula soltando o botão esquerdo do mouse } 
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, Pt.x, Pt.y, 0, 0);


[b:f176b05a08]TECLADO[/b:f176b05a08]
{ Mantém pressionada CTRL }
keybd_event(VK_CONTROL, 0, KEYEVENTF_EXTENDEDKEY or 0, 0);
 
{ Pressiona F2 }
keybd_event(VK_F2, 0, 0, 0);
 
{ Libera (solta) CTRL }
keybd_event(VK_CONTROL, $45, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);


Abraços


GOSTEI 0
Autokens

Autokens

13/12/2005

Obrigado. :)
Vou testar hoje quando chegar do trabalho..


GOSTEI 0
POSTAR