.版本 2 .程序集 ProcessMemory .子程序 PM_读整数, 整数型, 公开 .参数 进程ID, 整数型 .参数 内存地址, 整数型 .局部变量 进程句柄, 整数型 .局部变量 返回值, 整数型 进程句柄 ＝ 打开进程 (2035711, 假, 进程ID) 读进程内存 (进程句柄, 内存地址, 取变量指针 (返回值), 4, 0) 关闭句柄 (进程句柄) 返回 (返回值) .子程序 PM_写整数, 逻辑型, 公开 .参数 进程ID, 整数型 .参数 内存地址, 整数型 .参数 欲写入值, 整数型 .局部变量 进程句柄, 整数型 .局部变量 返回值, 逻辑型 进程句柄 ＝ 打开进程 (2035711, 假, 进程ID) 返回值 ＝ 写进程内存 (进程句柄, 内存地址, 取变量指针 (欲写入值), 4, 0) 关闭句柄 (进程句柄) 返回 (返回值) .子程序 PM_读字节集, 字节集, 公开 .参数 进程ID, 整数型 .参数 内存地址, 整数型 .参数 欲读长度, 整数型 .局部变量 进程句柄, 整数型 .局部变量 返回值, 字节集 进程句柄 ＝ 打开进程 (2035711, 假, 进程ID) 返回值 ＝ 取空白字节集 (欲读长度) 读进程内存 (进程句柄, 内存地址, 取字节集指针 (返回值), 欲读长度, 0) 关闭句柄 (进程句柄) 返回 (返回值) .子程序 PM_写字节集, 逻辑型, 公开 .参数 进程ID, 整数型 .参数 内存地址, 整数型 .参数 欲写入值, 字节集 .局部变量 进程句柄, 整数型 .局部变量 返回值, 逻辑型 进程句柄 ＝ 打开进程 (2035711, 假, 进程ID) 返回值 ＝ 写进程内存 (进程句柄, 内存地址, 取字节集指针 (欲写入值), 取字节集长度 (欲写入值), 0) 关闭句柄 (进程句柄) 返回 (返回值) .子程序 PM_读小数, 小数型, 公开 .参数 进程ID, 整数型 .参数 内存地址, 整数型 .局部变量 进程句柄, 整数型 .局部变量 返回值, 小数型 进程句柄 ＝ 打开进程 (2035711, 假, 进程ID) 读进程内存 (进程句柄, 内存地址, 取变量指针 (返回值), 4, 0) 关闭句柄 (进程句柄) 返回 (返回值) .子程序 PM_写小数, 逻辑型, 公开 .参数 进程ID, 整数型 .参数 内存地址, 整数型 .参数 欲写入值, 小数型 .局部变量 进程句柄, 整数型 .局部变量 返回值, 逻辑型 进程句柄 ＝ 打开进程 (2035711, 假, 进程ID) 返回值 ＝ 写进程内存 (进程句柄, 内存地址, 取变量指针 (欲写入值), 4, 0) 关闭句柄 (进程句柄) 返回 (返回值)