sunny617 发表于 2009-9-10 19:11:29

我怎样跳过这段程序

本帖最后由 sunny617 于 2009-9-11 17:47 编辑

Global$ps=IniRead(@ScriptDir&"\system.ini","password","pass","")
Global$jm2=_StringEncrypt(0,$ps,"yiyaojiemijiuzh","administrators")
$Pass=iniread(@scriptdir & "\system.ini","password","pass","")
$foo=1

While 1
        $foo+=1
        $File = InputBox("密码检测", "请输入您的密码:", "", "*", 180, 80, -1, -1)
       If @error = 1 Then
                MsgBox(64, "错误", "谢谢使用,正在退出!")
                Exit
        Else
               
                If $foo=4 Then
                        MsgBox(64,"错误","错误次数超过三次，再见！")
                        Exit
                EndIf
       
        If $File <> $pass Then
                MsgBox(4096, "错误", "密码不符 - 请重试!")       
        Else
                "这里想跳过去,"
        EndIf
       

    EndIf
       
       
WEnd

=============================
如上面的....如果密码正确的,我怎样在ELSE处跳过直接往下运行呢

我没办法在下面的代码加个自定义函数,想通过跳过来解决,

能做到吗?

afan 发表于 2009-9-10 19:28:47

Exitloop

水木子 发表于 2009-9-10 19:29:36

ExitLoop
--------------------------------------------------------------------------------

终止一个 While/Do/For 循环.


ExitLoop [等级]




参数

等级 [可选参数] 终止(多层嵌套循环中的)指定层.默认值为 1(表示当前循环).



注意/说明

一个负数 等级 或者 等级 为0将不会有任何效果.

ExitLoop 将会中断跳出一个 While, Do 或者 For 循环.
ExitLoop 可使脚本同时在循环控制表达式和循环体中实现对错误的检测.

水木子 发表于 2009-9-10 19:30:31

2# afan
郁闷！你这么快！

afan 发表于 2009-9-10 19:31:25

这个不难，呵呵

水木子 发表于 2009-9-10 19:33:21

5# afan
究竟什么对你来说才叫难呢？

afan 发表于 2009-9-10 19:35:25

简单的太少，剩下的都是难的~ 呵呵

水木子 发表于 2009-9-10 19:38:12

本帖最后由 水木子 于 2009-9-10 19:39 编辑

7# afan
除了不会的，都会，是吧？:face (31):

afan 发表于 2009-9-10 19:39:46

就是就是，呵呵~ If x <> 1 then x = 0

sunny617 发表于 2009-9-11 09:09:40

.........谢谢..你们的热心

不知5楼说的什么意思不懂...

水木子 发表于 2009-9-11 09:21:41

10# sunny617
很明显啊！他说你这个问题不难、很快就回答你啦！

lpxx 发表于 2009-9-11 14:09:41

:face (30):If 问题<> 1 then 问题 = 0
页: [1]
查看完整版本: 我怎样跳过这段程序