Что нового

Одиночное использование кода в цикле

Ksaan

Знающий
Сообщения
207
Репутация
15
Люди добрые помогите, своих знаний не хватает
Тоесть есть вот такой скрипт
Код:
#include <MouseOnEvent.au3>
Global $Paused = True
_MouseSetOnEvent($MOUSE_PRIMARYDOWN_EVENT, "Pause")
_MouseSetOnEvent($MOUSE_PRIMARYUP_EVENT, "Pause")
HotKeySet('{DELETE}', '_Exit')
While 1
 If Not $Paused Then
 Send("з")
 Sleep(10)
 Else
 Sleep(1)
EndIf
WEnd
Func Pause()
 $Paused = Not $Paused

EndFunc
Func _Exit()
 Exit
EndFunc

И вот мне нужно добавить к нему вот такой код
Код:
$pos = MouseGetPos()
MouseMove($pos[0] + 14,$pos[1] + 55,0 )

И чтобы вышло примерно так: нажимаем ЛКМ происходит смещение мыши по координатам один раз и дальше идет постоянный цикл.
Пробовал поставит код вод сюда
Код:
#include <MouseOnEvent.au3>
Global $Paused = True
_MouseSetOnEvent($MOUSE_PRIMARYDOWN_EVENT, "Pause")
_MouseSetOnEvent($MOUSE_PRIMARYUP_EVENT, "Pause")
HotKeySet('{DELETE}', '_Exit')
While 1
 If Not $Paused Then
 Send("з")
 Sleep(10)
 Else
 Sleep(1)
EndIf
WEnd
Func Pause()
 $Paused = Not $Paused
;===========================================
 $pos = MouseGetPos()
MouseMove($pos[0] + 14,$pos[1] + 55,0 )
;===========================================
EndFunc
Func _Exit()
 Exit
EndFunc

но тогда это происходит и при отжатии кнопки мыши, а мне нужно что бы это происходило только один раз при каждом нажатии кнопки мыши. :scratch:
 

InnI

AutoIT Гуру
Сообщения
4,982
Репутация
1,460
Ksaan [?]
только один раз при каждом нажатии кнопки мыши
Разделите на две функции
Код:
#include <MouseOnEvent.au3>

Global $Paused = True

_MouseSetOnEvent($MOUSE_PRIMARYDOWN_EVENT, "Down")
_MouseSetOnEvent($MOUSE_PRIMARYUP_EVENT, "Up")

HotKeySet('{DELETE}', '_Exit')

While 1
  If Not $Paused Then
    Send("з")
    Sleep(10)
  Else
    Sleep(1)
  EndIf
WEnd

Func Down()
  $Paused = False
  $pos = MouseGetPos()
  MouseMove($pos[0] + 14, $pos[1] + 55, 0)
EndFunc

Func Up()
  $Paused = True
EndFunc

Func _Exit()
  Exit
EndFunc
 
Верх