userlong 发表于 2009-2-5 16:35:28

如何判断网络断线

如何判断网络断线 用什么可以判断 现在 已经断线了

wolfxiong 发表于 2009-2-5 16:44:48

http://939825342.qzone.qq.com/blog/1232029480
这个满足你 ,自己参考,弄错了,重新发!

[ 本帖最后由 wolfxiong 于 2009-2-6 08:59 编辑 ]

大绯狼 发表于 2009-2-5 17:02:01

PING某个网址啊 不通就断

sowind 发表于 2009-2-5 17:18:12

直接用PING命令啊
PING ($DnsIP)
If @error Then
。。。。断线执行什么操作       
Else
。。。。没有断线扫行什么操作
EndIf

$DnsIP可以为本地区的电信DNS

userlong 发表于 2009-2-5 20:51:05

这个我知道没有其其它的方法了？

wolfxiong 发表于 2009-2-6 09:00:28

$connect = _GetNetworkConnect()
If $connect Then
    MsgBox(64, "Connections", $connect)
Else
    MsgBox(48, "Warning", "There is no connection")
EndIf
Func _GetNetworkConnect()
    Local Const $NETWORK_ALIVE_LAN = 0x1;net card connection
    Local Const $NETWORK_ALIVE_WAN = 0x2;RAS (internet) connection
    Local Const $NETWORK_ALIVE_AOL = 0x4;AOL
   
    Local $aRet, $iResult
   
    $aRet = DllCall("sensapi.dll", "int", "IsNetworkAlive", "int*", 0)
   
    If BitAND($aRet, $NETWORK_ALIVE_LAN) Then $iResult &= "LAN connected" & @LF
    If BitAND($aRet, $NETWORK_ALIVE_WAN) Then $iResult &= "WAN connected" & @LF
    If BitAND($aRet, $NETWORK_ALIVE_AOL) Then $iResult &= "AOL connected" & @LF
   
    Return $iResult
EndFunc
页: [1]
查看完整版本: 如何判断网络断线