.版本 2

'══════════════════════════════════════════════════════
'  池验证 —— 确认 0x3C35758 到底存的是「UI控件」还是「实体」
'  只读，不发任何命令。把它放在某个按钮的「被单击」里调用。
'  调用示例：  池验证 ()
'══════════════════════════════════════════════════════
.子程序 池验证
.局部变量 池基址, 长整数型
.局部变量 S, 整数型
.局部变量 控件, 长整数型
.局部变量 实体型, 整数型
.局部变量 功能号, 整数型
.局部变量 名称, 文本型
.局部变量 打印数, 整数型
.局部变量 计实体, 整数型
.局部变量 计控件, 整数型
.局部变量 计空, 整数型

' 池基址 = #全局大列表基址(0x3835758) + 模块基址 0x400000 = 0x3C35758 = 63133528
池基址 ＝ 63133528

写日志 (“── 池验证 ──” ＋ #换行符)
写日志 (“池基址 = ” ＋ 到文本 (池基址) ＋ “  (0x3C35758)” ＋ #换行符)

打印数 ＝ 0
计实体 ＝ 0
计控件 ＝ 0
计空   ＝ 0
S ＝ 0

.判断循环首 (S ＜ 3000)
    控件 ＝ 内存_读整数型 (全局_进程句柄, 池基址 ＋ S × 4)
    .如果真 (控件 ＝ 0 或 控件 ＝ 65535)
        计空 ＝ 计空 ＋ 1
    .否则
        实体型 ＝ 内存_读整数型 (全局_进程句柄, 控件 ＋ 8)     ' 实体类型字：0x31人物 / 0x2E怪物
        功能号 ＝ 内存_读整数型 (全局_进程句柄, 控件 ＋ 进制_十六到十 (“364”))
        .如果真 (实体型 ＝ 49 或 实体型 ＝ 46)
            计实体 ＝ 计实体 ＋ 1
        .如果真结束
        .如果真 (功能号 ≠ 0)
            计控件 ＝ 计控件 ＋ 1
        .如果真结束
        .如果真 (打印数 ＜ 12)
            名称   ＝ 编码_BIG5到简体 (内存_读文本型 (全局_进程句柄, 控件 ＋ 24))   ' +0x18 实体名
            写日志 (“槽” ＋ 到文本 (S) ＋ “ 控件=” ＋ 到文本 (控件) ＋
                “  实体型=” ＋ 到文本 (实体型) ＋
                “  功能号=” ＋ 到文本 (功能号) ＋
                “  实体名=” ＋ 名称 ＋ #换行符)
            打印数 ＝ 打印数 ＋ 1
        .如果真结束
    .如果真结束
    S ＝ S ＋ 1
.判断循环尾 ()

写日志 (“── 统计（前3000槽）──” ＋ #换行符)
写日志 (“空槽 = ” ＋ 到文本 (计空) ＋ “   实体型=49/46的 = ” ＋ 到文本 (计实体) ＋
    “   功能号≠0的 = ” ＋ 到文本 (计控件) ＋ #换行符)
写日志 (“诊断结束。” ＋ #换行符)