易语言进程权限提升及获取进程路径名源码 [db:版本]

进程权限提升及获取进程路径名

系统结构:提升进程权限,列表,表项,取模块路径,Module32First,ExtractIconA,打开进程,获取线程,打开令牌,恢复权限,获取令牌特权,CreateToolhelp32Snapshot,

======窗口程序集1
| |
| |------ __启动窗口_创建完毕
| |
| |------ 提升进程权限
| |
| |------ 列表
| |
| |------ _按钮1_被单击
| |
| |------ 表项
| |
| |------ _按钮2_被单击
| |
| |------ _时钟1_周期事件
| |
| |------ _选择框1_被单击
| |
| |------ _超级列表框1_左键单击表项
| |
| |------ 取模块路径
| |
| |
======调用的Dll
| |
| |---[dll]------ Module32First
| |
| |---[dll]------ ExtractIconA
| |
| |---[dll]------ 打开进程
| |
| |---[dll]------ 获取线程
| |
| |---[dll]------ 打开令牌
| |
| |---[dll]------ 恢复权限
| |
| |---[dll]------ 获取令牌特权
| |
| |---[dll]------ CreateToolhelp32Snapshot

调用的DLL命令:

.DLL命令 Module32First, 整数型, , "Module32First"
.参数 hsnap, 整数型
.参数 mod, 模块信息

.DLL命令 ExtractIconA, 整数型, "shell32.dll", "ExtractIconA"
.参数 窗口句柄, 整数型
.参数 文件名称, 文本型
.参数 图标索引, 整数型

.DLL命令 打开进程, 整数型, , "OpenProcess", 公开
.参数 访问方法, 整数型, , 指定这个句柄要求的访问方法,PROCESS_CREATE_THREAD（允许远程创建线程）；PROCESS_VM_OPERATION （允许远程VM操作）；PROCESS_VM_WRITE（允许远程VM写）；2035711 完全访问
.参数 子进程继承, 整数型, , 如句柄能够由子进程继承，则为TRUE，0
.参数 进程标识符, 整数型, , 要打开那个进程的进程标识符,使用一个变量装载进程ID。

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

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

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

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

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