在vb中使用Iphlpapi.dll获取网络信息 第二章 第三节 获取本机TCP 信息列表

※==================================================================
※本连载文章说明：
※1、连载首发于《软件报》（http://www.sweek.com）2006年21期（2006年5月22日）；
※2、此次网上连载采用的是原稿件结构，内容与《软件报》发表略有不同；
※3、谢绝除《软件报》及其相关刊物之外的传统媒体部分或全部转载；
※4、谢绝任何收费媒体、网络转载；
※5、原作者：uruseibest ，blog：http://blog.csdn.net/uruseibest；
※6、如有其它疑问，请联系作者；
※7、如有转载，必须连同本说明一并发表，否则将追究转载者责任。
※======================================================================

第三节获取本机TCP 信息列表
1、函数：
Private Declare Function GetTcpStatistics Lib "iphlpapi.dll" (ByRef pTcpStats As MIB_TCPSTATS) As Long
参数说明：
pStats ：[输出]指向一个接收本机TCP统计表的MIB_TCPSTATS类型
返回值：成功，返回0；失败，返回错误代码。

2、使用到的类型：

①MIB_TCPSTATS 包含本机上正运行的TCP协议的统计表

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

3、使用到的常量：
无

4、主要代码分析：
① 定义一个MIB_TCPSTATS类型变量，然后直接调用GetTcpStatistics：
Dim mTcpS As MIB_TCPSTATS
RValue = GetTcpStatistics(mTcpS)

5、运行时截图：