论坛 › 『 提问交流 』 › 求助，Ping的循环判断问题

angelink 发表于 2010-5-5 08:51:06

求助，Ping的循环判断问题

While 1
       If Ping("www.baidu.com",250) <> 0 Then
               ExitLoop(IniWrite(@SystemDir &'\1.ini','信息','网络状态','畅通'))       
                ;ExitLoop
                ;IniWrite(@SystemDir &"\1.inil","信息","网络状态","畅通")
       ElseIf Ping("www.baidu.com",250) = 0 Then
               IniWrite(@SystemDir &"\1.inil","信息","网络状态","阻塞")
       EndIf
       Sleep(1000)
WEnd

求助，如果ping通的话就会在配置文件里写上“ 畅通”并退出循环，如果不通就写上 阻塞，继续循环。

通的状态下，如果加上ExitLoop，就写不进去“ 畅通” 如果单独加 IniWrite(@SystemDir &"\1.inil","信息","网络状态","畅通") 又不能自动终止循环，头痛啊！

水木子 发表于 2010-5-5 08:53:30

While 1
         If Ping("www.baidu.com",250) <> 0 Then
                IniWrite(@SystemDir &"\1.inil","信息","网络状态","畅通")
                ExitLoop         
         ElseIf Ping("www.baidu.com",250) = 0 Then
               IniWrite(@SystemDir &"\1.inil","信息","网络状态","阻塞")
         EndIf
         Sleep(1000)
WEnd

dulein 发表于 2010-5-5 15:15:12

谢谢分享学习了。

查看完整版本: 求助，Ping的循环判断问题