|

楼主 |
发表于 2021-10-2 23:30:13
|
显示全部楼层
第九课源码:
.版本 2
.支持库 spec
.支持库 eAPI
.程序集 窗口程序集_启动窗口
.程序集变量 dm, 虫虫教学
.程序集变量 i, 整数型
.程序集变量 血量地址, 整数型
.子程序 __启动窗口_创建完毕
.局部变量 ret, 整数型
dm.创建 ()
.如果 (dm.Ver () = “”)
dm.注册 ()
dm.创建 ()
.否则
.如果结束
调试输出 (dm.Ver ())
ret = dm.Reg (“bestcclm5208dad61379ce31b99817505c16bce11a2”, “OQ0x”)
.如果 (ret = 1)
调试输出 (“大漠VIP注册成功!”)
.否则
调试输出 (“大漠VIP注册失败!”)
.如果结束
dm.SetMemoryHwndAsProcessId (1)
.子程序 _组合框1_将弹出列表
.局部变量 进程, 进程信息, , "0"
.局部变量 a, 整数型
进程 = 取系统进程列表 ()
a = 取数组成员数 (进程)
.计次循环首 (a, i)
组合框1.加入项目 (进程 .进程名称, 进程 .进程标识符)
.计次循环尾 ()
.子程序 __启动窗口_将被销毁
dm.释放 ()
.子程序 _按钮1_被单击
.局部变量 进程名, 文本型
.局部变量 进程ID, 整数型
.局部变量 查找到的地址, 文本型
.局部变量 分割的文本, 文本型, , "0"
.局部变量 偏移1的地址, 整数型
.局部变量 偏移2的地址, 整数型
.局部变量 偏移1的数值, 整数型
.局部变量 偏移2的数值, 整数型
.局部变量 定位的地址, 整数型
进程名 = 组合框1.取项目文本 (组合框1.现行选中项)
进程ID = 组合框1.取项目数值 (组合框1.现行选中项)
查找到的地址 = dm.FindIntEx (进程ID, “00000000-FFFFFFFF”, 179973292, 179973292, 0, 4, 1, 1)
分割的文本 = 分割文本 (查找到的地址, “|”, )
.计次循环首 (取数组成员数 (分割的文本), i)
定位的地址 = 十六到十 (分割的文本 )
偏移1的地址 = 定位的地址 - 44
偏移2的地址 = 定位的地址 - 32
偏移1的数值 = dm.ReadInt (进程ID, 十到十六 (偏移1的地址, ), 0)
偏移2的数值 = dm.ReadInt (进程ID, 十到十六 (偏移2的地址, ), 0)
.如果真 (偏移1的数值 = 200 且 偏移2的数值 = 1000)
血量地址 = 定位的地址 - 72
.如果真结束
.计次循环尾 ()
.子程序 _时钟1_周期事件
.局部变量 进程ID, 整数型
.局部变量 人物血量, 整数型
进程ID = 组合框1.取项目数值 (组合框1.现行选中项)
人物血量 = dm.ReadInt (进程ID, 十到十六 (血量地址, ), 0)
标签1.标题 = 到文本 (“人物当前血量:” + “” + 到文本 (人物血量))
|
|