您好,登錄后才能下訂單哦!
這篇文章給大家介紹VB.NET中怎么實(shí)現(xiàn)網(wǎng)絡(luò)監(jiān)控,內(nèi)容非常詳細(xì),感興趣的小伙伴們可以參考借鑒,希望對大家能有所幫助。
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) ThenFor 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) ThenFor 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) ThenFor 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中怎么實(shí)現(xiàn)網(wǎng)絡(luò)監(jiān)控就分享到這里了,希望以上內(nèi)容可以對大家有一定的幫助,可以學(xué)到更多知識(shí)。如果覺得文章不錯(cuò),可以把它分享出去讓更多的人看到。
免責(zé)聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點(diǎn)不代表本網(wǎng)站立場,如果涉及侵權(quán)請聯(lián)系站長郵箱:is@yisu.com進(jìn)行舉報(bào),并提供相關(guān)證據(jù),一經(jīng)查實(shí),將立刻刪除涉嫌侵權(quán)內(nèi)容。