How to make a simple Auto Click.

First add:

2 Buttons (Standard tab)
1 Timer (System tab)
1 Edit (Standard tab)

Click in the Form1 and change the "Caption" to "Auto Click".

[Only registered and activated users can see links. Click Here To Register...]

Click in the Timer and on the "Enabled", change the "True" to "False".

[Only registered and activated users can see links. Click Here To Register...]

Change the "Caption" from Button1 to "On" or "Enable."

And add the following code:

Code:

---

timer1.interval:= strtoint(edit1.text);
timer1.enabled:= true;

---

[Only registered and activated users can see links. Click Here To Register...]

Change the "Caption" from Button2 to "Off" or "Disable."

And add the following code:

Code:

---

timer1.enabled:= false;

---

[Only registered and activated users can see links. Click Here To Register...]

Now in the Timer add the following code:

Code:

---

mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
  mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);

---

[Only registered and activated users can see links. Click Here To Register...]

To avoid any possible errors at compile time, delete whatever is in the "Text" of Edit1, look in the "Object Inspector".

[Only registered and activated users can see links. Click Here To Register...]

Now make a nicer appearance. Click on the "Additional" and add an image. Click on "Picture" and add an image to your liking.

[Only registered and activated users can see links. Click Here To Register...]

Also I use the VCLSkin, add 1 SkinData and 1 SkinCaption, then just go and pick SkinStore.
Do not forget to change in the SkinData "Active" to "True."
After only give F9 and if nothing is wrong, Auto Click done.

[Only registered and activated users can see links. Click Here To Register...]

Then just save your project, done that open the new file "Project1", compile it and your program is ready to be used.

How to Install VCLSkin

[Only registered and activated users can see links. Click Here To Register...]

Download:
↓
[Only registered and activated users can see links. Click Here To Register...]

☻

Nice job, i'will use
" '-' "
Burnn him G_Zui

Good tutorial
But don't forget about some unspoken rules - validate every input :)

Code:

---

timer1.interval:= strtoint(edit1.text);

---

Should be checked for int val

Quote:

---

Originally Posted by Grooguz [Only registered and activated users can see links. Click Here To Register...]

Good tutorial
But don't forget about some unspoken rules - validate every input

Code:

---

timer1.interval:= strtoint(edit1.text);

---

Should be checked for int val

---

Thanks for the tip, however I mainly use Delphi, I do not know some details like this.

He means that you should have the program check if the value entered into the text box is a number or a character :).

Here is one way to do it.

create a procedure;

Procedure NumEdit(mEdit : TEdit);
var
editType: DWORD;
begin
editType := GetWindowLong(mEdit.Handle, GWL_STYLE);
SetWindowLong(mEdit.Handle, GWL_STYLE, editType or ES_NUMBER);
end;

In form create you can set the edit box by using this simple line of code

NumEdit(Edit1);

this will force the edit box to accept only numbers and no other characters :)

for me i just used a very simple checking

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key not in ['0'..'9'] then abort;
end;

you can add any others like "del" or backspace

man please your thread @ [Only registered and activated users can see links. Click Here To Register...]

is missing the project download link please help

Quote:

---

Originally Posted by Healian [Only registered and activated users can see links. Click Here To Register...]

man please your thread @ Writing Bots for browser games based on http requests

is missing the project download link please help

---

It is not my topic, Grooguz started, should ask him.

omg VCL-Skin old VCL's :) .. Better to use Delphi XE2, there integrated VCL Styles. [Only registered and activated users can see links. Click Here To Register...]

Quote:

---

Originally Posted by h4x0r [Only registered and activated users can see links. Click Here To Register...]

Better to use Delphi XE2

---

Indeed, much more practical and better, and not as old as the Skin VCL, which still does not stop being bad. Thanks for the tip.