易语言系统资源检测模块源码 [db:版本]

系统资源检测模块

系统结构:Li2Double,十六进制文本到整数,取CPU占用率,取系统资源,取用户资源,取GDI资源,取根键句柄,打开子键,读键值项,关闭键句柄,NtQuerySystemInformation1,NtQuerySystemInformation,GetSystemInfo,GetFreeSystemResources,GetSystemDirectory,

======程序集1
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |------ Li2Double
| |
| |------ 十六进制文本到整数
| |
| |
======_接口程序集
| |
| |------ 取CPU占用率
| |
| |------ 取系统资源
| |
| |------ 取用户资源
| |
| |------ 取GDI资源
| |
| |
======_模块_注册表操作增强模块
| |
| |------ 取根键句柄
| |
| |------ 打开子键
| |
| |------ 读键值项
| |
| |------ 关闭键句柄
| |
| |
======调用的Dll
| |
| |---[dll]------ NtQuerySystemInformation1
| |
| |---[dll]------ NtQuerySystemInformation
| |
| |---[dll]------ GetSystemInfo
| |
| |---[dll]------ GetFreeSystemResources
| |
| |---[dll]------ GetSystemDirectory

调用的DLL命令:

.DLL命令 NtQuerySystemInformation1, 整数型, "ntdll.dll", "NtQuerySystemInformation"
.参数 a, 整数型
.参数 b, SYSTEM_TIME_INFORMATION
.参数 c, 整数型
.参数 d, 整数型

.DLL命令 NtQuerySystemInformation, 整数型, "ntdll.dll", "NtQuerySystemInformation"
.参数 a, 整数型
.参数 b, SYSTEM_PERFORMACE_INFORMATION
.参数 c, 整数型
.参数 d, 整数型

.DLL命令 GetSystemInfo, 整数型
.参数 lpSystemInfo, SYSTEM_INFO

.DLL命令 GetFreeSystemResources, 整数型, "RSRC32.DLL", "_MyGetFreeSystemResources32@4"
.参数 fuSysResource, 整数型

.DLL命令 GetSystemDirectory, 整数型, , "GetSystemDirectoryA"
.参数 a, 文本型
.参数 b, 整数型