module1.bas

来自「电子书“Visual Basic 6 网络编程实例教程.rar”」· BAS 代码 · 共 27 行

Attribute VB_Name = "Module1"
Option Explicit

Public Const ERROR_SUCCESS        As Long = 0
Public Const MIB_TCP_RTO_OTHER    As Long = 1
Public Const MIB_TCP_RTO_CONSTANT As Long = 2
Public Const MIB_TCP_RTO_RSRE     As Long = 3
Public Const MIB_TCP_RTO_VANJ     As Long = 4
Public Type MIB_TCPSTATS
    dwRtoAlgorithm   As Long  '超时算法
    dwRtoMin         As Long  '最小超时期限
    dwRtoMax         As Long  '最大超时期限
    dwMaxConn        As Long  '最大连接数
    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
Public Declare Function GetTcpStatistics Lib "iphlpapi.dll" (ByRef pTcpStats As MIB_TCPSTATS) As Long