监控TCP连接

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

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ GetPort
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ GetAscIP
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_GetTcpTable
           |  |
           |  |---[dll]------   API_LocalSize
           |  |
           |  |---[dll]------   API_CopyMemory
           |  |
           |  |---[dll]------   API_inet_ntoa
           |  |
           |  |---[dll]------   API_lstrlen
           |  |
           |  |---[dll]------   API_ntohs

调用的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, 短整数型