VB.NET網絡監控具體步驟詳解

作者：佚名 2010-01-12 11:55:10

開發后端

在對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網絡監控