在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 GetTcpTable Lib "iphlpapi.dll" (ByRef pTcpTable As MIB_TCPTABLE, ByRef pdwSize As Long, ByVal bOrder As Long) As Long

参数说明：

pTcpTable：[输入]指向包含了MIB_TCPTABLE类型的TCP 连接表。

pdwSize：[输入，输出]指向pTcpTable参数的缓冲区大小，如果分配的缓冲不够，那么就等于最小需要缓冲。

bOrder：[输入]指定连接表是否按照类型排列。TRUE，那么就按以下类型顺序排列：Local IP address，Local port，Remote IP address，Remote port。

返回值：成功，返回0；失败，返回错误代码。

2、使用到的类型：

①MIB_TCPTABLE 类型包含Tcp连接表。

Type MIB_TCPTABLE

dwNum_Of_Entries As Long ‘当前包含MIB_TCPROW类型的总数

TCP_Table() As MIB_TCPROW ‘指向包含MIB_TCPROW类型的指针

End Type

备注：实际使用中可以定义：TCP_Table(120) As MIB_TCPROW ' 预留足够缓存

②MIB_TCPROW 类型包含了TCP连接信息。

Type MIB_TCPROW

dwState As Long ' TCP连接状态，为以下值之一：

常量名称
值
说明

MIB_TCP_STATE_CLOSED
1
关闭

MIB_TCP_STATE_LISTEN
2
正在监听

MIB_TCP_STATE_SYN_SENT
3
同步发送

MIB_TCP_STATE_SYN_RCVD
4
同步接收

MIB_TCP_STATE_ESTAB
5
已建立

MIB_TCP_STATE_FIN_WAIT1
6
FINWAIT 1

MIB_TCP_STATE_FIN_WAIT2
7
FINWAIT 2

MIB_TCP_STATE_CLOSE_WAIT
8
关闭等待

MIB_TCP_STATE_CLOSING
9
正在关闭

MIB_TCP_STATE_LAST_ACK
10
最后一次确认

MIB_TCP_STATE_TIME_WAIT
11
时间等待

MIB_TCP_STATE_DELETE_TCB
12
删除连接

dwLocalAddr As Long '本地IP

dwLocalPort As Long '本地端口

dwRemoteAddr As Long '远程机器IP

dwRemotePort As Long '远程机器端口

End Type

3、使用到的常量：

无

4、主要代码分析：

①定义一个MIB_TCPTABLE类型的变量，因为我们在定义MIB_TCPTABLE类型的时候预留了足够的缓存( TCP_Table(120) As MIB_TCPROW )，因此获得定义变量的大小后直接调用GetTcpTable，但是要注意的是，实际获得的TCP连接的总数应为dwNum_Of_Entries的值，一般小于我们的定义（120）：

Dim mtcp As MIB_TCPTABLE

mtcplen = Len(mtcp)

rvalue = GetTcpTable(mtcp, mtcplen, True)

②使用For…Next循环遍历各个Tcp连接的信息：

For i = 0 To mtcp.dwNum_Of_Entries - 1

Print mtcp.TCP_Table(i).dwLocalAddr & "->" & mtcp.TCP_Table(i).dwRemoteAddr

Next

③因为MIB_TCPROW 类型中dwLocalAddr、dwRemoteAddr均为一长整型数，因此要通过转换来获得IP地址：

Dim Ip_Buf(1 To 4) As Byte

CopyMemory Ip_Buf(1), dwLocalAddr, 4

GetIp = CStr(Ip_Buf(1)) + "." + CStr(Ip_Buf(2)) + "." + CStr(Ip_Buf(3)) + "." + CStr(Ip_Buf(4))

④因为MIB_TCPROW 类型中dwLocalPort、dwRemotePort均为一长整型数，因此要通过转换来获得端口：

GetPort = dwLocalPort/ 256 + (dwLocalPort Mod 256) * 256

5、运行时截图：

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/UruseiBest/archive/2006/12/20/1450364.aspx