.版本 2
.支持库 spec
.程序集 窗口程序集_启动窗口
.程序集变量 Moudle32, MODULEENTRY32
.子程序 __启动窗口_创建完毕
调试输出 (API_LocalSize (Moudle32))
.子程序 ListProcessModules, 逻辑型
.参数 dwPID, 整数型
.参数 模块句柄, 整数型, 参考
.参数 模块名称, 文本型
.局部变量 Hmodule, 整数型
Hmodule = -1
API_CreateToolhelp32Snapshot (16, dwPID)
Moudle32 = 0
.如果真 (Hmodule = -1)
返回 (假)
.如果真结束
Moudle32.dwSize = API_LocalSize (Moudle32)
.如果真 (取反 (API_Module32First (Hmodule, Moudle32)))
API_CloseHandle (Hmodule)
返回 (假)
.如果真结束
.循环判断首 ()
.如果真 (取反 (文本比较 (模块名称, Moudle32.szModule, 假)))
模块句柄 = Moudle32.hModule
.如果真结束
.循环判断尾 (API_Module32Next (Hmodule, Moudle32))
.版本 2
.DLL命令 API_LocalSize, 整数型, "kernel32", "LocalSize", , 返回本地内存块大小
.参数 hMem, MODULEENTRY32
.DLL命令 API_CreateToolhelp32Snapshot, 整数型, "KERNEL32.DLL", "CreateToolhelp32Snapshot"
.参数 dwFlags, 整数型
.参数 th32ProcessID, 整数型
.DLL命令 API_Module32Next, 整数型, "KERNEL32.DLL", "Module32Next"
.参数 hSnapshot, 整数型
.参数 lpme, MODULEENTRY32, 传址
.DLL命令 API_CloseHandle, 整数型, "kernel32", "CloseHandle", , 关闭一个内核对象。其中包括文件、文件映射、进程、线程、安全和同步对象等。涉及文件处理时,这个函数通常与vb的close命令相似。应尽可能的使用close,因为它支持vb的差错控制。注意这个函数使用的文件句柄与vb的文件编号是完全不同的 非零表示成功,零表示失败。会设置GetLastError
.参数 对象句柄, 整数型, , 欲关闭的一个对象的句柄;
.DLL命令 API_Module32First, 整数型, "KERNEL32.DLL", "Module32First"
.参数 hSnapshot, 整数型
.参数 lpme, MODULEENTRY32, 传址
.版本 2
.数据类型 MODULEENTRY32, 公开
.成员 dwSize, 整数型
.成员 th32ModuleID, 整数型
.成员 th32ProcessID, 整数型
.成员 GlblcntUsage, 整数型
.成员 ProccntUsage, 整数型
.成员 modBaseAddr, 字节型, 传址
.成员 modBaseSize, 整数型
.成员 hModule, 整数型
.成员 szModule, 文本型
.成员 szExePath, 文本型
.成员 dwFlags, 整数型