vb.net 教程 7-1 本地网络信息的获取 5 IP统计数据

小灰灰 2022-09-11 03:30 125阅读 0赞

通过 IPGlobalProperties的 GetIPv4GlobalStatistics 和 GetIPv6GlobalStatistics 方法获得IPv4 和IPv6的统计数据：

具体代码如下：

Private Sub Button4\_Click(sender As Object, e As EventArgs) Handles Button4.Click  
        Dim IPGProperties As IPGlobalProperties = IPGlobalProperties.GetIPGlobalProperties  
   
        TextBox1.Text = "IPv4 统计数据：" & vbCrLf  
        Dim IPGS As IPGlobalStatistics = IPGProperties.GetIPv4GlobalStatistics  
        TextBox1.Text &= "IP 数据包的默认生存时间 (TTL) 值：" & IPGS.DefaultTtl & vbCrLf  
        TextBox1.Text &= "是否启用IP数据包转发：" & IPGS.ForwardingEnabled & vbCrLf  
        TextBox1.Text &= "网络接口数：" & IPGS.NumberOfInterfaces & vbCrLf  
        TextBox1.Text &= "IP地址数：" & IPGS.NumberOfIPAddresses & vbCrLf  
        TextBox1.Text &= "路由表中的路由数：" & IPGS.NumberOfRoutes & vbCrLf  
        TextBox1.Text &= "出站 IP 数据包数：" & IPGS.OutputPacketRequests & vbCrLf  
        TextBox1.Text &= "从路由表中丢弃的路由数：" & IPGS.OutputPacketRoutingDiscards & vbCrLf  
        TextBox1.Text &= "已从路由表中丢弃的路由数：" & IPGS.OutputPacketsDiscarded & vbCrLf  
        TextBox1.Text &= "未能确定其目标地址路由的 IP 数据包数：" & IPGS.OutputPacketsWithNoRoute & vbCrLf  
        TextBox1.Text &= "未能分段的 IP 数据包数：" & IPGS.PacketFragmentFailures & vbCrLf  
        TextBox1.Text &= "需要重新组合的 IP 数据包数：" & IPGS.PacketReassembliesRequired & vbCrLf  
        TextBox1.Text &= "没有成功重新组合的 IP 数据包数：" & IPGS.PacketReassemblyFailures & vbCrLf  
        TextBox1.Text &= " IP 数据包的所有段必须到达的最长时限：" & IPGS.PacketReassemblyTimeout & vbCrLf  
        TextBox1.Text &= "分段的 IP 数据包数：" & IPGS.PacketsFragmented & vbCrLf  
        TextBox1.Text &= "重新组合的 IP 数据包数：" & IPGS.PacketsReassembled & vbCrLf  
        TextBox1.Text &= "收到的 IP 数据包数：" & IPGS.ReceivedPackets & vbCrLf  
        TextBox1.Text &= "传送的 IP 数据包数：" & IPGS.ReceivedPacketsDelivered & vbCrLf  
        TextBox1.Text &= "已收到但被丢弃的 IP 数据包数：" & IPGS.ReceivedPacketsDiscarded & vbCrLf  
        TextBox1.Text &= "转发的 IP 数据包数：" & IPGS.ReceivedPacketsForwarded & vbCrLf  
        TextBox1.Text &= "收到的地址有错误的 IP 数据包数：" & IPGS.ReceivedPacketsWithAddressErrors & vbCrLf  
        TextBox1.Text &= "收到的标头有错误的 IP 数据包数：" & IPGS.ReceivedPacketsWithHeadersErrors & vbCrLf  
        TextBox1.Text &= "收到的、标头中有未知协议的 IP 数据包数：" & IPGS.ReceivedPacketsWithUnknownProtocol & vbCrLf  
   
        TextBox1.Text &= "=============================================" & vbCrLf  
        TextBox1.Text &= "IPv6统计数据：" & vbCrLf  
        Dim IPGS6 As IPGlobalStatistics = IPGProperties.GetIPv6GlobalStatistics  
        TextBox1.Text &= "TTL：" & IPGS6.DefaultTtl & vbCrLf  
        TextBox1.Text &= "是否启用IP数据包转发：" & IPGS6.ForwardingEnabled & vbCrLf  
        TextBox1.Text &= "网络接口数：" & IPGS6.NumberOfInterfaces & vbCrLf  
        TextBox1.Text &= "IP地址数：" & IPGS6.NumberOfIPAddresses & vbCrLf  
        TextBox1.Text &= "路由表中的路由数：" & IPGS6.NumberOfRoutes & vbCrLf  
        TextBox1.Text &= "出站IP数据包数：" & IPGS6.OutputPacketRequests & vbCrLf  
        TextBox1.Text &= "从路由表中丢弃的路由数：" & IPGS6.OutputPacketRoutingDiscards & vbCrLf  
        TextBox1.Text &= "已丢弃的已传输IP数据包数：" & IPGS6.OutputPacketsDiscarded & vbCrLf  
        TextBox1.Text &= "未能确定其目标地址路由的IP数据包数：" & IPGS6.OutputPacketsWithNoRoute & vbCrLf  
        TextBox1.Text &= "未能分段的IP数据包数：" & IPGS6.PacketFragmentFailures & vbCrLf  
        TextBox1.Text &= "需要重新组合的IP数据包数：" & IPGS6.PacketReassembliesRequired & vbCrLf  
        TextBox1.Text &= "没有成功重新组合的IP数据包数：" & IPGS6.PacketReassemblyFailures & vbCrLf  
        TextBox1.Text &= "IP数据包的所有段必须到达的最长时限：" & IPGS6.PacketReassemblyTimeout & vbCrLf  
        TextBox1.Text &= "分段的IP数据包数：" & IPGS6.PacketsFragmented & vbCrLf  
        TextBox1.Text &= "重新组合的IP数据包数：" & IPGS6.PacketsReassembled & vbCrLf  
        TextBox1.Text &= "收到的IP数据包数：" & IPGS6.ReceivedPackets & vbCrLf  
        TextBox1.Text &= "传送的IP数据包数：" & IPGS6.ReceivedPacketsDelivered & vbCrLf  
        TextBox1.Text &= "已收到但被丢弃的IP数据包数：" & IPGS6.ReceivedPacketsDiscarded & vbCrLf  
        TextBox1.Text &= "转发的IP数据包数：" & IPGS6.ReceivedPacketsForwarded & vbCrLf  
        TextBox1.Text &= "收到的地址有错误的IP数据包数：" & IPGS6.ReceivedPacketsWithAddressErrors & vbCrLf  
        TextBox1.Text &= "收到的标头有错误的IP数据包数：" & IPGS6.ReceivedPacketsWithHeadersErrors & vbCrLf  
        TextBox1.Text &= "收到的、标头中有未知协议的 IP 数据包数：" & IPGS6.ReceivedPacketsWithUnknownProtocol & vbCrLf  
   
    End Sub  
运行如下：

由于.net平台下C\#和vb.NET很相似，本文也可以为C\#爱好者提供参考。

学习更多vb.net知识，请参[vb.net教程][vb.net]目录  
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

[vb.net]: https://www.xin3721.com/eschool/vbnetxin3721/