通过热键暂停 While 循环 [英] Pause While loop by hotkey
问题描述
我想暂停一个包含 While
循环和一些函数的 AutoIt 脚本.但我只能在 HotKeySet()
上关闭脚本.我怎样才能暂停它?
脚本检查屏幕部分的变化(x,y 坐标在配置文件中设置)并在播放警报声后截取屏幕截图.当按下暂停按钮时,它不会停止 While
循环.但关闭程序有效.这是我的代码:
全局 $Paused, $counter = 0HotKeySet("{1}", "TogglePause")HotKeySet("{2}", "终止")HotKeySet("{3}", "ShowMessage")在里面()开始()虽然 1$计数器 +=1ToolTip('脚本正在运行"',0,0, $counter, 1)睡眠(700)切换 TrayGetMsg()案例 $resume开始()禁用警报()案例 $exit退出循环出口结束开关结束//部分函数函数开始()准备好 = 0$count = 0$lastScreenshotNum = 0TrayItemSetState($resume, $TRAY_DISABLE)TraySetIcon("on.ico")截屏()AdlibRegister(TakeScreenshot,2000)结束函数功能停止()AdlibUnRegister(截屏)TraySetIcon("off.ico")TrayItemSetState($resume, $TRAY_ENABLE)结束函数功能切换暂停()停止()$Paused = 不是 $Paused虽然 $Paused睡眠(100)ToolTip('脚本被暂停"',0,0, $counter, 1)结束工具提示("")结束函数函数终止()退出 0结束函数函数 ShowMessage()MsgBox(4096,"","这是一条消息.")结束函数函数 EnableAlert()发邮件()警报()AdlibRegister(Alert,5000)结束函数Func DisableAlert()AdlibUnRegister(警报)结束函数功能警报()SoundPlay("alert.mp3")结束函数
我想暂停一个 Autoit 脚本,其中包含一个 while1 循环和一些函数.但我只能关闭 HotKeySet 上的脚本.那么我该如何暂停呢?
"Pause" While
-通过以(键切换)状态(未测试,无错误检查)为条件运行指令来循环:
全局常量 $g_sKeyQuit = 'q'全局常量 $g_sKeyPause = 'p'全局常量 $g_iDelay = 500全局 $g_bStateQuit = False全局 $g_bStatePause = False主要的()函数主()HotKeySet($g_sKeyQuit, 'SwitchStateQuit')HotKeySet($g_sKeyPause, 'SwitchStatePause')虽然不是 $g_bStateQuit如果不是 $g_bStatePause 那么 YourCode()睡眠($g_iDelay)结束出口结束函数Func YourCode()本地静态 $iCount = 0$iCount += 1ConsoleWrite($iCount & @LF)结束函数函数 SwitchStateQuit()$g_bStateQuit = 真结束函数Func SwitchStatePause()_SwitchVar($g_sKeyPause)结束函数Func _SwitchVar(ByRef $bSwitch)$bSwitch = 不是 $bSwitch结束函数
- P 停顿.
- Q 退出.
- 根据需要更改
YourCode()
的内容.
视觉解释(说明 While
-Main()
中的循环):
- Loops 和
AdlibRegister()
是完成相同任务的不同方式(选择其中一种). - 使用
TimerDiff()
如果需要准确定时重复,因为简单地添加Sleep()
会引入时间漂移(忽略执行时间,这对于AdlibRegister()
来说是正确的好).根据文档:<块引用>请注意,其他正在运行的进程通常会影响计时准确性,因此暂停的时间可能会比请求的时间略长.
I want to pause an AutoIt script containing a While
loop and some functions. But I am only able to close the script on HotKeySet()
. How can I pause it?
The script checks for changes on a part of screen (x,y coordinates are set in a config file) and takes screenshots after playing an alert sound. It doesn't stop the While
loop when pushing the pause button. But closing the program works. Here is my code:
Global $Paused, $counter = 0
HotKeySet("{1}", "TogglePause")
HotKeySet("{2}", "Terminate")
HotKeySet("{3}", "ShowMessage")
Init()
Start()
While 1
$counter +=1
ToolTip('Script is "Running"',0,0, $counter, 1)
Sleep(700)
Switch TrayGetMsg()
Case $resume
Start()
DisableAlert()
Case $exit
ExitLoop
Exit
EndSwitch
WEnd
//some of the functions
Func Start()
$ready = 0
$count = 0
$lastScreenshotNum = 0
TrayItemSetState($resume, $TRAY_DISABLE)
TraySetIcon("on.ico")
TakeScreenshot()
AdlibRegister(TakeScreenshot,2000)
EndFunc
Func Stop()
AdlibUnRegister(TakeScreenshot)
TraySetIcon("off.ico")
TrayItemSetState($resume, $TRAY_ENABLE)
EndFunc
Func TogglePause()
Stop()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script is "Paused"',0,0, $counter, 1)
WEnd
ToolTip("")
EndFunc
Func Terminate()
Exit 0
EndFunc
Func ShowMessage()
MsgBox(4096,"","This is a message.")
EndFunc
Func EnableAlert()
SendMail()
Alert()
AdlibRegister(Alert,5000)
EndFunc
Func DisableAlert()
AdlibUnRegister(Alert)
EndFunc
Func Alert()
SoundPlay("alert.mp3")
EndFunc
I want to pause an Autoit script, containing a while1 loop and some functions. But I am only able to close the the script on HotKeySet. So how can i pause it?
"Pause" While
-loops by running their instructions conditional to (key-toggled) states (untested, no error checking):
Global Const $g_sKeyQuit = 'q'
Global Const $g_sKeyPause = 'p'
Global Const $g_iDelay = 500
Global $g_bStateQuit = False
Global $g_bStatePause = False
Main()
Func Main()
HotKeySet($g_sKeyQuit, 'SwitchStateQuit')
HotKeySet($g_sKeyPause, 'SwitchStatePause')
While Not $g_bStateQuit
If Not $g_bStatePause Then YourCode()
Sleep($g_iDelay)
WEnd
Exit
EndFunc
Func YourCode()
Local Static $iCount = 0
$iCount += 1
ConsoleWrite($iCount & @LF)
EndFunc
Func SwitchStateQuit()
$g_bStateQuit = True
EndFunc
Func SwitchStatePause()
_SwitchVar($g_sKeyPause)
EndFunc
Func _SwitchVar(ByRef $bSwitch)
$bSwitch = Not $bSwitch
EndFunc
- P pauses.
- Q exits.
- Change content of
YourCode()
as required.
Visual explanation (illustrating While
-loop in Main()
):
- Loops and
AdlibRegister()
are different ways to accomplish the same (choose either one). - Use
TimerDiff()
if accurately timed repetition is required because simply addingSleep()
introduces time-drifts (disregards execution time, which is true forAdlibRegister()
as well). As per documentation:Note that other running processes often affect the timing accuracy and so pauses are likely to last for slightly longer than requested.
这篇关于通过热键暂停 While 循环的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!