易语言内存读写源码

内存读写源码，源码是API函数的应用教程。

.版本 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)
    返回 (假)
.如果真结束
返回 (真)

@易语言入门教程