vb.net 教程 7-1 本地网络信息的获取 6 Tcp/Udp统计数据

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

通过 IPGlobalProperties的GetTcpIPv4Statistics、GetTcpIPv6Statistics、GetUdpIPv4Statistics、GetUdpIPv6Statistics方法可以获得对应的TCP和UDP统计信息：

具体代码如下；

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Dim IPGProperties As IPGlobalProperties = IPGlobalProperties.GetIPGlobalProperties

        TextBox1.Text = "TCP/IPv4统计数据：" & vbCrLf
        Dim TcpS As TcpStatistics = IPGProperties.GetTcpIPv4Statistics
        TextBox1.Text &= "接受的TCP连接请求数：" & TcpS.ConnectionsAccepted & vbCrLf
        TextBox1.Text &= "客户端发出的TCP连接请求数：" & TcpS.ConnectionsInitiated & vbCrLf
        TextBox1.Text &= "建立的TCP连接的总数：" & TcpS.CumulativeConnections & vbCrLf
        TextBox1.Text &= "当前TCP连接数：" & TcpS.CurrentConnections & vbCrLf
        TextBox1.Text &= "收到的TCP错误数：" & TcpS.ErrorsReceived & vbCrLf
        TextBox1.Text &= "失败的TCP连接尝试：" & TcpS.FailedConnectionAttempts & vbCrLf
        TextBox1.Text &= "支持的TCP连接的最大数：" & TcpS.MaximumConnections & vbCrLf
        TextBox1.Text &= "最大重新传输超时值：" & TcpS.MaximumTransmissionTimeout & vbCrLf
        TextBox1.Text &= "最小重新传输超时值：" & TcpS.MinimumTransmissionTimeout & vbCrLf
        TextBox1.Text &= "连接收到的 RST 数据包数：" & TcpS.ResetConnections & vbCrLf
        TextBox1.Text &= "重置标志的TCP段数：" & TcpS.ResetsSent & vbCrLf
        TextBox1.Text &= "收到的TCP段数：" & TcpS.SegmentsReceived & vbCrLf
        TextBox1.Text &= "重新发送的TCP段数：" & TcpS.SegmentsResent & vbCrLf
        TextBox1.Text &= "发送的TCP段数：" & TcpS.SegmentsSent & vbCrLf

        TextBox1.Text &= "=============================================" & vbCrLf
        TextBox1.Text &= "TCP/IPv6统计数据：" & vbCrLf
        Dim TcpS6 As TcpStatistics = IPGProperties.GetTcpIPv6Statistics
        TextBox1.Text &= "接受的TCP连接请求数：" & TcpS6.ConnectionsAccepted & vbCrLf
        TextBox1.Text &= "客户端发出的TCP连接请求数：" & TcpS6.ConnectionsInitiated & vbCrLf
        TextBox1.Text &= "建立的TCP连接的总数：" & TcpS6.CumulativeConnections & vbCrLf
        TextBox1.Text &= "当前TCP连接数：" & TcpS6.CurrentConnections & vbCrLf
        TextBox1.Text &= "收到的TCP错误数：" & TcpS6.ErrorsReceived & vbCrLf
        TextBox1.Text &= "失败的TCP连接尝试：" & TcpS6.FailedConnectionAttempts & vbCrLf
        TextBox1.Text &= "支持的TCP连接的最大数：" & TcpS6.MaximumConnections & vbCrLf
        TextBox1.Text &= "最大重新传输超时值：" & TcpS6.MaximumTransmissionTimeout & vbCrLf
        TextBox1.Text &= "最小重新传输超时值：" & TcpS6.MinimumTransmissionTimeout & vbCrLf
        TextBox1.Text &= "连接收到的 RST 数据包数：" & TcpS6.ResetConnections & vbCrLf
        TextBox1.Text &= "重置标志的TCP段数：" & TcpS6.ResetsSent & vbCrLf
        TextBox1.Text &= "收到的TCP段数：" & TcpS6.SegmentsReceived & vbCrLf
        TextBox1.Text &= "重新发送的TCP段数：" & TcpS6.SegmentsResent & vbCrLf
        TextBox1.Text &= "发送的TCP段数：" & TcpS6.SegmentsSent & vbCrLf

        TextBox1.Text &= "=============================================" & vbCrLf
        TextBox1.Text &= "UDP/IPv4统计数据：" & vbCrLf
        Dim UdpS As UdpStatistics = IPGProperties.GetUdpIPv4Statistics
        TextBox1.Text &= "已接收的UDP数据报的数量：" & UdpS.DatagramsReceived & vbCrLf
        TextBox1.Text &= "已发送的UDP数据报的数量：" & UdpS.DatagramsSent & vbCrLf
        TextBox1.Text &= "已收到但因端口错误而丢弃的UDP数据报的数量：" & UdpS.IncomingDatagramsDiscarded & vbCrLf
        TextBox1.Text &= "错误而丢弃的UDP数据报的数量：" & UdpS.IncomingDatagramsWithErrors & vbCrLf
        TextBox1.Text &= "侦听UDP数据报的本地终结点的数量：" & UdpS.UdpListeners & vbCrLf

        TextBox1.Text &= "=============================================" & vbCrLf
        TextBox1.Text &= "UDP/IPv6统计数据：" & vbCrLf
        Dim UdpS6 As UdpStatistics = IPGProperties.GetUdpIPv6Statistics
        TextBox1.Text &= "已接收的UDP数据报的数量：" & UdpS6.DatagramsReceived & vbCrLf
        TextBox1.Text &= "已发送的UDP数据报的数量：" & UdpS6.DatagramsSent & vbCrLf
        TextBox1.Text &= "已收到但因端口错误而丢弃的UDP数据报的数量：" & UdpS6.IncomingDatagramsDiscarded & vbCrLf
        TextBox1.Text &= "错误而丢弃的UDP数据报的数量：" & UdpS6.IncomingDatagramsWithErrors & vbCrLf
        TextBox1.Text &= "侦听UDP数据报的本地终结点的数量：" & UdpS6.UdpListeners & vbCrLf

    End Sub

运行如下:

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

学习更多vb.net知识，请参看vb.net 教程 目录