如何让这段代码循环运行

lxh495349465

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

afan

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

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

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

lsf1012

好像不错，值得一看