Question

易语言：内存_驱动读写1.写字节集源码

大牛们能不能给小弟写个如题的那个源码？好得话追加悬赏！！！
如果能的话请加上内存_驱动读写1.读小数型 内存_驱动读写1.读整数型源码
纯API 不用到模块哦！
请不要回复直接用模块之类的！~

Answer 1

.子程序 读字节集, 字节集, 公开, 读取字节集数据(返回字节集 失败返回空) 
.参数 进程ID, 整数型, , 进程ID
.参数 内存地址, 整数型, , 内存地址
.参数 长度, 整数型, 可空, 可空。留空将智能读取长度
.局部变量 变量, 字节集, , , 保存读取数据的变量
.局部变量 操作句柄, 整数型
.局部变量 内存块信息, 精易_内存属性
操作句柄 ＝ OpenProcess (#PROCESS_ALL_ACCESS, 0, 进程ID)  ' 取得操作句柄
.如果真 (长度 ＝ 0)
    VirtualQueryEx (操作句柄, 内存地址, 内存块信息, 28)
    长度 ＝ 内存块信息.区域长度 ＋ 内存块信息.区域地址 － 内存地址
.如果真结束
变量 ＝ 取空白字节集 (长度)
ReadProcessMemory_字节集 (操作句柄, 内存地址, 变量, 长度, 0)
CloseHandle (操作句柄)

返回 (变量).子程序 写字节集, 逻辑型, 公开, 写入字节集数据(成功返回真,失败返回假)
.参数 进程ID, 整数型, , 进程ID
.参数 内存地址, 整数型, , 内存地址
.参数 要写入的数据, 字节集, , 写入数据
.局部变量 操作句柄, 整数型
.局部变量 a, 整数型
操作句柄 ＝ OpenProcess (#PROCESS_ALL_ACCESS, 0, 进程ID)
a ＝ WriteProcessMemory_字节集 (操作句柄, 内存地址, 要写入的数据, 取字节集长度 (要写入的数据), 0)
CloseHandle (操作句柄)
.如果 (a ＝ 0)
    返回 (假)
.否则
    返回 (真)

    
.子程序 读小数, 小数型, 公开
.参数 进程ID, 整数型
.参数 内存地址, 整数型
.局部变量 临时整数, 小数型
.局部变量 操作句柄, 整数型
操作句柄 ＝ OpenProcess (#PROCESS_ALL_ACCESS, 0, 进程ID)  ' 取得操作句柄
ReadProcessMemory_小数型 (操作句柄, 内存地址, 临时整数, 4, 0)
CloseHandle (操作句柄)
返回 (临时整数)


.子程序 写小数, 逻辑型, 公开
.参数 进程ID, 整数型, , 进程ID
.参数 内存地址, 整数型, , 内存地址
.参数 要写入的值, 小数型, , 写入数据
.局部变量 局_进程句柄, 整数型
.局部变量 a, 整数型
.局部变量 局_长度, 整数型
局_进程句柄 ＝ OpenProcess (#PROCESS_ALL_ACCESS, 0, 进程ID)
a ＝ WriteProcessMemory_小数型 (局_进程句柄, 内存地址, 要写入的值, 4, 0)
CloseHandle (局_进程句柄)
返回 (a ＝ 1)

Answer 2

附上源码，分你拿走。 可以可以内存_驱动读写1.写字节集 （取进程ID （“crossfire.exe”）， 基址 448, { 0, 0, 160, 192 }）内存
打字不易，如满意，望采纳。

追问

不是这种

是这种

Answer 3

我也不会！！！！！