日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關咨詢
選擇下列產品馬上在線溝通
服務時間：8:30-17:00
你可能遇到了下面的問題
關閉右側工具欄

新聞中心

這里有您想知道的互聯(lián)網營銷解決方案
代碼演示VB.NET網絡應用之連通檢測

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

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

VB.NET網絡應用連通檢測

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

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

 
 
      
  
  1. Private Sub Form_Load()   
    2.   
  
  2. If IsConnected = TRUE Then   
    3.   
  
  3. MsgBox (“您已經連通了Internet!”)   
    4.   
  
  4. End If   
    5.   
  
  5. If IsConnected = FALSE Then   
    6.   
  
  6. MsgBox (“您還沒有連通 Internet!”)   
    7.   
  
  7. End If   
    8.   
  
  8. End Sub  
    9.   
  
  9.  
    10.   
  
  10. Option Explicit   
    11.   
  
  11. /*有關的API聲明和定義*/   
    12.   
  
  12. Public Declare Function RasEnumConnections Lib “RasApi32.dll” Alias “RasEnumConnectionsA” (lpRasCon As Any, lpcb As Long, lpcConnections As Long) As Long   
    13.   
  
  13. Public Declare Function RasGetConnectStatus Lib “RasApi32.dll” Alias “RasGetConnectStatusA” (ByVal hRasCon As Long, lpStatus As Any) As Long  
    14.   
  
  14. /*常數(shù)和變量的設定*/   
    15.   
  
  15. Public Const RAS95_MaxEntryName = 256   
    16.   
  
  16. Public Const RAS95_MaxDeviceType = 16   
    17.   
  
  17. Public Const RAS95_MaxDeviceName = 32   
    18.   
  
  18. Public Type RASCONN95   
    19.   
  
  19. dwSize As Long   
    20.   
  
  20. hRasCon As Long   
    21.   
  
  21. szEntryName(RAS95_MaxEntryName) As Byte   
    22.   
  
  22. szDeviceType(RAS95_MaxDeviceType) As Byte   
    23.   
  
  23. szDeviceName(RAS95_MaxDeviceName) As Byte   
    24.   
  
  24. End Type   
    25.   
  
  25. Public Type RASCONNSTATUS95   
    26.   
  
  26. dwSize As Long   
    27.   
  
  27. RasConnState As Long   
    28.   
  
  28. dwError As Long   
    29.   
  
  29. szDeviceType(RAS95_MaxDeviceType) As Byte   
    30.   
  
  30. szDeviceName(RAS95_MaxDeviceName) As Byte   
    31.   
  
  31. End Type   
    32.   
  
  32.    
    33.   
  
  33. /*函數(shù)IsConnected返回連通的狀態(tài)，如果為True則表示已連通*/   
    34.   
  
  34. Public Function IsConnected() As Boolean   
    35.   
  
  35. Dim TRasCon(255) As RASCONN95   
    36.   
  
  36. Dim lg As Long   
    37.   
  
  37. Dim lpcon As Long   
    38.   
  
  38. Dim RetVal As Long   
    39.   
  
  39. Dim Tstatus As RASCONNSTATUS95   
    40.   
  
  40. TRasCon(0).dwSize = 412   
    41.   
  
  41. lg = 256 * TRasCon(0).dwSize   
    42.   
  
  42. RetVal = RasEnumConnections(TRasCon(0), lg, lpcon)   
    43.   
  
  43. If RetVal <> 0 Then   
    44.   
  
  44. MsgBox “錯誤”   
    45.   
  
  45. Exit Function   
    46.   
  
  46. End If   
    47.   
  
  47. Tstatus.dwSize = 160   
    48.   
  
  48. RetVal = RasGetConnectStatus(TRasCon(0)   
    49.   
  
  49. .hRasCon,Tstatus)   
    50.   
  
  50. If Tstatus.RasConnState = ＆H2000 Then   
    51.   
  
  51. IsConnected = TRUE   
    52.   
  
  52. Else   
    53.   
  
  53. IsConnected = FALSE   
    54.   
  
  54. End If   
    55.   
  
  55. End Function  
    56.

以上就是一個關于VB.NET網絡應用的技巧，以后還會為大家總結更多。


網頁題目：代碼演示VB.NET網絡應用之連通檢測
瀏覽路徑：http://m.5511xx.com/article/dhpjess.html