代码演示VB.NET网络应用之连通检测

VB.NET的升级给我们带来了很多好处，它的强大功能在这里也不和大家详细说了，说说关于VB.NET网络应用吧。随着Internet的迅猛发展，VB 6在网络方面的应用开发也越来越多。本文介绍笔者在实际编程开发中总结的技巧，希望能为进行网络开发的朋友们提供一点参考。

创新互联长期为上千客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为井陉企业提供专业的成都网站建设、网站设计，井陉网站改版等技术服务。拥有十余年丰富建站经验和众多成功案例,为您定制开发。

VB.NET网络应用连通检测

许多应用程序常常需要在程序中直接进行联网操作，以便进行一些必要的处理（如在线注册和在线帮助等），这就要求我们在程序中建立某些连接。很多软件在不知用户是否联网的情况下就启动浏览器查找网址，结果只能查出一错误网页，既浪费用户时间又没有任何效果。如果应用程序在查找网页之前能自动判断用户是否已经联网，就会节约许多时间，提高程序运行效率。

下面是实现网络连通检测的VB 6代码：

 
   
  Private Sub Form_Load()     
  If IsConnected = TRUE Then     
  MsgBox (“您已经连通了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    
  /*常数和变量的设定*/     
  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     
       
  /*函数IsConnected返回连通的状态，如果为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网络应用的技巧，以后还会为大家总结更多。

网站名称：代码演示VB.NET网络应用之连通检测
文章网址：http://www.shufengxianlan.com/qtweb/news0/513550.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容