.版本 2 .子程序 读内存, 字节集, , 失败返回空字节集 .参数 窗口标题, 文本型 .参数 起始读取位置, 整数型, , -2147483648 至 2147483647 .参数 读取字节数, 整数型, , 不小于1 .局部变量 Title, 整数型 .局部变量 Buffer, 字节集 .局部变量 ID, 字节集 .局部变量 handle, 整数型 .局部变量 Bool, 整数型, , , ' 本源码来自三叶资源网(www.sanye.cx) .如果真 (起始读取位置 ＜ -2147483648 或 读取字节数 ＜ 0 或 起始读取位置 ＞ 2147483647) 返回 (取空白字节集 (0)) .如果真结束 Title ＝ FindW (0, 窗口标题) .如果真 (Title ＝ 0) 返回 (取空白字节集 (0)) .如果真结束 ID ＝ 取空白字节集 (4) GetID (Title, ID) handle ＝ OpenP (2035711, 假, 取字节集数据 (ID, 3)) Buffer ＝ 取空白字节集 (读取字节数) Bool ＝ ReadM (handle, 起始读取位置, Buffer, 读取字节数, 0) CloseH (handle) .如果真 (Bool ＝ 0) 返回 (取空白字节集 (0)) .如果真结束 返回 (Buffer) .子程序 写内存, 逻辑型, , 失败返回假 .参数 窗口标题, 文本型 .参数 起始写出位置, 整数型, , 4194304 至 2147483647 或 -1 至 -2147483648 .参数 写出内容, 字节集 .局部变量 Title, 整数型 .局部变量 Bool, 整数型 .局部变量 ID, 字节集 .局部变量 handle, 整数型 .如果真 (起始写出位置 ＜ 4194304 且 起始写出位置 ≥ 0 或 起始写出位置 ＞ 2147483647 或 起始写出位置 ＜ -2147483648) 返回 (假) .如果真结束 Title ＝ FindW (0, 窗口标题) .如果真 (Title ＝ 0) 返回 (假) .如果真结束 ID ＝ 取空白字节集 (4) GetID (Title, ID) handle ＝ OpenP (2035711, 假, 取字节集数据 (ID, 3)) Bool ＝ WriteM (handle, 起始写出位置, 写出内容, 取字节集长度 (写出内容), 0) CloseH (handle) .如果真 (Bool ＝ 0) 返回 (假) .如果真结束 返回 (真)