澳门至尊网站-首页

您的位置:澳门至尊网站 > 技术教程 > 判断网络是否连接,获取电脑的网络连接状态

判断网络是否连接,获取电脑的网络连接状态

2019-10-19 18:41

 剖断连网的法子介绍

看清互连网的是或不是连接可能三翻五次情势,比较首要的一点就是是或不是即时判定,假设您明显无连接,判定出来却说你有,连接上了,却说你还未连接,上面要介绍的三个情势中InternetGetConnectedState即便略微够即时的API函数,而第三个使用的是IsNetworkAlive本条API函数,那一个从未InternetGetConnectedState的这种难点,不过只怕需求安装SDK,也正是.Net框架。

 1. InternetGetConnectedState

  • 此函数获取网络状态有延时,且对网卡加害十分大
  • MSDN官方本人推荐不提议利用,不管是连网状态下照旧断网意况下,获取的网络状态都有不规范的案例,如下:

  (BUG) InternetGetConnectedState API returns false result

  Detecting LAN connection using InternetGetConnectedState API doesn't work

  

  

在看下文早先,能够浏览MSDN:经过InternetGetConnectedState方法对网络状态的收获.aspx)

如上InternetGetConnectedState方法介绍中

  • dwReversed必需安装为0
  • 经过输出值lpdwFlags可以获得当前网络连接的音信,通过拼装相比能够获得当前连连的网络项目,如拨号上网/局域网等

    bool InternetGetConnectedState( out LPDWORD lpdwFlags, int dwReversed);

澳门至尊网站 1

第生机勃勃,增添非托管函数并调用,能够收获互连网是还是不是联网

//声明外部的函数
[DllImport("winInet.dll ")]
private static extern bool InternetGetConnectedState(ref int flag,int dwReserved);

一、InternetGetConnectedState

 2. IsNetworkAlive

亟待劳务System Event Notification的支撑(系统暗中同意自动运维该服务),且供给设置新型的SDK(如.NET)

浏览:MSDN对IsNetworkAlive的详细描述

由API中翻译:该效能可在Windows XP、3000(或Windows NT 4.0与Internet Explorer 5或越来越高版本)上采纳,在windows95或越来越高版本上接纳Internet Explorer 5或越来越高版本。所以,日常的种类都以扶植的

在DELPHI中引用wininet那一个单元就足以向来采取 InternetGetConnectedState函数了,下边给出多少个论断当前互连网连接状态的函数,在批注中会意气风发朝气蓬勃解释它的有个别有关再次来到值的意思。

输出值lpdwFlags

具体项目标详细内容可链接QOCINFO structure.aspx)

  • NETWORK_ALIVE_LAN=1 局域网(此处并非指有线网)
  • NETWORK_ALIVE_WAN=2 远程访谈-拨号访问和vpn访问(此处实际不是独有线网,按DPI所示,指的是RAS connections)
  • NETWORK_ALIVE_AOL=4 无效的值。。。因为独有Win9x系统才有此第多少个挑选。参谋链接

有线互联网的判断:lpdwFlags对是还是不是有线互连网,并从未直接的论断。

澳门至尊网站,eg:譬喻小编的微处理器境况(有线网络或许wifi网络),获取的flag=1(局域网)

澳门至尊网站 2

 

uses wininet;//那个曾经说了总得援用它技术够行使InternetGetConnectedState函数

返回值(bool)

  • 当重临值为true,且无不当Code时,表示网络已延续
  • 当再次来到值为false,且无不当Code时,表示互联网未连接

那么,错误Code(格外)怎么获取呢?

functionConnectionKind :boolean;
var flags: dword;
begin
  Result :=InternetGetConnectedState(@flags, 0);
    if Result then
     begin
       if (flags andINTERNET_CONNECTION_MODEM) =INTERNET_CONNECTION_MODEM then showmessage('在线:拨号上网');
       if (flags and INTERNET_CONNECTION_LAN)= INTERNET_CONNECTION_LAN then showmessage('在线:通过局域网');
       if (flags andINTERNET_CONNECTION_PROXY) =INTERNET_CONNECTION_PROXY then showmessage('在线:代理');
       if (flags andINTERNET_CONNECTION_MODEM_BUSY)=INTERNET_CONNECTION_MODEM_BUSYthen showmessage('MODEM被其余非INTELANDNET连接占用');
     end; //if
end;//function

3. 获得上三回特别Code-GetLastError

参照链接

那边推荐应用马尔斯hal中的GetLastWin32Error,见如下源代码:

 1     /// <summary>
 2     ///   通过使用平台调用的最后一个非托管函数返回的错误代码返回调用具有 <see cref="F:System.Runtime.InteropServices.DllImportAttribute.SetLastError" /> 标志设置。
 3     /// </summary>
 4     /// <returns>最后一个错误代码设置通过调用 Win32 SetLastError 函数。</returns>
 5     [SecurityCritical]
 6     [ReliabilityContract(Consistency.WillNotCorruptState, Cer.Success)]
 7     [MethodImpl(MethodImplOptions.InternalCall)]
 8     public static extern int GetLastWin32Error();

GetLastWin32Error可获得最终三个非托管函数的错误Code

 int errCode = Marshal.GetLastWin32Error();

--获得 error code的详细描述音信,可参谋

值得注意的是,非托管函数注解时,要加多SetLastError=true;如:

1 [DllImport("sensapi.dll", SetLastError = true)]
2 private static extern bool IsNetworkAlive(out int connectionDescription);

经过甘休 上面说下各各重回值的情致:
INTERNET_CONNECTION_MODEM: //现在是通过拨号形式上网的
INTERNET_CONNECTION_LAN:  //未来是由此局域网络网的
INTERNET_CONNECTION_PROXY: //现在是经过代理上网的
INTERNET_CONNECTION_MODEM_BUSY: //现在MODEM被其余非INTE奥迪Q7NET连接占用(离线)

 4. 使用Ping函数

1     using (var ping = new Ping())
2     {
3         //ping给定的host 如:www.baidu.com,超时时间为1s
4         var reply = ping.Send(host, 1000);
5         var pingResult= reply != null && reply.Status == IPStatus.Success;
6     }

如上正是经过选择InternetGetConnectedState函数完毕的剖断网络状态的方法

 推荐推断Computer再三再四网络的方案

如上,获取网络状态是否连接,建议通过IsNetworkAlive函数获取。那么IsNetworkAlive是或不是可信赖吗?

答案是不是!

案例:

  1. Computer配置了虚构机连接--断网后,IsNetworkAlive再次来到的是有网true !-- 对虚构机等互连网是不是连接无法判别。
  2. 在一些情况下,光导纤维等坏了,上穿梭网络,可是走TCP合同能够聊微信QQ--IsNetwork阿里ve重临的是有网true !

无网络时,有不小希望回到有网:lpdwFlags=1 局域网时,就算当前配备了虚构机连接之类的,本机不能够连接网络时,IsNetwork阿里ve函数依旧会回来true。如下:

澳门至尊网站 3

  所以,假设是局域网且IsNetworkAlive重临true,则运用InternetGetConnectedState重新得到网络状态。

 1     //通过IsNetworkAlive方法,来获取电脑的联网状态
 2     [DllImport("sensapi.dll", SetLastError = true)]
 3     private static extern bool IsNetworkAlive(out int connectionDescription);
 4 
 5     //通过InternetGetConnectedState方法,来获取电脑的联网状态
 6     [DllImport("winInet.dll")]
 7     private static extern bool InternetGetConnectedState(ref IntPtr dwFlag, int dwReserved);
 8 
 9     /// <summary>
10     /// IsNetworkAlive函数输出值1-连接局域网
11     /// </summary>
12     private const int LanNetworkConnectedFlag = 1;
13     /// <summary>
14     /// 网络是否连接
15     /// </summary>
16     public static bool IsConnected
17     {
18         get
19         {
20             var isNetworkConnected = IsNetworkAlive(out int flags);
21             int errCode = Marshal.GetLastWin32Error();
22             if (errCode != 0)
23             {
24                 Console.WriteLine($"通过{nameof(IsNetworkAlive)}非托管DLL函数,获取网络状态时,遇到异常!");
25             }
26 
27             //IsNetworkAlive检测到是局域网连上网络,则使用InternetGetConnectedState重新确认是否有网
28             if (isNetworkConnected && flags == LanNetworkConnectedFlag)
29             {
30                 var dwFlag = new IntPtr();
31                 isNetworkConnected = InternetGetConnectedState(ref dwFlag, 0);
32                 errCode = Marshal.GetLastWin32Error();
33                 if (errCode != 0)
34                 {
35                     Console.WriteLine($"通过{nameof(InternetGetConnectedState)}非托管DLL函数,获取网络状态时,遇到异常!");
36                 }
37             }
38 
39             return isNetworkConnected;
40         }
41     }

 收获系统的互联网状态与有线网的时域信号强度(格数)

 

[hr]

 

二、IsNetworkAlive

Delphi中尚无对那么些函数实行宣示,所以大家要团结申明,请把下部的代码参与到当下窗体或然单元的 申明全局变量的地点也正是首先个var上面。

Function IsNetworkAlive(varlpdwFlagsLib:Integer):Integer;stdcall;external'SENSAPI.DLL';

再有要定义四个常量:

Const NETWORK_ALIVE_LAN =1;  //通过局域英特网网
ConstNETWORK_ALIVE_WAN = 2;  //通过广域互联网网
ConstNETWORK_ALIVE_AOL = 4;  //仅对98/95立竿见影推断是或不是联上美利坚联邦合众国网络

下边依然提交二个经过来判别当前互联网的情况,这一次是二个历程

procedure ShowNetWorkState();
var
falg:integer;
Bos:boolean;
begin
  Bos:=false;
  IsNetworkAlive(falg);
  case falgof
   NETWORK_ALIVE_LAN:
     begin
       Showmessage('通过局域英特网网。');
       Bos:=true;
     end;
   NETWORK_ALIVE_WAN:
     begin
     Showmessage('通过广域互连网网。');
       Bos:=true;
     end;
   NETWORK_ALIVE_AOL:
     begin
       Showmessage('联上美国的互连网。');  //仅对98/95卓有功效所以平时不要推断NETWOLacrosseK_ALIVE_AOL
       Bos:=true;
     end;
    else Showmessage('未有联网。');
  end;  //case
if Bos then Showmessage('你今后是联网状态!')
  elseShowmessage('你未来是离线状态!');
end;

上面再介绍一个办法能够判别网络是或不是衔接的。

三、URL.DLL中的InetIsOffline函数。

Delphi中绝非对该函数进行宣示,所以大家要团结证明,那跟下边包车型客车第三种方式的扬言是同个道理
函数声明为:
functionInetIsOffline(Flag: Integer): Boolean;stdcall; external 'URL.DLL';

下一场就可以调用函数推断系统是不是连接到INTELX570NET

if InetIsOffline(0)then ShowMessage('未有连接到互连网')
else ShowMessage('已经三番五次到网络');

该函数再次来到TRUE表达地点系统尚未连接到INTE牧马人NET。
附:
大部装有IE或OFFICE97的类别都有此DLL可供调用。
InetIsOffline
BOOL InetIsOffline(
DWORD dwFlags,
);

本文由澳门至尊网站发布于技术教程,转载请注明出处:判断网络是否连接,获取电脑的网络连接状态

关键词: