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

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

测试出错。

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

也是的哈

		自动登录	找回密码
密码			加入

[网络通信] 如何循环一直判断网络是否连接

评分

相关帖子

评分

评分

本帖子中包含更多资源

[网络通信] 如何 循环一直 判断 网络是否连接

评分

相关帖子

评分

评分

本帖子中包含更多资源

[网络通信] 如何循环一直判断网络是否连接