[已解决]求帮忙在while循环里面显示倒计时之后继续while循环

xz00311 · 发表于 2019-8-12 14:22:35

本帖最后由 xz00311 于 2019-8-13 11:54 编辑

求帮忙在while循环里面显示倒计时之后继续while循环，通过ToolTip来提示

Global $Paused
HotKeySet("{F2}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("{F1}", "MouseC")


While 1
   Sleep(500)
WEnd

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('脚本暂停中',0,0)
    WEnd
    ToolTip("")
EndFunc

Func Terminate()
    Exit 0
EndFunc 

Func MouseC()
 while 1

        这里是通过sleep延时的，延时1分钟之后继续while循环，不知道能不能通过倒计时的方式来实现呢

 WEnd
EndFunc

guoguo188 · 发表于 2019-8-12 14:45:58

用 for 循环

for $sj=60 to 0 step -1
ToolTip('倒计时：'&$sj,0,0)
sleep(1000)
next

while 也行但增加个函数记次数

$sj=60
while 1
ToolTip('倒计时：'&$sj,0,0)
sleep（1000）
$sj=$sj -1
if $sj=0 then exitloop
wend

xz00311 · 发表于 2019-8-13 11:07:49

本帖最后由 xz00311 于 2019-8-13 11:17 编辑

不退出循环一直循环啊你看看我上面那个代码就知道了.倒数完成之后重新倒数,还有倒数到1的时候就不减下去了

xz00311 · 发表于 2019-8-13 11:21:12

谢谢用for可以实现了

afan · 发表于 2019-8-13 11:43:57

xz00311 发表于 2019-8-13 11:07
不退出循环一直循环啊你看看我上面那个代码就知道了.倒数完成之后重新倒数,还有倒数到1的时候就不减下去了
...

他那个只是倒计时的循环体，除了应该是 60 to 1 外没毛病~
如有问题那就是你的描述有问题

Dontang2018 · 发表于 2019-8-14 14:15:02

guoguo188 发表于 2019-8-12 14:45
用 for 循环

for $sj=60 to 0 step -1

Yes.學習,學習.

		自动登录	找回密码
密码			加入

[网络通信] [已解决]求帮忙在while循环里面显示倒计时之后继续while循环