【已解决】怎样重复上一次的循环

haebong87 · 发表于 2012-1-18 13:50:57

本帖最后由 haebong87 于 2012-1-19 14:37 编辑

HotKeySet("{F5}","_Start")
HotKeySet("{esc}","_exit")

While 1
WEnd

Func _Exit()
        Exit
EndFunc


Func _Start()
For $i=10000 To 1 Step -1
        MsgBox(0,"",$i)
Next
EndFunc

添加一个F6的热键功能为：如果当前msgbox弹出了9999那么按一次F6的时候再一次弹出9999
应该怎么弄？求学。。。。

netegg · 发表于 2012-1-18 15:01:28

不明白lz想要什么

pp648852 · 发表于 2012-1-18 16:01:47

要的是流氓软件，弹死他！

zldfsz · 发表于 2012-1-18 19:21:05

没理解楼主要什么

半芯竹 · 发表于 2012-1-18 19:38:34

本帖最后由半芯竹于 2012-1-18 19:41 编辑

HotKeySet("{F5}","_Start")
HotKeySet("{esc}","_exit")

While 1
WEnd

Func _Exit()
        Exit
EndFunc


Func _Start()
For $i=10000 To 1 Step -1
if $i=9999 then HotKeySet("{F6}","_Start1")
        MsgBox(0,"",$i)
Next

EndFunc

Func _Start1()

For $ii=9999 To 1 Step -1
        MsgBox(0,"",$ii)
Next
endif
EndFunc

haebong87 · 发表于 2012-1-19 08:57:32

回复 5# 半芯竹

按F6的时候一直提示9999呀，这个不对。

我是想当从10000开始读取的时候，一旦msgbox弹出某个数字之后按F6重复一下这个数字，然后点击确定的话继续弹出下一个数字。F6只是对当前的数字重复一次的。。。

haebong87 · 发表于 2012-1-19 09:05:49

就是想在按F6时对当前的循环重复一次，重新提示一次刚刚弹出的数字。

haebong87 · 发表于 2012-1-19 09:06:34

回复 3# pp648852

弹死什么？有病么？热键都设置了ESC，没看到么？

zldfsz · 发表于 2012-1-19 10:21:40

我想你是想要这个结果吧：其他时候按F6没反应，当弹出9999后按F6就重复弹出9999一次。如果要其他数字，将$k的值改为相应的数字即可

HotKeySet("{F5}","_Start")
HotKeySet("{esc}","_exit")
HotKeySet("{F6}","_chongfu")

$j=""
$K=9999;如果为其他数字就改变这个值

While 1
WEnd

Func _Exit()
        Exit
EndFunc


Func _Start()
For $i=10000 To 1 Step -1
                $j=$i
        MsgBox(0,"",$i)
Next
EndFunc

func _chongfu()
if $j=$K then
   MsgBox(0,"",$j)
$j=""
Endif
EndFunc

asdasdasd · 发表于 2012-1-19 11:27:42

我没听明白，SORRY！！

asdasdasd · 发表于 2012-1-19 11:30:09

楼主的意思是这样的，弹出一个数字之后按F6，再次弹出该数字，呵呵，这个简单啊，设置F6的热键，然后把你的$i，设置为全局变量就行了哦！

haebong87 · 发表于 2012-1-19 14:31:55

回复 9# zldfsz

老和尚，谢谢你回复我，但是在按了F6这个热键之后只会继续往下弹出数字，并没有我想要的效果。

haebong87 · 发表于 2012-1-19 14:32:56

回复 11# asdasdasd

谢谢你。。

haebong87 · 发表于 2012-1-19 14:36:51

HotKeySet("{F5}","_Start")
HotKeySet("{esc}","_exit")
HotKeySet("{F6}","_chongfu")

$j = 10000

While 1
WEnd
 
Func _Exit()
        Exit
EndFunc
 
 
Func _Start()
For $i=10000 To 1 Step -1
                $j=$i
        MsgBox(0,"",$i)
Next
EndFunc
 
func _chongfu()

   MsgBox(0,"",$j)
EndFunc

解决了，谢谢各位。

zldfsz · 发表于 2012-1-19 14:42:19

没错啊,我测试过了

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

[AU3基础] 【已解决】怎样重复上一次的循环

相关帖子

[AU3基础] 【已解决】 怎样重复上一次的循环

相关帖子

[AU3基础] 【已解决】怎样重复上一次的循环