VB.NET不但可以幫助開(kāi)發(fā)人員實(shí)現(xiàn)各種硬件設(shè)備信息的產(chǎn)看等功能，還能通過(guò)它對(duì)網(wǎng)絡(luò)進(jìn)行監(jiān)控。在這里我們就會(huì)為大家詳細(xì)介紹有關(guān)VB.NET網(wǎng)絡(luò)監(jiān)控的相關(guān)操作方法，希望對(duì)初學(xué)者們有所幫助。#t#

VB.NET網(wǎng)絡(luò)監(jiān)控的開(kāi)發(fā)環(huán)境：Visual Studio.net 2005

1.在窗體上放置一個(gè)TreeView控件，改名為tvInfo。

2.再放置一個(gè)按鈕控件。

3.雙擊按鈕，編寫VB.NET網(wǎng)絡(luò)監(jiān)控代碼。

1. Dim _ManagementObjectSearcher As 
   New System.Management.Management
   ObjectSearcher("SELECT * FROM 
   Win32_NetworkAdapterConfiguration")  
2. Dim _ParenNode As TreeNode = 
   Nothing '父節(jié)點(diǎn)  
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 

創(chuàng)建 ip地址及子網(wǎng)掩碼 子節(jié)點(diǎn)

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 

創(chuàng)建 默認(rèn)網(wǎng)關(guān) 子節(jié)點(diǎn)

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 

創(chuàng)建 DNS服務(wù)器地址 子節(jié)點(diǎn)

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網(wǎng)絡(luò)監(jiān)控的實(shí)際操作步驟就為大家介紹到這里。