建站
咨詢
售后
建站咨詢
新聞中心
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#
創(chuàng)新互聯(lián)公司自成立以來(lái)，一直致力于為企業(yè)提供從網(wǎng)站策劃、網(wǎng)站設(shè)計(jì)、成都做網(wǎng)站、網(wǎng)站制作、電子商務(wù)、網(wǎng)站推廣、網(wǎng)站優(yōu)化到為企業(yè)提供個(gè)性化軟件開(kāi)發(fā)等基于互聯(lián)網(wǎng)的全面整合營(yíng)銷服務(wù)。公司擁有豐富的網(wǎng)站建設(shè)和互聯(lián)網(wǎng)應(yīng)用系統(tǒng)開(kāi)發(fā)管理經(jīng)驗(yàn)、成熟的應(yīng)用系統(tǒng)解決方案、優(yōu)秀的網(wǎng)站開(kāi)發(fā)工程師團(tuán)隊(duì)及專業(yè)的網(wǎng)站設(shè)計(jì)師團(tuán)隊(duì)。
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)控代碼。
- Dim _ManagementObjectSearcher As
New System.Management.Management
ObjectSearcher("SELECT * FROM
Win32_NetworkAdapterConfiguration") - Dim _ParenNode As TreeNode =
Nothing '父節(jié)點(diǎn) - 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
創(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í)際操作步驟就為大家介紹到這里。
分享名稱：VB.NET網(wǎng)絡(luò)監(jiān)控具體步驟詳解
標(biāo)題鏈接：http://m.fisionsoft.com.cn/article/dpioggi.html
