VB.NET網(wǎng)絡(luò)應(yīng)用之連通檢測的示例分析

小編給大家分享一下VB.NET網(wǎng)絡(luò)應(yīng)用之連通檢測的示例分析，相信大部分人都還不怎么了解，因此分享這篇文章給大家參考一下，希望大家閱讀完這篇文章后大有收獲，下面讓我們一起去了解一下吧！

VB.NET網(wǎng)絡(luò)應(yīng)用連通檢測

許多應(yīng)用程序常常需要在程序中直接進行聯(lián)網(wǎng)操作，以便進行一些必要的處理（如在線注冊和在線幫助等），這就要求我們在程序中建立某些連接。很多軟件在不知用戶是否聯(lián)網(wǎng)的情況下就啟動瀏覽器查找網(wǎng)址，結(jié)果只能查出一錯誤網(wǎng)頁，既浪費用戶時間又沒有任何效果。如果應(yīng)用程序在查找網(wǎng)頁之前能自動判斷用戶是否已經(jīng)聯(lián)網(wǎng)，就會節(jié)約許多時間，提高程序運行效率。

下面是實現(xiàn)網(wǎng)絡(luò)連通檢測的VB 6代碼：

Private Sub Form_Load()   If IsConnected = TRUE Then   MsgBox (“您已經(jīng)連通了Internet!”)   End If   If IsConnected = FALSE Then   MsgBox (“您還沒有連通 Internet!”)   End If   End Sub   Option Explicit   /*有關(guān)的API聲明和定義*/   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  /*常數(shù)和變量的設(shè)定*/   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      /*函數(shù)IsConnected返回連通的狀態(tài)，如果為True則表示已連通*/   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網(wǎng)絡(luò)應(yīng)用之連通檢測的示例分析”這篇文章的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對大家有所幫助，如果還想學(xué)習(xí)更多知識，歡迎關(guān)注億速云行業(yè)資訊頻道！