论坛 › 『 提问交流 』 › 如何让这段代码循环运行

lxh495349465 发表于 2010-2-7 01:29:58

如何让这段代码循环运行

$var = Ping("www.AutoItScript.com",250)
If $var Then; 还可以:If @error = 0 Then ...
    Msgbox(0,"状态-成功","收发时间间隔:" & $var & "毫秒")
Else
    Msgbox(0,"状态-失败","错误代码:" & @error)
EndIf

afan 发表于 2010-2-7 01:46:45

本帖最后由 afan 于 2010-2-7 01:58 编辑

Dim $bj = 0, $var
While 1
        $var = Ping("www.AutoItScript.com", 500)
        If $var And $bj = 0 Then
                TrayTip("状态-成功", "收发时间间隔:" & $var & "毫秒", 10, 1)
                $bj = 1
        ElseIf $var = 0 And $bj = 1 Then
                TrayTip("状态-失败", "错误代码:" & @error, 10, 1)
                $bj = 0
        EndIf
WEnd

lanfengc 发表于 2010-2-7 12:13:21

afan 发表于 2010-2-7 01:46 http://www.autoitx.com/images/common/back.gif

如果楼主要死循环的话，按AFAN的来做。 如果不是死循环，将WHILE 的控制变量弄成$BJ， $BJ在初始的时候， 定义成1. 成功则改为0，不成功继续设为1.

lsf1012 发表于 2010-2-7 14:26:00

好像不错，值得一看

查看完整版本: 如何让这段代码循环运行