※==================================================================
※本连载文章说明:
※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