句柄快照 = CreateToolhelp32Snapshot (8, 进程id)
模块信息.dwSize = 548
Module32First (句柄快照, 模块信息)
.判断循环首 (模块信息.modBaseAddr ≠ 0)
.如果真 (到文本 (模块信息.szModule) = 模块名称)
返回 (模块信息.modBaseAddr)
.如果真结束
Module32Next (句柄快照, 模块信息)
.判断循环尾 ()
句柄快照 = CreateToolhelp32Snapshot (8, 进程id)
模块信息.dwSize = 548
Module32First (句柄快照, 模块信息)
.判断循环首 (模块信息.modBaseAddr ≠ 0)
.如果真 (到文本 (模块信息.szModule) = 模块名称)
返回 (模块信息.modBaseAddr)
.如果真结束
Module32Next (句柄快照, 模块信息)
.判断循环尾 ()