易语言断开进程网络连接源码

系统结构:取进程连接,GetAscIP,取进程名,API_GetExtendedTcpTable,API_CopyMemory,API_inet_ntoa,API_lstrlen,API_ntohs,API_SetTcpEntry,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ 取进程连接
           |  |
           |  |------ GetAscIP
           |  |
           |  |------ 取进程名
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_GetExtendedTcpTable
           |  |
           |  |---[dll]------   API_CopyMemory
           |  |
           |  |---[dll]------   API_inet_ntoa
           |  |
           |  |---[dll]------   API_lstrlen
           |  |
           |  |---[dll]------   API_ntohs
           |  |
           |  |---[dll]------   API_SetTcpEntry

调用的DLL命令:

.DLL命令 API_GetExtendedTcpTable, 整数型, "iphlpapi.dll", "GetExtendedTcpTable"
    .参数 pTcpTable, 字节集, 传址
    .参数 pdwSize, 整数型, 传址
    .参数 bOrder, 逻辑型, , 是否排序
    .参数 ulAf, 整数型, , AF_INET=2
    .参数 TableClass, 整数型, , 未知类型：TCP_TABLE_CLASS。TCP_TABLE_OWNER_PID_ALL=5
    .参数 Reserved, 整数型

.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