易语言获取系统进程线程信息源码

系统结构:getPidThreadInfo,getThreadStartAddress,取线程入口,提升进程权限,转换十到十六,CreateToolhelp32Snapshot,Thread32First,Thread32Next,CloseHandle,GetModuleHandleA,OpenThread,GetProcAddress,SuspendThread,OpenProcessToken,LookupPrivilegeValueA,AdjustTokenPrivileges,获取线程,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ getPidThreadInfo
           |  |
           |  |------ getThreadStartAddress
           |  |
           |  |------ 取线程入口
           |  |
           |  |------ _组合框_进程列表_将弹出列表
           |  |
           |  |------ _按钮_挂起_被单击
           |  |
           |  |------ 提升进程权限
           |  |
           |  |------ 转换十到十六
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CreateToolhelp32Snapshot
           |  |
           |  |---[dll]------   Thread32First
           |  |
           |  |---[dll]------   Thread32Next
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   GetModuleHandleA
           |  |
           |  |---[dll]------   OpenThread
           |  |
           |  |---[dll]------   GetProcAddress
           |  |
           |  |---[dll]------   SuspendThread
           |  |
           |  |---[dll]------   OpenProcessToken
           |  |
           |  |---[dll]------   LookupPrivilegeValueA
           |  |
           |  |---[dll]------   AdjustTokenPrivileges
           |  |
           |  |---[dll]------   获取线程

调用的DLL命令:

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

.DLL命令 Thread32First, 逻辑型, "kernel32.dll", "Thread32First"
    .参数 hSnapshot, 整数型
    .参数 lpte, THREADENTRY32, 传址

.DLL命令 Thread32Next, 逻辑型, "kernel32.dll", "Thread32Next"
    .参数 hSnapshot, 整数型
    .参数 lpte, THREADENTRY32, 传址

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

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

.DLL命令 OpenThread, 整数型, "kernel32.dll", "OpenThread"
    .参数 dwDesiredAccess, 整数型
    .参数 bInheritHandle, 逻辑型
    .参数 dwThreadId, 整数型

.DLL命令 GetProcAddress, 整数型, "kernel32.dll", "GetProcAddress"
    .参数 hMoudule, 整数型
    .参数 lpProcName, 文本型

.DLL命令 SuspendThread, 整数型, "kernel32.dll", "SuspendThread"
    .参数 hThread, 整数型

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

.DLL命令 LookupPrivilegeValueA, 逻辑型, "advapi32.dll", "LookupPrivilegeValueA"
    .参数 lpSystemName, 文本型
    .参数 lpName, 文本型
    .参数 lpLuid, LuID, 传址

.DLL命令 AdjustTokenPrivileges, 逻辑型, "advapi32.dll", "AdjustTokenPrivileges"
    .参数 TokenHandle, 整数型
    .参数 DisableAllPrivileges, 整数型
    .参数 NewState, TOKEN_PRIVILEGES, 传址
    .参数 BufferLength, 整数型
    .参数 PreviousState, TOKEN_PRIVILEGES, 传址
    .参数 ReturnLength, 整数型, 传址

.DLL命令 获取线程, 整数型, "kernel32.dll", "GetCurrentProcess"