VB.NET网络监控具体步骤详解

VB.NET不但可以帮助开发人员实现各种硬件设备信息的产看等功能，还能通过它对网络进行监控。在这里我们就会为大家详细介绍有关VB.NET网络监控的相关操作方法，希望对初学者们有所帮助。#t#

创新互联公司自成立以来，一直致力于为企业提供从网站策划、网站设计、成都做网站、网站制作、电子商务、网站推广、网站优化到为企业提供个性化软件开发等基于互联网的全面整合营销服务。公司拥有丰富的网站建设和互联网应用系统开发管理经验、成熟的应用系统解决方案、优秀的网站开发工程师团队及专业的网站设计师团队。

VB.NET网络监控的开发环境：Visual Studio.net 2005

1.在窗体上放置一个TreeView控件，改名为tvInfo。

2.再放置一个按钮控件。

3.双击按钮，编写VB.NET网络监控代码。

Dim _ManagementObjectSearcher As
New System.Management.Management
ObjectSearcher("SELECT * FROM
Win32_NetworkAdapterConfiguration")
Dim _ParenNode As TreeNode =
Nothing '父节点
Me.tvInfo.Nodes.Clear()
Try
For Each ManObj As System.
Management.ManagementObject
In _ManagementObjectSearcher.Get
_ParenNode = New TreeNode
(ManObj("Description"))
If CBool(ManObj("IPEnabled")) Then

创建 ip地址及子网掩码子节点

 
 
 
  
  
  Dim _IpNode As New TreeNode
("IP Address | Default Gateway")    
  
  If (ManObj("IPAddress") 
IsNot Nothing) Then    
  
  For i As Integer = 0 To 
UBound(ManObj("IPAddress"))    
  
  _IpNode.Nodes.Add(New TreeNode
(ManObj("IPAddress")(i) & " 
| " & ManObj("IPSubnet")(i)))    
  
  Next    
  
  Else    
  
  _IpNode.Nodes.Add(New 
TreeNode("Null"))    
  
  End If

创建默认网关子节点

 
 
 
  
  
  Dim _GatewayNode As New 
TreeNode("Default Gateway")    
  
  If (ManObj("DefaultIPGateway") 
IsNot Nothing) Then    
  
  For i As Integer = 0 To UBound
(ManObj("DefaultIPGateway"))    
  
  _GatewayNode.Nodes.Add(New 
TreeNode(ManObj("DefaultIP
Gateway")(i)))    
  
  Next    
  
  Else    
  
  _GatewayNode.Nodes.Add(New 
TreeNode("Null"))    
  
  End If

创建 DNS服务器地址子节点

 
 
 
  
  
  Dim _DNSNode As New TreeNode
("DNS Servers")    
  
  If (ManObj("DNSServerSearchOrder") 
IsNot Nothing) Then    
  
  For i As Integer = 0 To UBound
(ManObj("DNSServerSearchOrder"))    
  
  _DNSNode.Nodes.Add(New TreeNode
(ManObj("DNSServerSearchOrder")(i)))    
  
  Next    
  
  Else    
  
  _DNSNode.Nodes.Add(New TreeNode("Null"))    
  
  End If

 
 
 
  
  
  _ParenNode.Nodes.AddRange( _    
  
  New TreeNode() { _    
  
  New TreeNode(String.Format
("Physical Address：{0}", ManObj
("MACAddress"))), _    
  
  New TreeNode(String.Format
("DHCPEnabled：{0}", ManObj
("DHCPEnabled"))), _    
  
  _IpNode, _    
  
  _GatewayNode, _    
  
  _DNSNode _    
  
  })    
  
  End If

 
 
 
  
  
  _ParenNode.ExpandAll()    
  
  Me.tvInfo.Nodes.Add
(_ParenNode)    
  
  Next    
  
  Catch ex As Exception    
  
  MsgBox(ex.Message, 
MsgBoxStyle.Exclamation)    
  
  End Try

VB.NET网络监控的实际操作步骤就为大家介绍到这里。

当前标题：VB.NET网络监控具体步骤详解
当前链接：http://www.csdahua.cn/qtweb/news22/126722.html

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

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

成都快上网为您推荐相关内容