VB.NET中怎么实现网络监控

发布时间：2021-07-19 16:10:26 阅读：363 作者：Leah 栏目：编程语言

开发者测试专用服务器限时活动，0元免费领，库存有限，领完即止！点击查看>>

这篇文章给大家介绍VB.NET中怎么实现网络监控，内容非常详细，感兴趣的小伙伴们可以参考借鉴，希望对大家能有所帮助。

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("DefaultIPGateway")(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中怎么实现网络监控就分享到这里了，希望以上内容可以对大家有一定的帮助，可以学到更多知识。如果觉得文章不错，可以把它分享出去让更多的人看到。

亿速云「云服务器」，即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘，价格低至29元/月。点击查看>>

向AI问一下细节

VB.NET中怎么实现网络监控

猜你喜欢

最新资讯

相关推荐

开发者交流群：

相关标签