Автокликер

[windoz]

Я написал себе эту программу, и решил поделиться с вами.

думаю начнем....

Для начала кидаем на форму: 3 Edita, 2 buttona, 3 Timerа, и 1 CheckBox.

Первые 2 Edit'a будут координатоми мыши(X,Y)
3-й Edit - Интервал клика.
1 Button - Старт.
2 Button - Стоп.
CheckBox - Поверх всех окон.

Начинаем кодить:

Timer1:
Код:

varp: TPoint;beginGetCursorPos(p);Edit1.Text:= IntToStr(p.X); Edit2.Text:= IntToStr(p.Y);
На таймере поставьте "Интервал" - "1".

Timer2:
Код:

if getasynckeystate($11)<>0 then begin //Если нажат Ctrl, то ....Timer1.Enabled:=False;Timer2.Enabled:=False;
Это у нас будет фиксироваться Timer1, что бы когда программа кликала, мышка не отодвинулась

Timer3:
Для начала по поставьте в нем настройки: Enabled - False.

Код:

varposition: TPoint;beginif getasynckeystate($20)<>0 then begin // Если нажат пробел, то перестать кликатьTimer1.Enabled:=True;Timer2.Enabled:=True;Timer3.Enabled:=False;button1.Enabled:=True;button2.Enabled:=False;endelse beginSetCursorPos(StrToInt(Edit1.text),StrToInt(Edit2.text));mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
Button1(Тобиш "Начать или Старт"
Код:

if Edit3.Text='' thenshowmessage('Не заполнено поле "Задержка"!')else beginTimer3.Interval:=StrToInt(Edit2.Text); Timer3.Enabled:=True;button1.Enabled:=False; button2.Enabled:=True;
Buton2(Тобиш "Стоп")
Код:

Timer3.Enabled:=False; Timer1.Enabled:=True; Timer2.Enabled:=True; button2.Enabled:=False;button1.Enabled:=True;

CheckBox - Назовем его "Поверх всех окон".
Код:

SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height,SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE );
Вот и все.

Теперь можно включать авто кликер

 

[windoz]

Файл удален

Ну раз удалён, можете так его написать, всё же расписано.