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

当前位置:

首页 > 编程开发 > vb >

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

通过 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 教程目录

————————————————

原文链接：https://blog.csdn.net/UruseiBest/article/details/81811674

栏目列表