chenxianpeng 发表于 2009-11-24 12:26:52

请教暂停脚本

本帖最后由 chenxianpeng 于 2009-11-24 19:30 编辑

TrayTip('程序启动成功','本程序按HOME开始,按END结束',0)
Sleep(100)

HotKeySet('{Home}','Start');定位热键启动
HotKeySet('{end}','Pause');定位热键停止
hotkeyset('{esc}','QUIT');退出程序

While 1
Sleep(200)
WEnd

Func Start()
$i = 0
While $i <= 99999999999999999
send('{2}')
$i = $i + 1
sleep(700)
TrayTip('热键正在运行中..',',0);启动热键
WEnd
EndFunc

Func Pause()
;暂停脚本不知道怎么写好了

EndFunc



func QUIT()
        traytip('程序正在退出请稍候','程序将在1秒钟后自动退出',0)
        Sleep(1000)
       
        Exit
EndFunc


上面的pause我不知道里面应该写什么才可以暂停上面的start循环了！请教一下！

chenxianpeng 发表于 2009-11-24 13:33:23

别沉啦！！！

水木子 发表于 2009-11-24 13:41:15

本帖最后由 水木子 于 2009-11-24 13:43 编辑

设置热键跳出循环！:face (20):

要不就使用 AdlibRegister做循环 再用AdlibUnRegister 退出，感觉这样比较方便。

chenxianpeng 发表于 2009-11-24 13:52:15

不懂啊！！！！！

水木子 发表于 2009-11-24 13:58:39

你这个问题很多人提过，多搜索吧！相信能找到你要的答案。

gapkiller 发表于 2009-11-24 14:29:07

按照楼主的逻辑....下面这样就可以了..
Func Pause()
;暂停脚本不知道怎么写好了
while 1
    sleep(1000)
wend
EndFunc

不过这显然不是一样正常的逻辑....
建议楼主参考Hotkeyset的例子
$paused = Not $paused
....

netegg 发表于 2009-11-24 15:04:26

do
until controlclick()

xz00311 发表于 2009-11-24 15:30:27

帮助文档里面有

包谷面 发表于 2011-5-7 13:45:55

学习学习{:1_544:}
页: [1]
查看完整版本: 请教暂停脚本