PDA

Ver la Versión Completa : Mover Mouse?


Alejo15x
18-07-2010, 02:35:01
Hola,

estoy creando algo asě como un macro, y estoy en la necesidad de mover el cursor de la pantalla, a cierta X,Y y despues enviar un click.

Es como por ejemplo;

Mover el cursor a 100, 100
Hacer click y dejar puesto el click, y llegar a 200,200, soltar click.

Supongo que se necesita de las apis de windows, pero no tengo sinceramente la mas minima idea de como hacerlo.

Os agradecere me dieran una mano, o donde conseguirlo

Saludos.

Gean
18-07-2010, 16:51:25
Te dejo un ejemplo de lo que quieres:
var
P: TPoint;
begin
p.x := 100;
p.y := 100;
mouse.CursorPos := ClientToScreen(p);
Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
p.X := 200;
p.Y := 200;
mouse.CursorPos := ClientToScreen(p);
Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
Creo que es esto lo que pides

kdemia
19-07-2010, 07:39:08
podes podes mover el mouse con el proceso SetCursorPos(X,Y); y lo de los clicks como bien puso gean con
Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); // Click Izuiqerdo simula cuando se presiona
Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);//click izquierdo simula cuando se suelta

si queres q sea el click derecho en vez de LEFTDOWN y LEFTUP pones RIGHTDOWN y RIGHTUP

espero q te sirva