易语言通用型读内存源码

易语言通用型读内存源码

@ccinio

.版本 2
.支持库 spec

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

.子程序 __启动窗口_创建完毕
.局部变量 内存地址, 整数型
.局部变量 读取数据, 字节集
.局部变量 字节集, 字节集

内存地址 ＝ HeapAlloc (GetProcessHeap (), 8, 256)

写到内存 (到字节集 (“__启动窗口_创建完毕”), 内存地址, )
写到内存 (到字节集 (&子程序1), 内存地址 ＋ 100, )
读取数据 ＝ 指针到字节集 (内存地址, 取字节集长度 (到字节集 (“__启动窗口_创建完毕”)) ＋ 10)


输出调试文本 (读内存 (内存地址, #整数型))
调试输出 (指针到整数 (内存地址))

调试输出 (读内存 (内存地址, #字节型))
调试输出 (取字节集数据 (读取数据, #字节型, ))

调试输出 (读内存 (内存地址, #短整数型))
调试输出 (取字节集数据 (读取数据, #短整数型, ))

调试输出 (读内存 (内存地址, #小数型))
调试输出 (指针到小数 (内存地址))

调试输出 (读内存 (内存地址, #双精度小数型))
调试输出 (取字节集数据 (读取数据, #双精度小数型, ))

调试输出 (读内存 (内存地址, #双精度小数型))
调试输出 (取字节集数据 (读取数据, #双精度小数型, ))

调试输出 (读内存 (内存地址, #长整数型))
调试输出 (取字节集数据 (读取数据, #长整数型, ))

调试输出 (读内存 (内存地址, #逻辑型))
调试输出 (取字节集数据 (读取数据, #逻辑型, ))

call (读内存 (内存地址, #子程序指针型, 100))

调试输出 (读内存 (内存地址, #日期时间型))
调试输出 (取字节集数据 (读取数据, #日期时间型, ))

调试输出 (读内存 (内存地址, #文本型))
调试输出 (取字节集数据 (读取数据, #文本型, ))

调试输出 (读取数据)
调试输出 (读内存 (内存地址, #字节集型, 29))  ' #字节集型时    31=读取长度


.子程序 子程序1

输出调试文本 (“子程序1子程序1子程序1子程序1子程序1”)

.子程序 call, 整数型
.参数 子程序, 子程序指针

置入代码 ({ 255, 85, 8, 201, 194, 4, 0 })
返回 (0)

.子程序 读内存, 通用型, 公开, ★字节集型时(参数3(偏移)会变成读取长度)
.参数 内存地址, 整数型
.参数 返回类型, 整数型, 可空, #字节型 #整数型 #短整数型 #小数型 #双精度小数型 #长整数型 #逻辑型 #子程序指针型 #日期时间型 #文本型 #字节集型
.参数 偏移, 整数型, 可空,   

置入代码 ({ 139, 69, 8, 3, 69, 20, 139, 93, 12, 131, 251, 0, 117, 3, 106, 3, 91, 131, 251, 11, 117, 25 })
取真实地址 (&指针读字节集)
置入代码 ({ 255, 117, 20, 255, 117, 8, 255, 208, 185, 5, 0, 0, 128, 235, 25, 131, 251, 10, 117, 22 })
取真实地址 (&指针读文本型)
置入代码 ({ 255, 117, 8, 255, 208, 185, 4, 0, 0, 128, 235, 118, 131, 251, 3, 117, 7, 185, 1, 3, 0, 128, 235, 101, 131, 251, 1, 117, 7, 185, 1, 1, 0, 128, 235, 89, 131, 251, 2, 117, 7, 185, 1, 2, 0, 128, 235, 77, 131, 251, 5, 117, 7, 185, 1, 5, 0, 128, 235, 65, 131, 251, 6, 117, 7, 185, 1, 6, 0, 128, 235, 53, 131, 251, 4, 117, 7, 185, 1, 4, 0, 128, 235, 41, 131, 251, 7, 117, 7, 185, 2, 0, 0, 128, 235, 29, 131, 251, 9, 117, 7, 185, 6, 0, 0, 128, 235, 17, 131, 251, 8, 117, 7, 185, 3, 0, 0, 128, 235, 5, 185, 0, 0, 0, 128, 139, 80, 4, 139, 0, 201, 194, 20, 0 })
返回 (0)

.子程序 指针读文本型, 文本型, 公开
.参数 内存指针, 整数型
.局部变量 局长度, 整数型
.局部变量 局返回值, 文本型

局长度 ＝ lstrlenA (内存指针)
局返回值 ＝ 取空白文本 (局长度 ＋ 1)
置入代码 ({ 139, 117, 8, 139, 77, 252, 139, 125, 248, 243, 164 })
返回 (局返回值)

.子程序 指针读字节集, 字节集, 公开
.参数 内存地址, 整数型
.参数 读取长度, 整数型
.局部变量 局返回值, 字节集

局返回值 ＝ 取空白字节集 (读取长度)
置入代码 ({ 139, 117, 8, 139, 77, 12, 139, 125, 252, 131, 199, 8, 243, 164 })
返回 (局返回值)

.子程序 取真实地址, 整数型, 公开
.参数 子程序指针, 子程序指针

置入代码 ({ 83, 81, 139, 69, 8, 64, 139, 8, 128, 249, 232, 117, 248, 139, 72, 1, 141, 92, 8, 5, 139, 11, 193, 225, 8, 129, 249, 0, 85, 139, 236, 141, 64, 4, 117, 225, 139, 195, 89, 91, 201, 194, 4, 0 })
返回 (0)