.版本 2
.DLL命令 OpenProcess, 整数型, "kernel32.dll", "OpenProcess"
.参数 访问方法, 整数型
.参数 子系统继承, 逻辑型
.参数 进程标识符, 整数型
.DLL命令 ReadProcessMemory, 逻辑型, , "ReadProcessMemory"
.参数 进程句柄, 整数型
.参数 要读的内存地址, 整数型
.参数 保存数据的缓冲区, 整数型, 传址
.参数 要读取的字节数, 整数型
.参数 实际读取的字节数, 整数型
.DLL命令 WriteProcessMemory, 逻辑型, , "WriteProcessMemory"
.参数 进程句柄, 整数型
.参数 要写的内存地址, 整数型
.参数 写入变量的缓冲区, 整数型, 传址
.参数 要写入的字节数, 整数型
.参数 实际写入的字节数, 整数型
.DLL命令 CloseHandle, 逻辑型, , "CloseHandle"
.参数 要关闭的进程句柄, 整数型

.版本 2
.支持库 eAPI
.支持库 spec
.程序集 窗口程序集_启动窗口
.程序集变量 PID, 整数型
.子程序 _按钮1_被单击
.局部变量 进程信息数组, 进程信息, , "0"
.局部变量 n, 整数型
.局部变量 进程句柄, 整数型
.局部变量 a, 整数型
.局部变量 缓冲区, 整数型
.局部变量 游戏内存地址, 整数型
.局部变量 修改的数值, 整数型
' 取PID
进程信息数组 ＝ 取系统进程列表 ()
.计次循环首 (取数组成员数 (进程信息数组), n)
.如果真 (进程信息数组 [n].进程名称 ＝ “gens.exe”)
PID ＝ 进程信息数组 [n].进程标识符
跳出循环 ()
.如果真结束
.计次循环尾 ()
调试输出 (PID)
' 打开系统进程
进程句柄 ＝ OpenProcess (2035711, 假, PID)
调试输出 (进程句柄)
' 读内存
' 游戏内存地址=
ReadProcessMemory (进程句柄, 游戏内存地址, 缓冲区, 2, 0)
' 写内存
修改的数值 ＝ 到数值 (编辑框1.内容)
WriteProcessMemory (进程句柄, 游戏内存地址, 修改的数值, 2, 0)
' 关闭进程句柄
CloseHandle (进程句柄)