VB.NET网络应用之连通检测的示例分析

小编给大家分享一下VB.NET网络应用之连通检测的示例分析，相信大部分人都还不怎么了解，因此分享这篇文章给大家参考一下，希望大家阅读完这篇文章后大有收获，下面让我们一起去了解一下吧！

VB.NET网络应用连通检测

许多应用程序常常需要在程序中直接进行联网操作，以便进行一些必要的处理（如在线注册和在线帮助等），这就要求我们在程序中建立某些连接。很多软件在不知用户是否联网的情况下就启动浏览器查找网址，结果只能查出一错误网页，既浪费用户时间又没有任何效果。如果应用程序在查找网页之前能自动判断用户是否已经联网，就会节约许多时间，提高程序运行效率。

下面是实现网络连通检测的VB 6代码：

Private Sub Form_Load()   If IsConnected = TRUE Then   MsgBox (“您已经连通了Internet!”)   End If   If IsConnected = FALSE Then   MsgBox (“您还没有连通 Internet!”)   End If   End Sub   Option Explicit      Public Declare Function RasEnumConnections Lib “RasApi32.dll” Alias “RasEnumConnectionsA” (lpRasCon As Any, lpcb As Long, lpcConnections As Long) As Long   Public Declare Function RasGetConnectStatus Lib “RasApi32.dll” Alias “RasGetConnectStatusA” (ByVal hRasCon As Long, lpStatus As Any) As Long     Public Const RAS95_MaxEntryName = 256   Public Const RAS95_MaxDeviceType = 16   Public Const RAS95_MaxDeviceName = 32   Public Type RASCONN95   dwSize As Long   hRasCon As Long   szEntryName(RAS95_MaxEntryName) As Byte   szDeviceType(RAS95_MaxDeviceType) As Byte   szDeviceName(RAS95_MaxDeviceName) As Byte   End Type   Public Type RASCONNSTATUS95   dwSize As Long   RasConnState As Long   dwError As Long   szDeviceType(RAS95_MaxDeviceType) As Byte   szDeviceName(RAS95_MaxDeviceName) As Byte   End Type         Public Function IsConnected() As Boolean   Dim TRasCon(255) As RASCONN95   Dim lg As Long   Dim lpcon As Long   Dim RetVal As Long   Dim Tstatus As RASCONNSTATUS95   TRasCon(0).dwSize = 412   lg = 256 * TRasCon(0).dwSize   RetVal = RasEnumConnections(TRasCon(0), lg, lpcon)   If RetVal <> 0 Then   MsgBox “错误”   Exit Function   End If   Tstatus.dwSize = 160   RetVal = RasGetConnectStatus(TRasCon(0)   .hRasCon,Tstatus)   If Tstatus.RasConnState = ＆H2000 Then   IsConnected = TRUE   Else   IsConnected = FALSE   End If   End Function

以上是“VB.NET网络应用之连通检测的示例分析”这篇文章的所有内容，感谢各位的阅读！相信大家都有了一定的了解，希望分享的内容对大家有所帮助，如果还想学习更多知识，欢迎关注编程网行业资讯频道！