Серый форум — AHK: Функция "Пауза" (замена команды sleep)

Re: AHK: Функция "Пауза" (замена команды sleep)

null@example.com (Ядрён) — Mon, 02 Oct 2017 21:50:51 +0000

Доброго времени суток . Подскажите пожалуйста как можно переделать этот скрипт со "sleep" на "Pause". А то получается скорость движения мыши теряется (в файле *.amc порядка 1750 строк ) после 15 секунды выполнения макроса. Файл *.amc это макрос от мышки X7. Подробное описание тут .

Arr := []


#SingleInstance force
#Persistent
#NoEnv
SendMode Input
SetBatchLines, -1
CoordMode,Mouse
#MaxHotkeysPerInterval
#HotkeyInterval, -1


*~vk5B::


FileSelectFile, SelectedFile, 24, , Загрузить макрос, *.amc
text := FileOpen(SelectedFile,"r").Read()


 While pEx := RegExMatch(text , "O)MoveR (?-?\d+) (?-?\d+)(?:`r`n)?Delay (?-?\d+) ms", match, pEx ? pEx : 1) + StrLen(match.0)
 
	 Arr.Insert(match)


return




~vk79::  ; выход
Suspend, Off
ExitApp
return



~vk78::
Suspend, toggle
return



*~vk47:: ; G - 
 KeyWait, LButton
Suspend, On
KeyWait, LButton, D
 Suspend, Off
return

*~WheelDown::
on := 0
 return

*~vk51::  ; Q 
on := 0
return

*~WheelUp:: 
on := 1

Suspend, Off

	
#if on
	
*~LButton::
for i,k in Arr

	{



if !GetKeyState("LButton","p")

			Return

DllCall("mouse_event", Uint, 1, int, k.x, int, k.y)
Sleep, % k.Delay

}
Return
#if

Re: AHK: Функция "Пауза" (замена команды sleep)

null@example.com (stealzy) — Mon, 02 Oct 2017 21:20:17 +0000

Это ваш цикл из предыдущего сообщения, переписанный так, что:

Странникх пишет:

подобно команде sleep, не влиять глобально задержкой на скрипт

Re: AHK: Функция "Пауза" (замена команды sleep)

null@example.com (Странникх) — Mon, 02 Oct 2017 20:11:09 +0000

stealzy, не понял, а что это иллюстрирует?

Re: AHK: Функция "Пауза" (замена команды sleep)

null@example.com (stealzy) — Mon, 02 Oct 2017 19:15:12 +0000

Странникх, последняя попытка достучаться:

#Persistent
1Move:
MouseMove, 10, 20
SetTimer 2Move, -5000
Return

2Move:
MouseMove, 10, 120
SetTimer 3Move, -5000
Return

3Move:
MouseMove, 10, 240
SetTimer 1Move, -1
Return

Re: AHK: Функция "Пауза" (замена команды sleep)

null@example.com (Странникх) — Mon, 02 Oct 2017 18:41:51 +0000

stealzy пишет:

Странникх, если вы еще не поняли код ahk исполняется не параллельно, поэтому Sleep будет суммироваться.

Не параллельно, но действия из цикла Loop и SetTimer, например на кликер мышки, могут наложиться на друг друга.

Alectric, в вашем примере цикл крутится, только условия строчки исполняются заданными таймерами.

Нужна пауза на строчку в блоке или в какой-либо части кода, подобно команде sleep, но не влиять глобально задержкой на скрипт.
Имеется в виду:


SetTimer, Timer, On
Loop
{
MouseMove, 10, 20
Pause(5000)
MouseMove, 10, 120
Pause(5000)
MouseMove, 10, 240
}
Return

Timer:
MouseMove, 10, 10
Pause(1000)
MouseMove, 20, 10
Pause(1000)
MouseMove, 30, 10
Return

Используя sleep в этих циклах, задержки суммируются и движения мышки идут волоча за собой прибавку каждой задержки.
Есть способ избежать, но выглядит геморно, да и не под все задачи подходит. Вне sleep таймер запускается по расписанию, на него никак sleep не влияет.


o_Clicker := [ {key:L, x:10, y:10, count:1, speed:2}
			 , {key:L, x:20, y:10, count:1, speed:2}
			 , {key:L, x:30, y:10, count:1, speed:2}
			 , {key:L, x:40, y:10, count:1, speed:2}
			 , {key:L, x:50, y:10, count:1, speed:2}
			 , {key:L, x:60, y:10, count:1, speed:2}
			 , {key:L, x:70, y:10, count:1, speed:2}
			 , {key:L, x:80, y:10, count:1, speed:2}
			 , {key:L, x:90, y:10, count:1, speed:2}
			 , {key:L, x:100, y:10, count:1, speed:2}
			 , {key:L, x:110, y:10, count:1, speed:2}
			 , {key:L, x:120, y:10, count:1, speed:2}
			 , {key:L, x:130, y:10, count:1, speed:2} ]
Loop
{
MouseMove, 10, 20
sleep, 5000
MouseMove, 10, 120
sleep, 5000
MouseMove, 10, 240
sleep, 5000
}
Return
Clicker:
i_Clicker++
If (i_Clicker > o_Clicker.MaxIndex())
	i_Clicker = 1
MouseClick, % o_Clicker[i_Clicker].key, % o_Clicker[i_Clicker].x, % o_Clicker[i_Clicker].y, % o_Clicker[i_Clicker].count
Return

Re: AHK: Функция "Пауза" (замена команды sleep)

null@example.com (stealzy) — Mon, 02 Oct 2017 18:24:21 +0000

Nice try, but no. Замеры времени в вашей ф-ии в первом наброске производятся в цикле, а значит приходим опять же к ограничению на один действующий цикл.
Следующие два примера демонстрируют убегание от проблемы путем запихивания всего в один цикл.

Re: AHK: Функция "Пауза" (замена команды sleep)

null@example.com (Alectric) — Mon, 02 Oct 2017 17:42:02 +0000

start:=a_tickcount

Loop
{
  tooltip,% a_tickcount-start
  if Pause(10000)
    continue
  MsgBox, Я появился после паузы!
}
Return



Pause(t)
{
  static timer,oCT
  CycleTime:=a_tickcount-oCT
  oCT:=a_tickcount
  timer+=CycleTime
  if (timer

start:=a_tickcount

Loop
{
  CycleTime:=oldCycleTime!="" ? a_tickcount-oldCycleTime : 0
  oldCycleTime:=a_tickcount

  tooltip,% a_tickcount-start



  if (!PeriodicTimer:=PeriodicTimer>5000 ? 0 : PeriodicTimer="" ? 1 : PeriodicTimer+CycleTime)
  {
    MsgBox, Я появился после паузы!
  }



  if (!AnotherPeriodicTimer:=AnotherPeriodicTimer>17000 ? 0 : AnotherPeriodicTimer="" ? 1 : AnotherPeriodicTimer+CycleTime)
  {
    MsgBox, Я появился после другой паузы!
  }
}
Return

start:=a_tickcount

Loop
{
  CycleTime:=oldCycleTime!="" ? a_tickcount-oldCycleTime : 0
  oldCycleTime:=a_tickcount

  tooltip,% a_tickcount-start "`n" PeriodicTimer "`n" AnotherPeriodicTimer


  if dofirst
  if (!PeriodicTimer:=PeriodicTimer>5000 ? 0 : PeriodicTimer="" ? 1 : PeriodicTimer+CycleTime)
  {
    PeriodicTimer=
    dofirst=
    MsgBox, Я появился после паузы!
  }


  if dosecond
  if (!AnotherPeriodicTimer:=AnotherPeriodicTimer>17000 ? 0 : AnotherPeriodicTimer="" ? 1 : AnotherPeriodicTimer+CycleTime)
  {
    AnotherPeriodicTimer=
    dosecond=
    MsgBox, Я появился после другой паузы!
  }
}
Return


1::dofirst=1

2::dosecond=1



Re: AHK: Функция "Пауза" (замена команды sleep)
null@example.com (teadrinker) — Mon, 02 Oct 2017 17:16:04 +0000
А, я не понял, значит.


Re: AHK: Функция "Пауза" (замена команды sleep)
null@example.com (stealzy) — Mon, 02 Oct 2017 17:06:59 +0000
Странникх, если вы еще не поняли код ahk исполняется не параллельно, поэтому Sleep будет суммироваться.
Вот я и предлагаю вам заменить цикл со Sleep на SetTimer, МеткаИлиФункцияПослеЗадержки, % "-" задержка_мс.
Странникх пишет:а если у нас конструкция бесконечного цикла и горячей клавиши.
В вашем примере задержка по ГК бессмысленна, поскольку после нее сразу происходит возврат. Если же там предполагаются действия, то вы можете использовать SetTimer.
Если у вас только один поток крутит цикл и использует Sleep - проблем не будет, хотя и тут можно обойтись без.
teadrinker, если это был не сарказм, то ТС нужно ровно наоборот — пауза, во время которой исполняется код других "потоков" .
Вот только переписать SetTimer в виде ф-ии Pause() не получится, поскольку SetTimer должен явно указывать на лейбл или ф-ию, с которой начнется выполнение кода после задержки.


Re: AHK: Функция "Пауза" (замена команды sleep)
null@example.com (teadrinker) — Mon, 02 Oct 2017 15:39:20 +0000
MyPause(delay)  {
   Thread, NoTimers
   Sleep, delay
   Thread, NoTimers, false
}


Re: AHK: Функция "Пауза" (замена команды sleep)
null@example.com (Странникх) — Sun, 01 Oct 2017 22:34:32 +0000
stealzy, а если у нас конструкция бесконечного цикла и горячей клавиши. 
Loop
{
ToolTip, Loop
sleep, 2000
}
Return

1::
ToolTip, 1
sleep, 1000
Return
Разве, указав и запустив оба sleep, они не влияют на друг друга - то есть не прибавляют задержки, не важно в каких частях кода они вставлены? Если влияют, тогда функция паузы разделяет и не суммирует их задержки и пригодится хотя бы в циклах.
Вот пример, они суммируются 
SetTimer, Label, On
Loop
{
	s1 := A_TickCount
	sleep, 1000
	ToolTip, % A_TickCount - s1 " `n `n " A_TickCount - s2
}
Return

Label:
	s2 := A_TickCount
	sleep, 2000
	ToolTip, % A_TickCount - s1 " `n `n " A_TickCount - s2
Return
Хотя мой код с паузой я посмотрел тоже не помогает. Sleep и туда вползает, и в итоге увеличивает время в цикле Loop все равно. Видимо разбить на разные независимые задержки нельзя.


Re: AHK: Функция "Пауза" (замена команды sleep)
null@example.com (stealzy) — Sun, 01 Oct 2017 18:47:59 +0000
Странникх пишет:При этом работают команды SetTimer, которые не засыпают как в случае с командой sleep
#Persistent
SetTimer Test, -2000
Sleep 5000
ToolTip Sleep, 100, 200, 1
Return

Test() {
	ToolTip Timer, 200, 200, 2
}
Все ровно наоборот — таймеры работают во время Sleep, в отличии от циклов (не пытайтесь тестировать это с помощью MsgBox ввиду ограничений самого MsgBox).
Ваша ф-ия паузы использует цикл, а рабочий цикл в ahk возможен только один, предыдущий цикл останавливается на время работы последнего.
y:=0, x:=0

1::
	Loop {
		ToolTip % ++y, 200, 200, 1
		Sleep 500
	}

2::
	Loop {
		ToolTip % ++x, 100, 100, 2
		Sleep 500
	}
global x:=0, y:=0, i:=false, j:=false

1::
	i := !i
	SetTimer Loop_1, -1
	Return
2::
	j := !j
	SetTimer Loop_2, -1
	Return

Loop_1() {
	While i {
		ToolTip % ++x, 300, 200, 1
		Sleep 500
	}
}
Loop_2() {
	While j {
		ToolTip % ++y, 400, 200, 2
		Sleep 500
	}
}
Вопрос - зачем вам нужна эта странная функция Pause?


Re: AHK: Функция "Пауза" (замена команды sleep)
null@example.com (MandarinKa02) — Sun, 01 Oct 2017 17:15:11 +0000
AutoHotKey - язык, который не поддерживает многопоточность. Сожалею 


AHK: Функция "Пауза" (замена команды sleep)
null@example.com (Странникх) — Sun, 01 Oct 2017 16:47:10 +0000
1::
s1 := A_TickCount
Pause(2000)
ToolTip, % A_TickCount - s1
Return

2::
s2 := A_TickCount
Pause(3000)
ToolTip, % A_TickCount - s2
Return

Pause(wait) {
	CurrentTimePC := A_TickCount
	While ((A_TickCount - CurrentTimePC) < wait)
		Continue
}
Для одного потока работает хорошо, например, в конструкции:
Loop
{
Pause(5000)
MsgBox, Я появился после паузы!
}
Return
При этом работают команды SetTimer, которые не засыпают как в случае с командой sleep. Даже если почему-то вызывать функцию сначала с большим значением в ее параметре, а следом поменьше, то тоже работает, но если наоборот - уже нет.
Но интересует многофункциональность данной функции, чтобы ее можно было бы вставить в любую строчку кода, где дальше не читать строки пока функция не дойдет до конца своей работы (таймера ожидания).
Попробовал через массивы, но как-то разбить не получается. А у вас какие идеи?