易语言图标进程管理源码

系统结构:取进程列表,EnumPro,GetUser_WTS,GetCommandLine,数值到时间,取公司名称,DOS路径转换_,处理事件_,干进程,取得ID,强力打开进程,取字节集指针,刷新进程列表,ImageList_Destroy,GetExitCodeThread,ReadProcessMemory_文本,GetInputState,WaitForSingleObject,CreateRemoteThread,GetModuleHandleA,GetProcAddress,FileTimeToSystemTime,FileTimeToLocalFileTime,RtlMoveMemory_字节集,VerQueryValue,GetFileVersionInfo,GetFileVersionInfoSize,LookupAccountSid,LocalFree,WinStationGetProcessSid,RtlMoveMemory_SYSTEM_PROCESSES,NtQuerySystemInformation,LocalAlloc,QueryDosDeviceA,GetLogicalDriveStringsA,GetProcessMemoryInfo,ImageList_AddIcon,SHGetFileInfo,关闭句柄,取进程内存信息,图像列表_清除,程序暂停,挂起恢复,图像列表_增加图标,得到标志数据,打开进程标志,得到文件信息,取进程列表,取进程运行时间,图像列表_固定颜色,图像列表_定制框架,打开进程,ZwQueryInformationProcess,副线程,主线程,ZwQuerySystemInformation,ZwDuplicateObject,ZwTerminateProcess,ZwOpenProcess,给线程投递消息,ZwAssignProcessToJobObject,ZwClose,ZwTerminateJobObject,RtlAdjustPrivilege,ZwCreateJobObject,LookupAccountSidA,GetTokenInformation,OpenProcessToken,ImageList_Create,GetProcessImageFileNameA,GetProcessTimes,OpenProcess,ImageList_SetBkColor,Process32First,Process32Next,CloseHandle,CreateToolhelp32Snapshot,

======窗口程序集1
           |  |
           |  |------ 取进程列表
           |  |
           |  |------ EnumPro
           |  |
           |  |------ GetUser_WTS
           |  |
           |  |------ GetCommandLine
           |  |
           |  |------ 数值到时间
           |  |
           |  |------ 取公司名称
           |  |
           |  |------ DOS路径转换_
           |  |
           |  |------ 处理事件_
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _结束进程_被选择
           |  |
           |  |------ 干进程
           |  |
           |  |------ 取得ID
           |  |
           |  |------ 强力打开进程
           |  |
           |  |------ 取字节集指针
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ 刷新进程列表
           |  |
           |  |------ _实时监控进程_被选择
           |  |
           |  |------ _刷新进程_被选择
           |  |
           |  |------ _列表框_进程_右键单击表项
           |  |
           |  |------ _暂停进程_被选择
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   ImageList_Destroy
           |  |
           |  |---[dll]------   GetExitCodeThread
           |  |
           |  |---[dll]------   ReadProcessMemory_文本
           |  |
           |  |---[dll]------   GetInputState
           |  |
           |  |---[dll]------   WaitForSingleObject
           |  |
           |  |---[dll]------   CreateRemoteThread
           |  |
           |  |---[dll]------   GetModuleHandleA
           |  |
           |  |---[dll]------   GetProcAddress
           |  |
           |  |---[dll]------   FileTimeToSystemTime
           |  |
           |  |---[dll]------   FileTimeToLocalFileTime
           |  |
           |  |---[dll]------   RtlMoveMemory_字节集
           |  |
           |  |---[dll]------   VerQueryValue
           |  |
           |  |---[dll]------   GetFileVersionInfo
           |  |
           |  |---[dll]------   GetFileVersionInfoSize
           |  |
           |  |---[dll]------   LookupAccountSid
           |  |
           |  |---[dll]------   LocalFree
           |  |
           |  |---[dll]------   WinStationGetProcessSid
           |  |
           |  |---[dll]------   RtlMoveMemory_SYSTEM_PROCESSES
           |  |
           |  |---[dll]------   NtQuerySystemInformation
           |  |
           |  |---[dll]------   LocalAlloc
           |  |
           |  |---[dll]------   QueryDosDeviceA
           |  |
           |  |---[dll]------   GetLogicalDriveStringsA
           |  |
           |  |---[dll]------   GetProcessMemoryInfo
           |  |
           |  |---[dll]------   ImageList_AddIcon
           |  |
           |  |---[dll]------   SHGetFileInfo
           |  |
           |  |---[dll]------   关闭句柄
           |  |
           |  |---[dll]------   取进程内存信息
           |  |
           |  |---[dll]------   图像列表_清除
           |  |
           |  |---[dll]------   程序暂停
           |  |
           |  |---[dll]------   挂起恢复
           |  |
           |  |---[dll]------   图像列表_增加图标
           |  |
           |  |---[dll]------   得到标志数据
           |  |
           |  |---[dll]------   打开进程标志
           |  |
           |  |---[dll]------   得到文件信息
           |  |
           |  |---[dll]------   取进程列表
           |  |
           |  |---[dll]------   取进程运行时间
           |  |
           |  |---[dll]------   图像列表_固定颜色
           |  |
           |  |---[dll]------   图像列表_定制框架
           |  |
           |  |---[dll]------   打开进程
           |  |
           |  |---[dll]------   ZwQueryInformationProcess
           |  |
           |  |---[dll]------   副线程
           |  |
           |  |---[dll]------   主线程
           |  |
           |  |---[dll]------   ZwQuerySystemInformation
           |  |
           |  |---[dll]------   ZwDuplicateObject
           |  |
           |  |---[dll]------   _写内存1
           |  |
           |  |---[dll]------   _写内存2
           |  |
           |  |---[dll]------   ZwTerminateProcess
           |  |
           |  |---[dll]------   ZwOpenProcess
           |  |
           |  |---[dll]------   给线程投递消息
           |  |
           |  |---[dll]------   ZwAssignProcessToJobObject
           |  |
           |  |---[dll]------   ZwClose
           |  |
           |  |---[dll]------   ZwTerminateJobObject
           |  |
           |  |---[dll]------   RtlAdjustPrivilege
           |  |
           |  |---[dll]------   ZwCreateJobObject
           |  |
           |  |---[dll]------   LookupAccountSidA
           |  |
           |  |---[dll]------   GetTokenInformation
           |  |
           |  |---[dll]------   OpenProcessToken
           |  |
           |  |---[dll]------   ImageList_Create
           |  |
           |  |---[dll]------   GetProcessImageFileNameA
           |  |
           |  |---[dll]------   GetProcessTimes
           |  |
           |  |---[dll]------   OpenProcess
           |  |
           |  |---[dll]------   ImageList_SetBkColor
           |  |
           |  |---[dll]------   Process32First
           |  |
           |  |---[dll]------   Process32Next
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   CreateToolhelp32Snapshot

  

调用的DLL命令:

.DLL命令 ImageList_Destroy, 整数型, "comctl32.dll", "ImageList_Destroy"
    .参数 himl, 整数型

.DLL命令 GetExitCodeThread, 整数型
    .参数 hThread, 整数型
    .参数 lpExitCode, 整数型, 传址

.DLL命令 ReadProcessMemory_文本, 逻辑型, , "ReadProcessMemory"
    .参数 hProcess, 整数型
    .参数 lpBaseAddress, 整数型
    .参数 lpBuffer, 文本型
    .参数 nSize, 整数型
    .参数 lpNumberOfBytesRead, 整数型, 传址

.DLL命令 GetInputState, 整数型, "user32", "GetInputState"

.DLL命令 WaitForSingleObject, 整数型
    .参数 hHandle, 整数型
    .参数 dwMilliseconds, 整数型

.DLL命令 CreateRemoteThread, 整数型
    .参数 hProcess, 整数型
    .参数 lpThreadAttributes, 整数型
    .参数 dwStackSize, 整数型
    .参数 lpStartAddress, 整数型
    .参数 lpParameter, 整数型
    .参数 dwCreationFlags, 整数型
    .参数 lpThreadId, 整数型, 传址

.DLL命令 GetModuleHandleA, 整数型
    .参数 lpModuleName, 文本型

.DLL命令 GetProcAddress, 整数型, "kernel32.dll", "GetProcAddress"
    .参数 hModule, 整数型
    .参数 ProName, 文本型

.DLL命令 FileTimeToSystemTime, 逻辑型, "Kernel32.dll"
    .参数 lpFileTime, FILETIME
    .参数 lpSystemTime, SYSTEMTIME, 传址

.DLL命令 FileTimeToLocalFileTime, 逻辑型, "Kernel32.dll"
    .参数 lpFileTime, FILETIME
    .参数 lpLocalFileTime, FILETIME, 传址

.DLL命令 RtlMoveMemory_字节集, , , "RtlMoveMemory"
    .参数 目标数据, 字节集, 传址
    .参数 源数据, 整数型
    .参数 内存长度, 整数型

.DLL命令 VerQueryValue, 整数型, "VERSION.DLL", "VerQueryValueA"
    .参数 内存块首区域位置, 字节集, 传址
    .参数 版本信息相对路径, 文本型, 传址
    .参数 装载缓冲变量, 整数型, 传址
    .参数 缓冲变量长度, 整数型, 传址

.DLL命令 GetFileVersionInfo, 整数型, "VERSION.DLL", "GetFileVersionInfoA"
    .参数 文件名称, 文本型
    .参数 指定句柄, 整数型, , win32中未用
    .参数 缓冲变量长度, 整数型
    .参数 装载缓冲变量, 字节集, 传址

.DLL命令 GetFileVersionInfoSize, 整数型, "VERSION.DLL", "GetFileVersionInfoSizeA"
    .参数 文件名称, 文本型
    .参数 文件句柄, 整数型, , 添入0

.DLL命令 LookupAccountSid, 逻辑型, "Advapi32.dll", "LookupAccountSidA"
    .参数 lpSystemName, 文本型
    .参数 lpSid, 字节集
    .参数 lpName, 文本型
    .参数 cchName, 整数型, 传址
    .参数 lpReferencedDomainName, 文本型
    .参数 cchReferencedDomainName, 整数型, 传址
    .参数 peUse, 整数型, 传址

.DLL命令 LocalFree, 整数型, "kernel32", "LocalFree"
    .参数 hMem, 整数型

.DLL命令 WinStationGetProcessSid, 整数型, "Winsta.dll", "WinStationGetProcessSid"
    .参数 hServer, 整数型
    .参数 ProcessId, 整数型
    .参数 ProcessStartTime, 长整数型
    .参数 pProcessUserSid, 字节集, 传址
    .参数 dwSidSize, 整数型, 传址

.DLL命令 RtlMoveMemory_SYSTEM_PROCESSES, , "kernel32", "RtlMoveMemory"
    .参数 Destination, SYSTEM_PROCESS_INFORMATION
    .参数 Source, 整数型
    .参数 Length, 整数型

.DLL命令 NtQuerySystemInformation, 整数型, "ntdll.dll"
    .参数 SystemInformationClass, 整数型
    .参数 SystemInformation, 整数型
    .参数 SystemInformationLength, 整数型
    .参数 ReturnLength, 整数型, 传址

.DLL命令 LocalAlloc, 整数型, "kernel32", "LocalAlloc"
    .参数 wFlags, 整数型
    .参数 wBytes, 整数型

.DLL命令 QueryDosDeviceA, 整数型, "kernel32.dll", "QueryDosDeviceA"
    .参数 lpDeviceName, 文本型
    .参数 lpTargetPath, 文本型
    .参数 ucchMax, 整数型

.DLL命令 GetLogicalDriveStringsA, 整数型, "kernel32.dll", "GetLogicalDriveStringsA"
    .参数 nBufferLength, 整数型
    .参数 lpBuffer, 字节集

.DLL命令 GetProcessMemoryInfo, 整数型, "psapi.dll", "GetProcessMemoryInfo", , 取进程内存信息_
    .参数 进程句柄, 整数型
    .参数 进程内存结构, Process_Memory_Counters
    .参数 结构大小, 整数型

.DLL命令 ImageList_AddIcon, 整数型, "comctl32.dll", "ImageList_AddIcon"
    .参数 himl, 整数型
    .参数 hicon, 整数型

.DLL命令 SHGetFileInfo, 整数型, "shell32.dll", "SHGetFileInfoA"
    .参数 pszPath, 文本型
    .参数 dwFileAttributes, 整数型
    .参数 psfi, SHfileInfo
    .参数 cbFileInfo, 整数型
    .参数 uFlags, 整数型

.DLL命令 关闭句柄, 整数型, , "CloseHandle"
    .参数 句柄, 整数型

.DLL命令 取进程内存信息, 整数型, "psapi.dll", "GetProcessMemoryInfo", , 取进程内存信息_
    .参数 进程句柄, 整数型
    .参数 进程内存结构, 进程内存统计
    .参数 结构大小, 整数型

.DLL命令 图像列表_清除, 整数型, "comctl32.dll", "ImageList_Destroy"
    .参数 himl, 整数型

.DLL命令 程序暂停, , "NTDLL.DLL", "ZwSuspendProcess", , 暂停
    .参数 进程句柄

.DLL命令 挂起恢复, , "NTDLL.DLL", "ZwResumeProcess", , 恢复
    .参数 进程句柄

.DLL命令 图像列表_增加图标, 整数型, "comctl32.dll", "ImageList_AddIcon"
    .参数 himl, 整数型
    .参数 图标, 整数型

.DLL命令 得到标志数据, 逻辑型, "Advapi32.dll", "GetTokenInformation"
    .参数 标志句柄, 整数型
    .参数 标志数据类型, 整数型
    .参数 标志类型, 字节集, 传址
    .参数 标志数据长度, 整数型
    .参数 返回长度, 整数型, 传址

.DLL命令 打开进程标志, 整数型, "Advapi32.dll", "OpenProcessToken"
    .参数 进程句柄, 整数型
    .参数 类型, 整数型
    .参数 标志句柄, 整数型, 传址

.DLL命令 得到文件信息, 整数型, "shell32.dll", "SHGetFileInfoA"
    .参数 pszPath, 文本型
    .参数 dwFileAttributes, 整数型
    .参数 psfi, 文件信息
    .参数 cbFileInfo, 整数型
    .参数 uFlags, 整数型

.DLL命令 取进程列表, 整数型, "psapi.dll", "GetProcessImageFileNameA"
    .参数 进程ID, 整数型
    .参数 进程名, 文本型
    .参数 大小, 整数型

.DLL命令 取进程运行时间, 整数型, "kernel32", "GetProcessTimes"
    .参数 进程ID, 整数型
    .参数 启动时间, 文件时间, 传址
    .参数 退出时间, 长整数型, 传址
    .参数 运行时间, 文件时间, 传址
    .参数 使用时间, 文件时间, 传址

.DLL命令 图像列表_固定颜色, 整数型, "comctl32.dll", "ImageList_SetBkColor"
    .参数 himl, 整数型
    .参数 颜色, 整数型

.DLL命令 图像列表_定制框架, 整数型, "comctl32.dll", "ImageList_Create"
    .参数 宽度, 整数型, , 宽度
    .参数 高度, 整数型, , 高度
    .参数 色深, 整数型, , 位深 ILC_
    .参数 初始数量, 整数型, , 初始数量
    .参数 是否手动销毁, 整数型, , 是否手动销毁

.DLL命令 打开进程, 整数型, "kernel32.dll", "OpenProcess"
    .参数 dwDesiredAccess, 整数型
    .参数 bInheritHandle, 整数型, , 是否继承
    .参数 dwProcessId, 整数型

.DLL命令 ZwQueryInformationProcess, 整数型, "ntdll.dll", "ZwQueryInformationProcess", , ntdll.dll
    .参数 SystemInformationClass, 整数型, , 未知类型：SYSTEM_INFORMATION_CLASS。
    .参数 dd, 整数型
    .参数 SystemInformation, 程序基本数据, , any
    .参数 SystemInformationLength, 整数型
    .参数 ReturnLength, 整数型, 传址

.DLL命令 副线程, 整数型, , "Thread32Next"
    .参数 hSnapshot, 整数型
    .参数 lppe, 线程注入

.DLL命令 主线程, 整数型, , "Thread32First"
    .参数 hSnapshot, 整数型
    .参数 lppe, 线程注入

.DLL命令 ZwQuerySystemInformation, 整数型, "ntdll.dll", "ZwQuerySystemInformation", , ntdll.dll
    .参数 SystemInformationClass, 整数型, , 未知类型：SYSTEM_INFORMATION_CLASS。
    .参数 SystemInformation, 字节集, , any
    .参数 SystemInformationLength, 整数型
    .参数 ReturnLength, 整数型, 传址

.DLL命令 ZwDuplicateObject, 整数型, "ntdll", "ZwDuplicateObject", , ntdll.dll
    .参数 SourceProcessHandle, 整数型
    .参数 SourceHandle, 整数型
    .参数 TargetProcessHandle, 整数型
    .参数 TargetHandle, 整数型, 传址
    .参数 DesiredAccess, 整数型
    .参数 HandleAttributes, 整数型
    .参数 Options, 整数型

.DLL命令 _写内存1, 整数型, , "RtlMoveMemory", , 常规API
    .参数 dest, SYSTEM_HANDLE_TABLE_ENTRY_INFO
    .参数 Source, 整数型
    .参数 len, , , 284

.DLL命令 _写内存2, 整数型, , "RtlMoveMemory"
    .参数 dest, 整数型, 传址
    .参数 Source, 整数型
    .参数 len, 整数型, , 4

.DLL命令 ZwTerminateProcess, 整数型, "ntdll", "ZwTerminateProcess", , ntdll.dll
    .参数 ProcessHandle, 整数型
    .参数 ExitStatus, 整数型

.DLL命令 ZwOpenProcess, 整数型, "ntdll.dll", "ZwOpenProcess", , ntdll.dll
    .参数 hProcess, 整数型, 传址
    .参数 DesiredAccess, 整数型
    .参数 ObjectAttributes, OBJECT_ATTRIBUTES
    .参数 ClientId, CLIENT_ID

.DLL命令 给线程投递消息, 整数型, "user32", "PostThreadMessageA", , 将一条消息投递给应用程序。这条消息由应用程序的内部GetMessage循环获得，但不会传给一个特定的窗口  如消息投递成功，则返回TRUE（非零）。会设置GetLastError
    .参数 idThread, 整数型, , 用于接收消息的那个线程的标识符
    .参数 msg, 整数型, , 消息标识符
    .参数 wParam, 整数型, , 具体由消息决定
    .参数 lParam, 整数型, , 具体由消息决定;

.DLL命令 ZwAssignProcessToJobObject, 整数型, "ntdll.dll", "ZwAssignProcessToJobObject"
    .参数 JobHandle, 整数型
    .参数 ProcessHandle, 整数型

.DLL命令 ZwClose, 整数型, "ntdll", "ZwClose", , ntdll.dll
    .参数 hnd

.DLL命令 ZwTerminateJobObject, 整数型, "ntdll.dll"
    .参数 JobHandle, 整数型
    .参数 ExitStatus, 整数型

.DLL命令 RtlAdjustPrivilege, 整数型, "ntdll.dll", , , 提升进程权限
    .参数 se_, 整数型
    .参数 true_, 逻辑型
    .参数 hprocess, 整数型
    .参数 ret, 整数型, 传址

.DLL命令 ZwCreateJobObject, 整数型, "ntdll.dll"
    .参数 JobHandle, 整数型, 传址
    .参数 DesiredAccess, 整数型
    .参数 ObjectAttributes, OBJECT_ATTRIBUTES

.DLL命令 LookupAccountSidA, 逻辑型, "Advapi32.dll"
    .参数 lpSystemName, 文本型
    .参数 lpSid, 整数型
    .参数 lpName, 文本型
    .参数 cchName, 整数型, 传址
    .参数 lpReferencedDomainName, 文本型
    .参数 cchReferencedDomainName, 整数型, 传址
    .参数 peUse, 整数型, 传址

.DLL命令 GetTokenInformation, 逻辑型, "Advapi32.dll", "GetTokenInformation"
    .参数 TokenHandle, 整数型
    .参数 TokenInformationClass, 整数型
    .参数 TokenInformation, 字节集, 传址
    .参数 TokenInformationLength, 整数型
    .参数 ReturnLength, 整数型, 传址

.DLL命令 OpenProcessToken, 逻辑型, "Advapi32.dll", "OpenProcessToken"
    .参数 ProcessHandle, 整数型
    .参数 DesiredAccess, 整数型
    .参数 TokenHandle, 整数型, 传址

.DLL命令 ImageList_Create, 整数型, "comctl32.dll", "ImageList_Create"
    .参数 cx, 整数型, , 宽度
    .参数 cy, 整数型, , 高度
    .参数 flags, 整数型, , 位深 ILC_
    .参数 cInitial, 整数型, , 初始数量
    .参数 cGrow, 整数型, , 是否手动销毁

.DLL命令 GetProcessImageFileNameA, 整数型, "psapi.dll"
    .参数 hProcess, 整数型
    .参数 lpImageFileName, 文本型
    .参数 nSize, 整数型

.DLL命令 GetProcessTimes, 整数型, "kernel32", "GetProcessTimes"
    .参数 hProcess, 整数型
    .参数 lpCreationTime, FILETIME, 传址
    .参数 lpExitTime, 长整数型, 传址
    .参数 lpKernelTime, FILETIME, 传址
    .参数 lpUserTime, FILETIME, 传址

.DLL命令 OpenProcess, 整数型, "kernel32.dll", "OpenProcess"
    .参数 dwDesiredAccess, 整数型
    .参数 bInheritHandle, 逻辑型, , 是否继承
    .参数 dwProcessId, 整数型

.DLL命令 ImageList_SetBkColor, 整数型, "comctl32.dll", "ImageList_SetBkColor"
    .参数 himl, 整数型
    .参数 clrBk, 整数型

.DLL命令 Process32First, 整数型, , "Process32First"
    .参数 hSnapshot, 整数型
    .参数 lppe, PROCESSENTRY32

.DLL命令 Process32Next, 整数型, , "Process32Next"
    .参数 hSnapshot, 整数型
    .参数 lppe, PROCESSENTRY32

.DLL命令 CloseHandle, 整数型, , "CloseHandle"
    .参数 hwnd, 整数型

.DLL命令 CreateToolhelp32Snapshot, 整数型, , "CreateToolhelp32Snapshot"
    .参数 dwFlags, 整数型
    .参数 th32ProcessID, 整数型