玄幻小说改编的电视剧,我欲封天txt下载,有声读物

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案

代碼演示VB.NET網(wǎng)絡應用之連通檢測

VB.NET的升級給我們帶來了很多好處，它的強大功能在這里也不和大家詳細說了，說說關于VB.NET網(wǎng)絡應用吧。隨著Internet的迅猛發(fā)展，VB 6在網(wǎng)絡方面的應用開發(fā)也越來越多。本文介紹筆者在實際編程開發(fā)中總結的技巧，希望能為進行網(wǎng)絡開發(fā)的朋友們提供一點參考。

創(chuàng)新互聯(lián)長期為上千客戶提供的網(wǎng)站建設服務，團隊從業(yè)經(jīng)驗10年，關注不同地域、不同群體，并針對不同對象提供差異化的產(chǎn)品和服務；打造開放共贏平臺，與合作伙伴共同營造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為井陘企業(yè)提供專業(yè)的成都網(wǎng)站建設、網(wǎng)站設計，井陘網(wǎng)站改版等技術服務。擁有十余年豐富建站經(jīng)驗和眾多成功案例,為您定制開發(fā)。

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

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

下面是實現(xiàn)網(wǎng)絡連通檢測的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     
  /*有關的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ù)和變量的設定*/     
  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)絡應用的技巧，以后還會為大家總結更多。

網(wǎng)站標題：代碼演示VB.NET網(wǎng)絡應用之連通檢測
本文鏈接：http://fisionsoft.com.cn/article/dhpjess.html

新聞中心

其他資訊