SE过单次运行时间限制无需打补丁

hSnapShot ＝ CreateToolhelp32Snapshot (8, peid)
' buffer.dwSize ＝ 548
buffer.size ＝ 548
End ＝ Module32First (hSnapShot, buffer)
.判断循环首 (End ≠ 0)
' 加入成员 (模块名, 到文本 (buffer.szModule))
' 加入成员 (模块路径, 到文本 (buffer.szExePath))
' 加入成员 (模块ID, buffer.th32ModuleID)
' 加入成员 (模块句柄, buffer.hModule)
' 加入成员 (全局引用数, buffer.GlblcntUsage)
' 加入成员 (引用数, buffer.ProccntUsage)
' 加入成员 (模块基址, buffer.modBaseAddr)
' 加入成员 (模块大小, buffer.modBaseSize)
' 调试输出 (到文本 (buffer.模块文件名))
.如果真 (到文本 (buffer.模块文件名) ＝ dll)
hom ＝ buffer.模块句柄
跳出循环 ()
.如果真结束
End ＝ Module32Next (hSnapShot, buffer)
.判断循环尾 ()
CloseHandle (hSnapShot)