Thread: 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".



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



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

And add the following code:

Code:

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

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

And add the following code:

Code:

timer1.enabled:= false;

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);

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



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



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.



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

Download:
↓
VCL-Skin.rar - 4shared.com - online file sharing and storage - download - Marciel

☻

Originally Posted by Grooguz

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

Originally Posted by Healian

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. Examples

Originally Posted by h4x0r

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.