vb.net 第三节 获取本机TCP 信息列表 GetTcpStatistics

Posted 2022-03-22 VB.Net

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

第三节 获取本机TCP 信息列表 GetTcpStatistics

Imports System.Runtime.InteropServices


Public Class Form4

    'DWORD GetTcpStatistics(
    '  PMIB_TCPSTATS pStats
    ');
    'typedef struct _MIB_TCPSTATS 
    '  DWORD dwRtoAlgorithm; 
    '  DWORD dwRtoMin; 
    '  DWORD dwRtoMax; 
    '  DWORD dwMaxConn; 
    '  DWORD dwActiveOpens; 
    '  DWORD dwPassiveOpens; 
    '  DWORD dwAttemptFails; 
    '  DWORD dwEstabResets; 
    '  DWORD dwCurrEstab; 
    '  DWORD dwInSegs; 
    '  DWORD dwOutSegs; 
    '  DWORD dwRetransSegs; 
    '  DWORD dwInErrs; 
    '  DWORD dwOutRsts; 
    '  DWORD dwNumConns; 
    ' MIB_TCPSTATS, *PMIB_TCPSTATS;

    'Type MIB_TCPSTATS
    '    dwRtoAlgorithm As Long      '指定重传输(RTO：retransmission time-out)算法
    '    dwRtoMin As Long              '重传输超时的最小值，毫秒
    '    dwRtoMax As Long              '重传输超时的最大值，毫秒
    '    dwMaxConn As Long           '连接最大数目，如果为-1，则连接的最大数目是可变的
    '    dwActiveOpens As Long       '主动连接数目，即客户端正向服务器进行连接数目
    '    dwPassiveOpens As Long     '被动连接数目，即服务器监听连接客户端请求数目
    '    dwAttemptFails As Long       '尝试连接失败的次数
    '    dwEstabResets As Long        '对已建立的连接实行重设的次数
    '    dwCurrEstab As Long           '目前已建立的连接
    '    dwInSegs As Long               '收到分段数据报的数目
    '    dwOutSegs As Long             '传输的分段数据报数目，不包括转发的数据包
    '    dwRetransSegs As Long              '转发的分段数据报数目
    '    dwInErrs As Long                '收到错误的数目
    '    dwOutRsts As Long             '重设标志设定后传输分段数据报数目
    '    dwNumConns As Long         '累计连接的总数
    'End Type
    'Private Declare Function GetTcpStatistics Lib "iphlpapi.dll" (ByRef pTcpStats As MIB_TCPSTATS) As Long


    <StructLayout(LayoutKind.Sequential)>
    Structure MIB_TCPSTATS
        Dim dwRtoAlgorithm As Integer      '指定重传输(RTO：retransmission time-out)算法
        Dim dwRtoMin As Integer              '重传输超时的最小值，毫秒
        Dim dwRtoMax As Integer              '重传输超时的最大值，毫秒
        Dim dwMaxConn As Integer           '连接最大数目，如果为-1，则连接的最大数目是可变的
        Dim dwActiveOpens As Integer       '主动连接数目，即客户端正向服务器进行连接数目
        Dim dwPassiveOpens As Integer     '被动连接数目，即服务器监听连接客户端请求数目
        Dim dwAttemptFails As Integer       '尝试连接失败的次数
        Dim dwEstabResets As Integer        '对已建立的连接实行重设的次数
        Dim dwCurrEstab As Integer           '目前已建立的连接
        Dim dwInSegs As Integer               '收到分段数据报的数目
        Dim dwOutSegs As Integer             '传输的分段数据报数目，不包括转发的数据包
        Dim dwRetransSegs As Integer              '转发的分段数据报数目
        Dim dwInErrs As Integer                '收到错误的数目
        Dim dwOutRsts As Integer             '重设标志设定后传输分段数据报数目
        Dim dwNumConns As Integer         '累计连接的总数
    End Structure
    Private Declare Function GetTcpStatistics Lib "iphlpapi.dll" (ByRef pTcpStats As MIB_TCPSTATS) As Integer


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim mTcpS As MIB_TCPSTATS
        Dim returnValue As Integer
        returnValue = GetTcpStatistics(mTcpS)

        '请自行增加代码

    End Sub
End Class

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

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