易语言取TCP连接列表源码

系统结构:网络_取TCP连接列表,GetInetAddrStr,GetString,网络通讯网络转换_,复制字符串_,取文本内容长度_,拷贝内存_,网络通讯到文本地址_,取当前TCP连接情况_,取内存变量地址2_,取内存变量地址3_,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======程序集1
           |  |
           |  |------ 网络_取TCP连接列表
           |  |
           |  |------ GetInetAddrStr
           |  |
           |  |------ GetString
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   网络通讯网络转换_
           |  |
           |  |---[dll]------   复制字符串_
           |  |
           |  |---[dll]------   取文本内容长度_
           |  |
           |  |---[dll]------   拷贝内存_
           |  |
           |  |---[dll]------   网络通讯到文本地址_
           |  |
           |  |---[dll]------   取当前TCP连接情况_
           |  |
           |  |---[dll]------   取内存变量地址2_
           |  |
           |  |---[dll]------   取内存变量地址3_

调用的DLL命令:

.DLL命令 网络通讯网络转换_, 整数型, "wsock32.dll", "ntohs"
    .参数 十六位网络命令, 整数型, , netshort

.DLL命令 复制字符串_, 整数型, "kernel32.dll", "lstrcpyA", , lstrcpyA
    .参数 文本1, 文本型, 传址, RetVal
    .参数 文本2, 整数型, , Ptr

.DLL命令 取文本内容长度_, 整数型, "kernel32.dll", "lstrlenA", , lstrlenA
    .参数 文本, 整数型, , Ptr

.DLL命令 拷贝内存_, 整数型, "kernel32", "RtlMoveMemory", , RtlMoveMemory
    .参数 目标数据地址, 整数型, 传址, lpvDest
    .参数 源数据, 整数型, 传址, lpvSource
    .参数 尺寸, 整数型, , cbCopy

.DLL命令 网络通讯到文本地址_, 整数型, "wsock32.dll", "inet_ntoa"
    .参数 网络地址, 整数型, , lIn

.DLL命令 取当前TCP连接情况_, 整数型, "IPHLPAPI.DLL", "GetTcpTable", , API_GetTcpTable
    .参数 pTcpTable, 整数型
    .参数 pdwSize, 整数型, 传址
    .参数 border, 整数型

.DLL命令 取内存变量地址2_, 整数型, "kernel32.dll", "lstrcpyn"
    .参数 数据1, 字节型, 数组, lpString1
    .参数 数据2, 字节型, 数组, lpString2
    .参数 数据长度, 整数型, , iMaxLength

.DLL命令 取内存变量地址3_, 整数型, "kernel32", "lstrcpyn"
    .参数 数据1, MIB_TCPROW, 传址, lpString1
    .参数 数据2, MIB_TCPROW, 传址, lpString2
    .参数 数据长度, 整数型, , iMaxLength