※==================================================================
※本连载文章说明:
※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 SetTcpEntry Lib "iphlpapi.dll" (pTcpTable As MIB_TCPROW) As Long
参数说明:
PTcpRow:[输入]指向MIB_TCPROW类型,这个类型指定了TCP连接的标识,也指定了TCP连接的新状态。调用者必须指定此类型中所有成员的值。
备注:通常设置为MIB_TCP_STATE_DELETE_TCB(值为12)用来断开某个TCP连接,这也是唯一可在运行时设置的状态。
返回值:成功,返回0;失败,返回错误代码。
②Private Declare Function GetTcpTable Lib "iphlpapi.dll" (ByRef pTcpTable As MIB_TCPTABLE, ByRef pdwSize As Long, ByVal bOrder As Long) As Long
参看 本章第四节 1
2、使用到的类型:
①MIB_TCPTABLE 类型包含Tcp连接表。参看本章第四节 2 ①
②MIB_TCPROW 类型包含了TCP连接信息。参看本章第四节 2 ②
3、使用到的常量:
Const MIB_TCP_STATE_DELETE_TCB = 12 ‘设置断开此Tcp连接
4、主要代码分析:
①定义一个MIB_TCPTABLE类型的变量后直接调用GetTcpTable(参看本章第四节 4 ①)
②使用For…Next循环遍历各个Tcp连接的信息,此时的mtcp.TCP_Table(i) 将作为设置TCP连接状态的参数依据(参看本章第四节 4 ②)
For i = 0 To mtcp.dwNum_Of_Entries - 1
Print mtcp.TCP_Table(i).dwLocalAddr & "->" & mtcp.TCP_Table(i).dwRemoteAddr
Next
③手动输入要删除的TCP连接的序号,设置MIB_TCPROW类型的每一个成员的值
TcpIndex = InputBox("接口号", "Del..")
If TcpIndex = "" Then Exit Sub Else TcpIndex = CLng(TcpIndex)
Ttable.dwLocalAddr = mtcp.TCP_Table(TcpIndex).dwLocalAddr
Ttable.dwLocalPort = mtcp.TCP_Table(TcpIndex).dwLocalPort
Ttable.dwRemoteAddr = mtcp.TCP_Table(TcpIndex).dwRemoteAddr
Ttable.dwRemotePort = mtcp.TCP_Table(TcpIndex).dwRemotePort
Ttable.dwState = MIB_TCP_STATE_DELETE_TCB
④调用函数SetTcpEntry断开对应序号的TCP连接,需要注意的是,断开系统的连接,即使调用函数显示成功,但实际并不能断开系统连接。
r = SetTcpEntry(Ttable)
5、运行时截图:
本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/UruseiBest/archive/2006/12/20/1450393.aspx