易语言断开TCP连接源码

系统结构:GetPort,GetAscIP,API_GetTcpTable,API_LocalSize,API_CopyMemory,API_inet_ntoa,API_lstrlen,API_ntohs,API_SetTcpEntry,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ GetPort
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ GetAscIP
           |  |
           |  |------ _超级列表框1_右键单击表项
           |  |
           |  |------ _断开TCP连接
           |  |
           |  |------ _断开TCP连接_被选择
           |  |
           |  |------ _超级链接框1_鼠标左键被按下
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_GetTcpTable
           |  |
           |  |---[dll]------   API_LocalSize
           |  |
           |  |---[dll]------   API_CopyMemory
           |  |
           |  |---[dll]------   API_inet_ntoa
           |  |
           |  |---[dll]------   API_lstrlen
           |  |
           |  |---[dll]------   API_ntohs
           |  |
           |  |---[dll]------   API_SetTcpEntry

调用的DLL命令:

.DLL命令 API_GetTcpTable, 整数型, "IPHLPAPI.DLL", "GetTcpTable", , 　
    .参数 pTcpTable, MIB_TCPTABLE, 传址
    .参数 pdwSize, 整数型, 传址
    .参数 border, 整数型

.DLL命令 API_LocalSize, 整数型, "kernel32", "LocalSize", , 返回本地内存块大小　
    .参数 hMem, MIB_TCPTABLE

.DLL命令 API_CopyMemory, , "kernel32", "RtlMoveMemory", , 　
    .参数 pDest, 文本型
    .参数 pSrc, 整数型
    .参数 ByteLen, 整数型

.DLL命令 API_inet_ntoa, 整数型, "ws2_32.dll", "inet_ntoa", , 　
    .参数 lIn, 整数型

.DLL命令 API_lstrlen, 整数型, "kernel32", "lstrlenA", , 返回字符串中字符数　
    .参数 lpString, 整数型

.DLL命令 API_ntohs, 整数型, "ws2_32.dll", "ntohs", , 　
    .参数 netshort, 短整数型

.DLL命令 API_SetTcpEntry, 整数型, "IPHLPAPI.DLL", "SetTcpEntry"
    .参数 pTcpRow, MIB_TCPROW