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

发布时间:2021-07-19 16:10:26 作者:Leah
来源:亿速云 阅读:322

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

1.在窗体上放置一个TreeView控件,改名为tvInfo。

2.再放置一个按钮控件。

3.双击按钮,编写VB.NET网络监控代码。

  1. Dim _ManagementObjectSearcher As 
    New System.Management.Management
    ObjectSearcher("SELECT * FROM 
    Win32_NetworkAdapterConfiguration")  

  2. Dim _ParenNode As TreeNode = 
    Nothing '父节点  

  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 

创建 ip地址及子网掩码 子节点

  1. Dim _IpNode As New TreeNode
    ("IP Address | Default Gateway")  

  2. If (ManObj("IPAddress") 
    IsNot Nothing) Then  

  3. For i As Integer = 0 To 
    UBound(ManObj("IPAddress"))  

  4. _IpNode.Nodes.Add(New TreeNode
    (ManObj("IPAddress")(i) & " 
    | " & ManObj("IPSubnet")(i)))  

  5. Next  

  6. Else  

  7. _IpNode.Nodes.Add(New 
    TreeNode("Null"))  

  8. End If 

创建 默认网关 子节点

  1. Dim _GatewayNode As New 
    TreeNode("Default Gateway")  

  2. If (ManObj("DefaultIPGateway") 
    IsNot Nothing) Then  

  3. For i As Integer = 0 To UBound
    (ManObj("DefaultIPGateway"))  

  4. _GatewayNode.Nodes.Add(New 
    TreeNode(ManObj("DefaultIP
    Gateway")(i)))  

  5. Next  

  6. Else  

  7. _GatewayNode.Nodes.Add(New 
    TreeNode("Null"))  

  8. End If 

创建 DNS服务器地址 子节点

  1. Dim _DNSNode As New TreeNode
    ("DNS Servers")  

  2. If (ManObj("DNSServerSearchOrder") 
    IsNot Nothing) Then  

  3. For i As Integer = 0 To UBound
    (ManObj("DNSServerSearchOrder"))  

  4. _DNSNode.Nodes.Add(New TreeNode
    (ManObj("DNSServerSearchOrder")(i)))  

  5. Next  

  6. Else  

  7. _DNSNode.Nodes.Add(New TreeNode("Null"))  

  8. End If 

  1. _ParenNode.Nodes.AddRange( _  

  2. New TreeNode() { _  

  3. New TreeNode(String.Format
    ("Physical Address:{0}", ManObj
    ("MACAddress"))), _  

  4. New TreeNode(String.Format
    ("DHCPEnabled:{0}", ManObj
    ("DHCPEnabled"))), _  

  5. _IpNode, _  

  6. _GatewayNode, _  

  7. _DNSNode _  

  8. })  

  9. End If 

  1. _ParenNode.ExpandAll()  

  2. Me.tvInfo.Nodes.Add
    (_ParenNode)  

  3. Next  

  4. Catch ex As Exception  

  5. MsgBox(ex.Message, 
    MsgBoxStyle.Exclamation)  

  6. End Try 

关于VB.NET中怎么实现网络监控就分享到这里了,希望以上内容可以对大家有一定的帮助,可以学到更多知识。如果觉得文章不错,可以把它分享出去让更多的人看到。

推荐阅读:
  1. 部署zabbix网络监控
  2. 网络监控nagios小结

免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。

vb.net

上一篇:php如何实现中文字符串截取

下一篇:python中的EasyOCR库是什么

相关阅读

您好,登录后才能下订单哦!

密码登录
登录注册
其他方式登录
点击 登录注册 即表示同意《亿速云用户服务条款》