VB.NET中怎么實現(xiàn)網(wǎng)絡(luò)監(jiān)控

這篇文章給大家介紹VB.NET中怎么實現(xiàn)網(wǎng)絡(luò)監(jiān)控，內(nèi)容非常詳細，感興趣的小伙伴們可以參考借鑒，希望對大家能有所幫助。

創(chuàng)新互聯(lián)建站專注于柯坪企業(yè)網(wǎng)站建設(shè),成都響應(yīng)式網(wǎng)站建設(shè),商城網(wǎng)站制作?？缕壕W(wǎng)站建設(shè)公司,為柯坪等地區(qū)提供建站服務(wù)。全流程定制網(wǎng)站建設(shè)，專業(yè)設(shè)計，全程項目跟蹤，創(chuàng)新互聯(lián)建站專業(yè)和態(tài)度為您提供的服務(wù)

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

2.再放置一個按鈕控件。

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é)點  

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é)點

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)建 默認網(wǎng)關(guān) 子節(jié)點

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é)點

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 

關(guān)于VB.NET中怎么實現(xiàn)網(wǎng)絡(luò)監(jiān)控就分享到這里了，希望以上內(nèi)容可以對大家有一定的幫助，可以學(xué)到更多知識。如果覺得文章不錯，可以把它分享出去讓更多的人看到。

網(wǎng)站名稱：VB.NET中怎么實現(xiàn)網(wǎng)絡(luò)監(jiān)控
當前地址：http://muchs.cn/article38/ihchsp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供云服務(wù)器、網(wǎng)頁設(shè)計公司、網(wǎng)站改版、移動網(wǎng)站建設(shè)、關(guān)鍵詞優(yōu)化、手機網(wǎng)站建設(shè)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)