#Region >>>Инструкция!!!<<<
#Comments-Start
КЛИКАЛКА
Программа предназначена для кликанья по координатам мышки с определённой
частотой (по умолч. 10 раз/мин.) и с определённым количеством кликов за 1 раз
(по умолч. 1 клик/раз).
Как запустить процесс кликанья:
По умолчанию, я установил себе одну из дополнительных клавиш мыши, но такие кнопки есть
не у всех. Кнопку можна поменять в первых параметрах ф-ции "_IsPressed" (маркеры №1 и №2).
Как изменить частоту:
Жмём на тильду, оня же "ё", отпускаем её, потом через определённый промежуток времени
жмём ещё раз - в ответ слышым бип, длительностью в выделенный нами промежуток времени
между кликами тильды. Стоит делитель этого самого времени в 50 раз (маркер №3), то есть
если вы тыкали с промежутком в 1 сек., то программа приймёт 20 милисекунд. Меняйте
делитель на своё усмотрение.
Как изменить колличество кликов за раз:
Жмём тильду, отпускаем, не чего не ожидая, и не спеша просто тыкаем на CTRL или SHIFT -
мы вошли в режим изсменения. Теперь просто тыкаем CTRL или SHIFT для изменения колличества
кликов на единицу вниз(CTRL) или вверх(SHIFT). По окончанию изменения колличества кликов
тыкаем тильду - мы вышли обратно в рабочий режим.
КАК ВЫКЛЮЧИТЬ ПРОГРАММУ:
Жмём тильду, и держим до звука "бип". Готово.
Автор: Власов Юрий.
#Comments-End
#EndRegion
#Region >>> Библиотеки и Опции <<<
#NoTrayIcon
#include <Misc.au3>
Opt("MouseClickDelay",0)
Opt("MouseClickDownDelay",0)
#EndRegion
#Region >>> Переменные <<<
Local $SleepTime = 100 , $hDLL = DllOpen("user32.dll") , $Clicks = 1
#EndRegion
#Region >>> Функции <<<
_Main()
Func _Main()
While 1
Select
Case _IsPressed("05" , $hDLL) ;~~~~~~~~МАРКЕР №1~~~~~~~~
Local $CountClicks = 0
While _IsPressed("05" , $hDLL) ;~~~~~~~~МАРКЕР №2~~~~~~~~
Local $MousePosition = MouseGetPos()
MouseClick("left" , $MousePosition[0] , $MousePosition[1] , $Clicks , 0)
$CountClicks += $Clicks
Sleep($SleepTime)
WEnd
ConsoleWrite(@CRLF & "Clicked >>> " & $CountClicks & " <<< times!")
Case _IsPressed("C0" , $hDLL)
Beep(600,50)
Local $Timer = TimerInit()
Do
Sleep(1)
Until TimerDiff($Timer) > 100 Or Not _IsPressed("C0" , $hDLL)
If Not _IsPressed("C0" , $hDLL) Then
Do
Sleep(1)
Until _IsPressed("C0" , $hDLL) Or _IsPressed("10" , $hDLL) Or _IsPressed("11" , $hDLL)
If _IsPressed("C0" , $hDLL) Then
$SleepTime = Int(TimerDiff($Timer)) / 50 ;~~~~~~~~МАРКЕР №3~~~~~~~~
While _IsPressed("C0" , $hDLL)
Sleep(1)
WEnd
Beep(1000 , $SleepTime)
ConsoleWrite(@CRLF & "$SleepTime >>> " & $SleepTime)
Else
Beep(800,50)
ConsoleWrite(@CRLF & "$Clicks >>> " & $Clicks)
While _IsPressed("11" , $hDLL) Or _IsPressed("10" , $hDLL)
Sleep(1)
WEnd
Do
If _IsPressed("10" , $hDLL) Then
Local $Timer = TimerInit()
$Clicks += 1
ConsoleWrite(@CRLF & "$Clicks >>> " & $Clicks)
While _IsPressed("10" , $hDLL)
Sleep(1)
WEnd
ElseIf _IsPressed("11" , $hDLL) Then
Local $Timer = TimerInit()
$Clicks -= 1
ConsoleWrite(@CRLF & "$Clicks >>> " & $Clicks)
While _IsPressed("11" , $hDLL)
Sleep(1)
WEnd
EndIf
Until _IsPressed("C0" , $hDLL)
While _IsPressed("C0" , $hDLL)
Sleep(1)
WEnd
Beep(1000 , 50)
EndIf
Else
Beep(1000,100)
Sleep(10)
Beep(900,100)
Exit
EndIf
EndSelect
Sleep(50)
WEnd
EndFunc
#EndRegion
