易语言断开进程网络模块源码

系统结构:刷新,切断程序网络链接,取端口号,获取IP地址,获取进程路径,CloseHandle,OpenProcess,GetModuleFileNameExA,EnumProcessModules,htons,GetExtendedTcpTablelong,GetExtendedTcpTable,CopyMemorylong,CopyMemoryMIB,CopyMemoryByte,CopyMemoryByte_,SetTcpEntry,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |
======程序集2
           |  |
           |  |------ 刷新
           |  |
           |  |------ 切断程序网络链接
           |  |
           |  |------ 取端口号
           |  |
           |  |------ 获取IP地址
           |  |
           |  |------ 获取进程路径
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   OpenProcess
           |  |
           |  |---[dll]------   GetModuleFileNameExA
           |  |
           |  |---[dll]------   EnumProcessModules
           |  |
           |  |---[dll]------   htons
           |  |
           |  |---[dll]------   GetExtendedTcpTablelong
           |  |
           |  |---[dll]------   GetExtendedTcpTable
           |  |
           |  |---[dll]------   CopyMemorylong
           |  |
           |  |---[dll]------   CopyMemoryMIB
           |  |
           |  |---[dll]------   CopyMemoryByte
           |  |
           |  |---[dll]------   CopyMemoryByte_
           |  |
           |  |---[dll]------   SetTcpEntry

调用的DLL命令:

.DLL命令 CloseHandle, 整数型, "kernel32.dll", "CloseHandle"
    .参数 Handle, 整数型

.DLL命令 OpenProcess, 整数型, "kernel32.dll", "OpenProcess"
    .参数 dwDesiredAccessas, 整数型
    .参数 bInheritHandle, 整数型
    .参数 dwProcId, 整数型

.DLL命令 GetModuleFileNameExA, 整数型, "psapi.dll", "GetModuleFileNameExA"
    .参数 hProcess, 整数型
    .参数 hModule, 整数型
    .参数 ModuleName, 文本型
    .参数 nSize, 整数型

.DLL命令 EnumProcessModules, 整数型, "psapi.dll", "EnumProcessModules"
    .参数 hProcess, 整数型
    .参数 lphModule, 整数型, 传址
    .参数 cb, 整数型
    .参数 cbNeeded, 整数型, 传址

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

.DLL命令 GetExtendedTcpTablelong, 整数型, "IPHLPAPI.DLL", "GetExtendedTcpTable"
    .参数 pTcpTableEx, 整数型, 传址
    .参数 lSize, 整数型, 传址
    .参数 bOrder, 整数型
    .参数 Flags, 整数型
    .参数 TableClass, 整数型
    .参数 bReserved, 整数型

.DLL命令 GetExtendedTcpTable, 整数型, "IPHLPAPI.DLL", "GetExtendedTcpTable"
    .参数 pTcpTableEx, 字节型, 传址 数组
    .参数 lSize, 整数型, 传址
    .参数 bOrder, 整数型
    .参数 Flags, 整数型
    .参数 TableClass, 整数型
    .参数 bReserved, 整数型

.DLL命令 CopyMemorylong, , "kernel32", "RtlMoveMemory"
    .参数 Destination, 整数型
    .参数 Source, 字节型
    .参数 Length, 整数型

.DLL命令 CopyMemoryMIB, , "kernel32", "RtlMoveMemory"
    .参数 Destination, MIB_TCPROW_OWNER_PID, 传址
    .参数 Source, 字节型, 传址
    .参数 Length, 整数型

.DLL命令 CopyMemoryByte, , "kernel32", "RtlMoveMemory"
    .参数 Destination, 整数型, 传址
    .参数 Source, 字节型, 传址
    .参数 Length, 整数型

.DLL命令 CopyMemoryByte_, , "kernel32", "RtlMoveMemory"
    .参数 Destination, 字节型, 传址 数组
    .参数 Source, 整数型, 传址
    .参数 Length, 整数型

.DLL命令 SetTcpEntry, 整数型, "IPHLPAPI.DLL", "SetTcpEntry"
    .参数 pTcpTable, MIB_TCPROW_OWNER_PID, 传址