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

通过 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
运行如下：