植物大战僵尸读内存没问题，写内存反而写不进去

.版本 2

.支持库 eAPI

.支持库 spec



.程序集 窗口程序集_启动窗口

.程序集变量 列表数组, 进程信息, , "0"

.程序集变量 a, 整数型

.程序集变量 PID, 整数型

.程序集变量 进程句柄, 整数型

.程序集变量 缓冲区, 整数型



.子程序 _按钮1_被单击

.局部变量 n, 整数型



列表数组 ＝ 取系统进程列表 ()

a ＝ 取数组成员数 (列表数组)

.计次循环首 (a, n)

    .如果真 (列表数组 [n].进程名称 ＝ “PlantsVsZombies.exe”)

        PID ＝ 列表数组 [n].进程标识符

        跳出循环 ()

    .如果真结束



.计次循环尾 ()

进程句柄 ＝ OpenProcess (2035711, 假, PID)

' 调试输出 (进程句柄)

' 调试输出 (PID)

ReadProcessMemory (进程句柄, 6987456, 缓冲区, 4, 0)

' 调试输出 (缓冲区)

ReadProcessMemory (进程句柄, 缓冲区 ＋ 1896, 缓冲区, 4, 0)

' 调试输出 (缓冲区)

ReadProcessMemory (进程句柄, 缓冲区 ＋ 21856, 缓冲区, 4, 0)

调试输出 (缓冲区)

信息框 (“阳光” ＋ 到文本 (缓冲区), 0, , )

WriteProcessMemory (进程句柄, 7011208, 333, 4, 0)