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

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

創(chuàng)新互聯(lián)建站從2013年成立，先為紅花崗等服務(wù)建站，紅花崗等地企業(yè)，進行企業(yè)商務(wù)咨詢服務(wù)。為紅花崗企業(yè)網(wǎng)站制作PC+手機+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問題。

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é)習更多知識，歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道！

網(wǎng)站名稱：VB.NET網(wǎng)絡(luò)應(yīng)用之連通檢測的示例分析
地址分享：http://bm7419.com/article44/jjciee.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站改版、軟件開發(fā)、品牌網(wǎng)站建設(shè)、App開發(fā)、、網(wǎng)站設(shè)計公司

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)