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

要的是流氓软件,弹死他!{:face (396):}

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

谢谢你。。{:face (229):}

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

没错啊,我测试过了
页: [1] 2
查看完整版本: 【已解决】 怎样重复上一次的循环