遍历进程模块API应用例程

PEB_LDR_DATA结构在自定义数据类型表里有定义
Flink ＝ GetEaxDword (0) ' Flink
Blink ＝ GetEaxDword (4) ' Blink
' 这两个指针中的每个成员都指向一个LDR_MODULE结构
StrMemory ＝ LocalAlloc (64, 512)
i ＝ 0
.判断循环首 (Flink ≠ Blink)
i ＝ i ＋ 1
Index ＝ 超级列表框.插入表项 (, 取十六进制文本 (GetDword (Flink ＋ 8 × 类型)), , , , )
超级列表框.置标题 (Index, 1, 取十六进制文本 (GetDword (Flink ＋ 8 × 类型 ＋ 4)))
超级列表框.置标题 (Index, 2, 取十六进制文本 (GetDword (Flink ＋ 8 × 类型 ＋ 8)))
WideCharToMultiByte (936, 512, GetDword (Flink ＋ 8 × 类型 ＋ 16), -1, StrMemory, GetWord (Flink ＋ 8 × 类型 ＋ 12), 0, 0)
超级列表框.置标题 (Index, 3, 指针到文本 (StrMemory))
Flink ＝ GetDword (Flink) ' 向前遍历
.判断循环尾 ()
标题 ＝ “遍历到:” ＋ 到文本 (i) ＋ “ 个模块 ”