Technology Zone

[kaswar]

~Setting Cursor Position

SetCursorPos(x,y);

~Getting Cursor Position

var
MyPoint: TPoint; // our point to be recieving the X and Y's
X,Y: integer; //Convert so the code is less Messy
begin
GetCursorPos(MyPoint); //YUM!
X := MyPoint.X; //Coverting..
Y := MyPoint.Y; //Coverting..

Getting To Display your Cursor Position

(In a Timer)! MS: 50

var
MyPoint: TPoint; // our point to be recieving the X and Y's
X,Y: integer; //Convert so the code is less Messy
begin
GetCursorPos(MyPoint); //YUM!
X := MyPoint.X; //Coverting..
Y := MyPoint.Y; //Coverting..
Edit1.Text := IntToStr(X);
Edit2.Text := IntToStr(Y);

~Cursor Clicks

PostMessage

var
MyPoint: TPoint;
X,Y: integer;
begin
GetCursorPos(MyPoint); //YUM!
X := MyPoint.X; //Coverting..
Y := MyPoint.Y; //Coverting..
PostMessage(GetWindowDC(GetDesktopWindow),WM_LBUTT ONDBLCLK,MK_LBUTTON,MakeLong(X,Y));
sleep(100); //Like a Normal Mouse click

Mouse Event

Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, X, Y, 0, 0);
sleep(100);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, X, Y, 0, 0);

Thats about all o.o

[Beast]

Then you shouldn't be programming, and spamming in here. Also if you came here you would have noticed this is the DELPHI section.

[marco1784]

Originally Posted by Beast

Then you shouldn't be programming, and spamming in here. Also if you came here you would have noticed this is the DELPHI section.

i get a link from my orginel post to look here so i look and i ask if i dont ask i never know it its not spam its a question

Auto klikker

[wassssup34579]

Originally Posted by marco1784

i get a link from my orginel post to look here so i look and i ask if i dont ask i never know it its not spam its a question

Auto klikker

i gave you that link cause i thought you would be smart enough to convert it to C++ yourself.

[marco1784]

i dont have any idee what this all mean if some 1 explain to me simpel step by step maby i can make t i have never did a program befor im a noob whis code's :S
but im not lazy to let other people make it when i can learn it if some 1 explain it to me
i want only make my mouse klik on 3 space's every 2 min x908 y555
x435 y620 x502 y661 can u help me explain or make 1 for me both will help me greets from me

[hah_rs]

You're assigning the same thing twice here:

var
MyPoint: TPoint; // our point to be recieving the X and Y's
X,Y: integer; //Convert so the code is less Messy
begin
GetCursorPos(MyPoint); //YUM!
X := MyPoint.X; //Coverting..
Y := MyPoint.Y; //Coverting..
Edit1.Text := IntToStr(X);
Edit2.Text := IntToStr(Y);

I know you said it was to keep the code less messy looking but reassigning like that is bad practice. I'm just pointing it out for somebody who might not know it.

var
  MyPoint: TPoint; // our point to be recieving the X and Y's
begin
  GetCursorPos(MyPoint); //YUM!
  Edit1.Text := IntToStr(MyPoint.X);
  Edit2.Text := IntToStr(MyPoint.Y);

[The Legend]

Lol, nie thread... do ypou have a source?

[hah_rs]

The source is in front of your face. Use it.

[kaswar]

lol ok, meh. I like the way of assigning the x & y of the points to the Tpoints, makes it less messy for me in the. Your way also works, i guess people have opinons of there own when it comes to programming rofl

[kb3z0n]

Thanks, i needed this alot.