易语言枚举进程所有句柄信息的代码

.版本 2 .DLL命令 GetCurrentProcessId, 整数型, "kernel32.dll", "GetCurrentProcessId" .DLL命令 GetCurrentProcess, 整数型, "kernel32.dll", "GetCurrentProcess" .DLL命令 RtlMoveMemory_SYSTEM_HANDLE_INFORMATION, , "kernel32.dll", "RtlMoveMemory" .参数 Destination, SYSTEM_HANDLE_INFORMATION .参数 Source, 整数型 .参数 Length, 整数型 .DLL命令 DuplicateHandle, 逻辑型, "kernel32.dll", "DuplicateHandle" .参数 hSourceProcessHandle, 整数型 .参数 hSourceHandle, 整数型 .参数 hTargetProcessHandle, 整数型 .参数 lpTargetHandle, 整数型, 传址 .参数 dwDesiredAccess, 整数型 .参数 bInheritHandle, 逻辑型 .参数 dwOptions, 整数型 .DLL命令 OpenProcess, 整数型, "kernel32.dll", "OpenProcess" .参数 dwDesiredAccess, 整数型 .参数 bInheritHandle, 逻辑型 .参数 dwProcessId, 整数型 .DLL命令 CloseHandle, 逻辑型, "kernel32.dll", "CloseHandle" .参数 hObject, 整数型 .DLL命令 ZwQuerySystemInformation, 整数型, "ntdll.dll", "ZwQuerySystemInformation" .参数 SystemInformationClass, 整数型 .参数 SystemInformation, 字节集 .参数 SystemInformationLength, 整数型 .参数 ReturnLength, 整数型, 传址 .DLL命令 ZwQueryObject, 整数型, "ntdll.dll", "ZwQueryObject" .参数 ObjectHandle, 整数型 .参数 ObjectInformationClass, 整数型 .参数 ObjectInformation, 字节集 .参数 ObjectInformationLength, 整数型 .参数 ReturnLength, 整数型, 传址 .DLL命令 ZwQueryObject_SYSTEM_HANDLE_STATE, 整数型, "ntdll.dll", "ZwQueryObject" .参数 ObjectHandle, 整数型 .参数 ObjectInformationClass, 整数型 .参数 ObjectInformation, SYSTEM_HANDLE_STATE .参数 ObjectInformationLength, 整数型 .参数 ReturnLength, 整数型, 传址 .DLL命令 RtlUnicodeStringToAnsiString, 整数型, "ntdll.dll", "RtlUnicodeStringToAnsiString" .参数 DestinationString, STRING .参数 SourceString, 字节集 .参数 AllocateDestinationString, 逻辑型 .DLL命令 RtlFreeAnsiString, 整数型, "ntdll.dll", "RtlFreeAnsiString" .参数 AnsiString, STRING

.版本 2 .常量 sizeof_SYSTEM_HANDLE_INFORMATION, "16" .常量 sizeof_SYSTEM_HANDLE_STATE, "56" .常量 SystemHandleInformation, "16", , 0x10 .常量 ObjectBasicInformation, "0" .常量 ObjectNameInformation, "1" .常量 ObjectTypeInformation, "2" .常量 STATUS_INFO_LENGTH_MISMATCH, "-1073741820", , 0xC0000004L .常量 STATUS_INVALID_HANDLE, "-1073741816", , 0xC0000008L .常量 DUPLICATE_SAME_ACCESS, "2", , 0x00000002 .常量 PROCESS_ALL_ACCESS, "2097151"

.版本 2 .数据类型 SYSTEM_HANDLE_INFORMATION .成员 ProcessId, 整数型 .成员 ObjectTypeNumber, 字节型 .成员 Flags, 字节型 .成员 Handle, 短整数型 .成员 Object, 整数型 .成员 GrantedAccess, 整数型 .数据类型 STRING .成员 Length, 短整数型 .成员 MaximumLength, 短整数型 .成员 Buffer, 整数型 .数据类型 SYSTEM_HANDLE_STATE .成员 r1, 整数型 .成员 GrantedAccess, 整数型 .成员 HandleCount, 整数型 .成员 ReferenceCount, 整数型 .成员 r5, 整数型 .成员 r6, 整数型 .成员 r7, 整数型 .成员 r8, 整数型 .成员 r9, 整数型 .成员 r10, 整数型 .成员 r11, 整数型 .成员 r12, 整数型 .成员 r13, 整数型 .成员 r14, 整数型

.版本 2 .程序集 List .程序集变量 _data, 字节集 .程序集变量 _size, 整数型 .子程序 List, , 公开, 构造函数 .参数 data, 字节集 .参数 size, 整数型 _data ＝ data _size ＝ size .子程序 Count, 整数型, 公开 .局部变量 count, 整数型置入代码 ({ 139, 69, 8, 139, 0, 139, 64, 4, 131, 192, 8, 139, 0, 201, 194, 4, 0 }) 返回 (0) .子程序 GetItem, 整数型, 公开 .参数 index, 整数型, , 从0开始置入代码 ({ 139, 77, 8, 139, 9, 139, 65, 4, 139, 89, 8, 139, 85, 12, 131, 192, 12, 15, 175, 218, 1, 216, 201, 194, 8, 0 }) 返回 (0)

.版本 2 .支持库 iext .程序集窗口程序集_窗口1 .程序集变量 cpid, 整数型 .子程序 _窗口1_创建完毕 cpid ＝ GetCurrentProcessId () 进程ID编辑框.内容＝到文本 (cpid) .子程序 _查询按钮_被单击 .局部变量 pid, 整数型 .局部变量 list, List .局部变量 i, 整数型 .局部变量 info, SYSTEM_HANDLE_INFORMATION .局部变量 handle, 整数型 .局部变量 hProcess, 整数型 .局部变量 index, 整数型超级列表框.全部删除 () pid ＝到整数 (进程ID编辑框.内容) list ＝获取系统所有句柄信息 () .如果真 (pid ≠ cpid) hProcess ＝ OpenProcess (#PROCESS_ALL_ACCESS, 假, pid) .如果真结束 .变量循环首 (0, list.Count () － 1, 1, i) RtlMoveMemory_SYSTEM_HANDLE_INFORMATION (info, list.GetItem (i), #sizeof_SYSTEM_HANDLE_INFORMATION) .如果真 (info.ProcessId ＝ pid) .如果 (pid ＝ cpid) handle ＝ info.Handle .否则 DuplicateHandle (hProcess, info.Handle, GetCurrentProcess (), handle, #DUPLICATE_SAME_ACCESS, 假, #DUPLICATE_SAME_ACCESS) .如果结束 index ＝超级列表框.插入表项 (, 获取句柄类型 (handle), , , , ) 超级列表框.置标题 (index, 1, 获取句柄名 (handle)) 超级列表框.置标题 (index, 2, 到文本 (info.Handle)) 超级列表框.置标题 (index, 3, 到文本 (info.Object)) 超级列表框.置标题 (index, 4, 到文本 (info.ObjectTypeNumber)) 超级列表框.置标题 (index, 5, 到文本 (获取句柄引用数 (handle))) .如果真 (pid ≠ cpid) CloseHandle (handle) .如果真结束 .如果真结束 .变量循环尾 () .如果真 (hProcess ≠ 0) CloseHandle (hProcess) .如果真结束 .子程序获取系统所有句柄信息, List .局部变量 len, 整数型 .局部变量 buffer, 字节集 .局部变量 status, 整数型 .局部变量 list, List len ＝ 16534 ' 0x4096 .循环判断首 () buffer ＝取空白字节集 (len) status ＝ ZwQuerySystemInformation (#SystemHandleInformation, buffer, len, 0) .如果真 (status ＝ #STATUS_INFO_LENGTH_MISMATCH) len ＝ len ＋ 16534 ' 0x4096 .如果真结束 .循环判断尾 (status ＝ #STATUS_INFO_LENGTH_MISMATCH) list.List (buffer, #sizeof_SYSTEM_HANDLE_INFORMATION) 返回 (list) .子程序获取句柄名, 文本型 .参数 handle, 整数型 .局部变量 size, 整数型 .局部变量 unicode, 字节集 .局部变量 ansi, STRING .局部变量 str, 文本型 .如果 (ZwQueryObject (handle, #ObjectTypeInformation, unicode, 0, size) ≠ #STATUS_INVALID_HANDLE) unicode ＝取空白字节集 (size) ZwQueryObject (handle, #ObjectNameInformation, unicode, size, 0) RtlUnicodeStringToAnsiString (ansi, unicode, 真) str ＝指针到文本 (ansi.Buffer) RtlFreeAnsiString (ansi) .否则 str ＝ “无法获取” .如果结束返回 (str) .子程序获取句柄类型, 文本型 .参数 handle, 整数型 .局部变量 size, 整数型 .局部变量 unicode, 字节集 .局部变量 ansi, STRING .局部变量 str, 文本型 .如果 (ZwQueryObject (handle, #ObjectTypeInformation, unicode, 0, size) ≠ #STATUS_INVALID_HANDLE) unicode ＝取空白字节集 (size) ZwQueryObject (handle, #ObjectTypeInformation, unicode, size, 0) RtlUnicodeStringToAnsiString (ansi, unicode, 真) str ＝指针到文本 (ansi.Buffer) RtlFreeAnsiString (ansi) .否则 str ＝ “无法获取” .如果结束返回 (str) .子程序获取句柄引用数, 整数型 .参数 handle, 整数型 .局部变量 state, SYSTEM_HANDLE_STATE ZwQueryObject_SYSTEM_HANDLE_STATE (handle, #ObjectBasicInformation, state, #sizeof_SYSTEM_HANDLE_STATE, 0) 返回 (state.ReferenceCount － 1)

您好，登录后才能下订单哦！

密码登录

忘记密码？

登录注册

获取短信验证码

其他方式登录

点击登录注册即表示同意《亿速云用户服务条款》

相关阅读