如何让程序暂停

zouyifeng

比如循环中用户按一个键让程序暂停运行,再按一个键又恢复运行,请问如何实现

pusofalse

Global $iFlag

HotKeySet("{f4}", "_Suspend")
HotKeySet("{f5}", "_Resume")
HotKeySet("{f6}", "_Exit")

While 1
        Sleep(1000)
        Msgbox(0, '', "Test")
WEnd

Func _Exit()
        Exit
EndFunc        ;==>_Exit()

Func _Suspend()
        Do
                Sleep(20)
        Until        $iFlag
        $iFlag = 0
EndFunc        ;==>_Suspend()

Func _Resume()
        $iFlag = 1
EndFunc        ;==>_Resume()

zjimmy

可以通过设置热键的方式解决

tongdu.simon

Global $Paused=False        ;For TogglePuase()

$shtcut="{PAUSE}"
HotKeySet($shtcut,"TogglePause")

Func TogglePause()
     $Paused = NOT $Paused
        While $Paused
            Sleep(100)
        WEnd
EndFunc