#include <MsgBoxConstants.au3>
#include <AutoItConstants.au3>
Global $Paused
HotKeySet("{HOME}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
MsgBox(4096, 'Сообщение', 'Жамк на Esc чтобы стопануть, Home пауза, после жамка на OK стартанет скрипт')
;=== Тело программы должно находится здесь ;===
While 1
Local $1t=[68,26] ;Первая закладка координаты
Local $2t=[234,24] ;Вторая закладка координаты
Local $3t=[413,27] ;Третья вкладка
Local $4t=[580,24]
Local $5t=[754,27]
Local $6t=[918,25]
Local $7t=[1073,24]
Local $8t=[1246,27]
Local $9t=[1421,26]
Local $0t=[1597,27]
Switch Random(1,10,1) ;рандомно тыкаемся в закладки
Case 1
MouseClick("left",$1t[0],$1t[1],1,4)
Case 2
MouseClick("left",$2t[0],$2t[1],1,4)
Case 3
MouseClick("left",$3t[0],$3t[1],1,4)
Case 4
MouseClick("left",$4t[0],$4t[1],1,4)
Case 5
MouseClick("left",$5t[0],$5t[1],1,4)
Case 6
MouseClick("left",$6t[0],$6t[1],1,4)
Case 7
MouseClick("left",$7t[0],$7t[1],1,4)
Case 8
MouseClick("left",$8t[0],$8t[1],1,4)
Case 9
MouseClick("left",$9t[0],$9t[1],1,4)
Case 10
MouseClick("left",$0t[0],$0t[1],1,4)
Case Else
EndSwitch
Sleep(Random(50,2000,1)) ;рандомная пауза от 0 до 2 секунд
MouseMove(random(100,1000,1),Random(50,800,1),Random(1,10,1)) ;Дергаем мышку на случайные координаты со случайной скоростью
Sleep(Random(50,3000,1)) ;рандомная пауза от 0 до 3 секунд
MouseWheel($MOUSE_WHEEL_DOWN, Random(3,20,1)) ;Скролим мышкой страницу
Sleep(Random(50,3000,1)) ;рандомная пауза от 0 до 3 секунд
MouseMove(random(100,1000,1),Random(50,800,1),Random(1,10,1)) ;Дергаем мышку на случайные координаты со случайной скоростью
Sleep(3000) ;Спим сеунды три
WEnd
;===
Func TogglePause()
$Paused = Not $Paused
While $Paused
Sleep(1000)
WEnd
EndFunc
Func Terminate()
Exit 0
EndFunc