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

开发 后端
在对VB.NET网络监控进行实际操作时,整个步骤可以分为控件的安防,和控件按钮的代码编写这两部。在这里会对具体的代码编写方法进行一个介绍,供大家参考。

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

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

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

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

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

 

 

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

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

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

创建 默认网关 子节点

  1. Dim _GatewayNode As New 
    TreeNode("Default Gateway")  
  2. If (ManObj("DefaultIPGateway") 
    IsNot Nothing) Then  
  3. For i As Integer = 0 To UBound
    (ManObj("DefaultIPGateway"))  
  4. _GatewayNode.Nodes.Add(New 
    TreeNode(ManObj("DefaultIP
    Gateway")(i)))  
  5. Next  
  6. Else  
  7. _GatewayNode.Nodes.Add(New 
    TreeNode("Null"))  
  8. End If 

创建 DNS服务器地址 子节点

  1. Dim _DNSNode As New TreeNode
    ("DNS Servers")  
  2. If (ManObj("DNSServerSearchOrder") 
    IsNot Nothing) Then  
  3. For i As Integer = 0 To UBound
    (ManObj("DNSServerSearchOrder"))  
  4. _DNSNode.Nodes.Add(New TreeNode
    (ManObj("DNSServerSearchOrder")(i)))  
  5. Next  
  6. Else  
  7. _DNSNode.Nodes.Add(New TreeNode("Null"))  
  8. End If 

 

 

  1. _ParenNode.Nodes.AddRange( _  
  2. New TreeNode() { _  
  3. New TreeNode(String.Format
    ("Physical Address:{0}", ManObj
    ("MACAddress"))), _  
  4. New TreeNode(String.Format
    ("DHCPEnabled:{0}", ManObj
    ("DHCPEnabled"))), _  
  5. _IpNode, _  
  6. _GatewayNode, _  
  7. _DNSNode _  
  8. })  
  9. End If 

 

 

  1. _ParenNode.ExpandAll()  
  2. Me.tvInfo.Nodes.Add
    (_ParenNode)  
  3. Next  
  4. Catch ex As Exception  
  5. MsgBox(ex.Message, 
    MsgBoxStyle.Exclamation)  
  6. End Try 

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

责任编辑:曹凯 来源: 博客园
相关推荐

2010-01-18 18:32:43

VB.NET监视启动过

2010-01-13 09:45:53

VB.NET Arra

2010-01-22 15:37:02

VB.NET监控类

2010-01-19 17:26:37

VB.NET创建过程

2010-01-19 09:48:22

VB.NET调用过程

2009-11-02 14:35:52

VB.NET打包

2010-01-19 16:55:46

VB.NET声明语句

2010-01-07 14:52:41

VB.NET运算符

2010-01-18 19:04:29

VB.NET组件叠加

2010-01-22 18:08:18

VB.NET与GDI结

2011-05-20 16:56:11

VB.NETGDI

2010-01-13 17:23:36

VB.NET动态事件

2010-01-12 18:35:43

VB.NET Stru

2010-01-21 17:34:48

VB.NET Bool

2009-10-20 17:38:54

VB.NET Comp

2010-01-18 09:55:30

VB.NET删除空白行

2010-06-21 17:05:00

Linux Arch

2010-06-22 16:05:40

Autoconf rp

2010-01-21 17:48:25

VB.NET Sing

2010-01-19 10:12:39

VB.NET Butt
点赞
收藏

51CTO技术栈公众号