lele9013 发表于 2010-9-17 15:34:10

如何 循环一直 判断 网络是否连接

如何 循环一直 判断 网络是否连接？？？

水木子 发表于 2010-9-17 15:50:57

Ping ？？？

liufenglg 发表于 2010-9-17 16:54:07

支持楼上....

lele9013 发表于 2010-9-17 18:12:28

ping 怎么一直循环啊

xyold1 发表于 2010-9-17 19:42:15

本帖最后由 xyold1 于 2010-9-17 19:43 编辑

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 290, 124, 474, 341)
$Label1 = GUICtrlCreateLabel("", 32, 32, 212, 44)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
AdlibRegister ( "pingA" ,1500 )

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

        EndSwitch
WEnd

Func PingA()
$var = Ping("autoitx.com",600)
If $var Then; 还可以:If @error = 0 Then ...
    $Msg="状态-成功"&"收发时间间隔:" & $var & "毫秒"
       
Else
    $Msg="状态-失败"&"错误代码:" & @error
EndIf
        GUICtrlSetData($Label1,$Msg)
       
EndFunc

xyold1 发表于 2010-9-17 19:45:38

如果ping丢包会判断出错

tianji028 发表于 2010-9-17 21:54:26

多ping一次，可靠性高些。。

karlpopper 发表于 2010-9-18 02:07:38

PING响应时间太长而且遇到网络不通的情况很容易假死
TCP还不错！

4216730 发表于 2010-9-18 04:59:48

while 1
If Ping("ip") Then
MsgBox(0,"","网络至少是通的")
Exit
EndIf
wend

republican 发表于 2010-9-18 07:27:52

LZ首先要说清楚:
1. 你要判断的是哪里的网络，本机的，还是对方的。
2. 如果是前者，还需要说明本机是局域网的，还是拨号的。

只有这样，才能使用更准确的函数来判断网络状态。

ollydbg 发表于 2010-9-24 12:20:54


xyold1 发表于 2010-9-17 19:42 http://www.autoitx.com/images/common/back.gif



测试出错。

lxz 发表于 2010-9-24 18:01:47

说得很中肯...

xyold1 发表于 2010-9-24 18:07:27

回复 11# ollydbg

在v3.3.6.1有Adlibregister这个函数

哥们你版本太低了吧

ollydbg 发表于 2010-9-25 14:20:17

回复 13# xyold1


    嗯，是版本太低的缘故。

qq82015930 发表于 2010-9-25 23:16:07

回复xyold1


    嗯，是版本太低的缘故。
ollydbg 发表于 2010-9-25 14:20 http://www.autoitx.com/images/common/back.gif


    也是的哈
页: [1] 2
查看完整版本: 如何 循环一直 判断 网络是否连接