Добрый день! Есть скрипт, состоящий из 3-х функций (_f1() , _f2(), _f3() ), при запуске скрипта все 3 функции начинают работать, нужно сделать так что бы (_f2()) можно было выключить или включить вручную, подскажите пожалуйста как
_f1()- ищет пиксель по цвету и кликает ЛКМ
_f2()- спамит в чат заданное сообщение в чат с интервалом в 10 сек
_f3()- нажимает клавиши 1,2,3 с интервалом в 30 сек
вот сам скрипт
_f1()- ищет пиксель по цвету и кликает ЛКМ
_f2()- спамит в чат заданное сообщение в чат с интервалом в 10 сек
_f3()- нажимает клавиши 1,2,3 с интервалом в 30 сек
вот сам скрипт
Код:
MsgBox(0, "Кликалка", "Для запуска нажмите ОК, старт/стоп по кнопкам F5/F6, выход на F7")
WinActivate( "- ArcheAge - Apr 28 2015 (12:09:46) Луций")
Global $Paused
HotKeySet("{F5}", "Start")
HotKeySet("{F6}", "Stop")
HotKeySet("{F7}", "Close")
$text = InputBox("введите текст", "ввод")
Global $text
Global $hTimer_1 = TimerInit(), $hTimer_2 = TimerInit(), $hTimer_3 = TimerInit()
While 1
_f1()
_f2()
_f3()
Wend
WinActivate( "- ArcheAge - Apr 28 2015 (12:09:46) Луций")
Func _f1()
If TimerDiff($hTimer_1) < 1000 Then Return
$hTimer_1 = TimerInit()
$Pos = PixelSearch(1342, 388, 1459, 435, 0xDBC08E)
if IsArray($Pos) Then
MouseMove($Pos[0],$Pos[1],0)
Sleep(500)
MouseClick("Left")
EndIf
$Pos = PixelSearch(1345, 569, 1456, 616, 0xDBC08E)
if IsArray($Pos) Then
MouseMove($Pos[0],$Pos[1],0)
Sleep(700)
MouseClick("Left")
EndIf
$Pos = PixelSearch(1343, 749, 1458, 795, 0xDBC08E)
if IsArray($Pos) Then
MouseMove($Pos[0],$Pos[1],0)
Sleep(500)
MouseClick("Left")
EndIf
$Pos = PixelSearch(803, 22, 1115, 59, 0x8E2322)
if IsArray($Pos) Then
Sleep(500)
Send("{esc}")
EndIf
$Pos = PixelSearch(803, 22, 1115, 59, 0x3B7C24)
if IsArray($Pos) Then
Sleep(500)
Send("{esc}")
EndIf
EndFunc
Func _f2()
If TimerDiff($hTimer_2) < 10000 Then Return
$hTimer_2 = TimerInit()
send ("{ENTER}")
Sleep (100)
send ($text)
Sleep (100)
send("{ENTER}")
EndFunc
Func _f3()
If TimerDiff($hTimer_3) < 30000 Then Return
$hTimer_3 = TimerInit()
Send("{1}")
Sleep(3000)
Send("{2}")
Sleep(3000)
Send("{3}")
EndFunc
Func Stop()
$Paused = NOT $Paused
While $Paused
sleep(100)
WEnd
EndFunc
Func Close()
Exit 0
EndFunc