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

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

新聞中心

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

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

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

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

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

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

 
 
      
  
  1. Private Sub Form_Load()   
    2.   
  
  2. If IsConnected = TRUE Then   
    3.   
  
  3. MsgBox (“您已經(jīng)連通了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. /*有關(guān)的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ù)和變量的設(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.

以上就是一個關(guān)于VB.NET網(wǎng)絡(luò)應(yīng)用的技巧，以后還會為大家總結(jié)更多。


文章題目：代碼演示VB.NET網(wǎng)絡(luò)應(yīng)用之連通檢測
轉(zhuǎn)載來源：http://www.5511xx.com/article/dhpjess.html