易语言访问端口进程源码

系统结构:进程ID取路径,枚举端口结构,CreateToolhelp32Snapshot,Module32First,CloseHandle,GetExtendedTcpTable,API_htons,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ 进程ID取路径
           |  |
           |  |------ 枚举端口结构
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CreateToolhelp32Snapshot
           |  |
           |  |---[dll]------   Module32First
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   GetExtendedTcpTable
           |  |
           |  |---[dll]------   API_htons

调用的DLL命令:

.DLL命令 CreateToolhelp32Snapshot, 整数型, , "CreateToolhelp32Snapshot"
    .参数 falg, 整数型
    .参数 id, 整数型

.DLL命令 Module32First, 整数型, , "Module32First", , 模块
    .参数 快照句柄, 整数型
    .参数 模块信息, 模块信息_

.DLL命令 CloseHandle, 逻辑型, , "CloseHandle"
    .参数 hObject, 整数型

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

.DLL命令 API_htons, 整数型, "ws2_32.dll", "htons"
    .参数 hostshort, 整数型