易语言GTA5改在线ID

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 进程ID, 整数型, , , ' 本源码来自三叶资源网(www.sanye.cx)
.程序集变量 发言ID, 文本型
.程序集变量 模块, 长整数型
.程序集变量 战局ID, 文本型
.程序集变量 I, 长整数型
.程序集变量 A, 文本型

.子程序 __启动窗口_创建完毕

内存读写_初始化 (, 2)
.判断开始 (内存读写_初始化 (5) ＝ 假)
    信息框 (“请以管理员权限运行”, 0, , )
    结束 ()
.默认

.判断结束
调试输出 (内存读写_驱动是否安装成功 ())
进程ID ＝ 进程_名取id (“GTA5.exe”)
模块 ＝ 进程_取模块地址Ex (进程ID, “GTA5.exe”)
发言ID ＝ 内存读写_读文本型 (进程ID, 模块 ＋ #发言基址, 2)
I ＝ 内存读写_读长整数型 (进程ID, 模块 ＋ #战局ID)
战局ID ＝ 内存读写_读文本型 (进程ID, I ＋ #战局ID偏移, 2)
发言.内容 ＝ 发言ID
发言1.内容 ＝ 战局ID

.子程序 __启动窗口_将被销毁

内存读写_卸载驱动 ()

.子程序 _按钮1_被单击

.判断开始 (内存读写_写文本型 (进程ID, 模块 ＋ #发言基址, 发言.内容, 2) ＝ 假)
    信息框 (“修改失败”, 0, , )
    返回 ()
.默认

.判断结束
信息框 (“修改成功”, 0, , )

.子程序 _按钮2_被单击

.判断开始 (内存读写_写文本型 (进程ID, I ＋ #战局ID偏移, 发言1.内容, 2) ＝ 假)
    信息框 (“修改失败”, 0, , )
    返回 ()
.默认

.判断结束
信息框 (“修改成功”, 0, , )

@xhxwy