植物大战僵尸

傻子到了

用了超级模块 打包了 用ce找到基址读写内存
学这个花了好几个星期了今天终于完成了

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
程序名	整数型
偏移1	整数型
偏移2	整数型
偏移3	整数型
阳光	整数型
金币1	整数型
金币2	整数型
金币3	整数型
金币数	整数型
冷却1	整数型
冷却2	整数型
冷却3	整数型
冷却4	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

程序名 ＝ 取进程ID (“plantsvszombies.exe”)
偏移1 ＝ 读内存整数型 (程序名, 十六到十 (“00182494”))
阳光 ＝ 内存.读整数型 (程序名, 偏移1 ＋ 十六到十 (“5560”))
金币1 ＝ 读内存整数型 (程序名, 十六到十 (“0008D634”))
金币2 ＝ 读内存整数型 (程序名, 金币1 ＋ 十六到十 (“82C”))
金币3 ＝ 读内存整数型 (程序名, 金币2 ＋ 十六到十 (“28”))
冷却1 ＝ 内存.读整数型 (程序名, 十六到十 (“0008D634”))
冷却2 ＝ 读内存整数型 (程序名, 冷却1 ＋ 十六到十 (“768”))
冷却3 ＝ 读内存整数型 (程序名, 冷却2 ＋ 十六到十 (“144”))
冷却4 ＝ 读内存整数型 (程序名, 冷却3 ＋ 十六到十 (“70”))
如果真 (进程是否存在 (“plantsvszombies.exe”))
标题 ＝ “可以修改了”
返回 ()

信息框 (“失败”, 0, , )
结束 ()

子程序名	返回值类型	公开	备 注
_按钮1_被单击

程序名 ＝ 取进程ID (“plantsvszombies.exe”)
偏移1 ＝ 读内存整数型 (程序名, 十六到十 (“00182494”))
内存.写整数型 (程序名, 偏移1 ＋ 十六到十 (“5560”), 到整数 (编辑框1.内容))
阳光 ＝ 内存.读整数型 (程序名, 偏移1 ＋ 十六到十 (“5560”))

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

标签1.标题 ＝ 到文本 (内存.读整数型 (程序名, 偏移1 ＋ 十六到十 (“5560”)))
标签2.标题 ＝ 到文本 (内存.读整数型 (程序名, 金币2 ＋ 十六到十 (“28”)))
如果 (选择框1.选中 ＝ 真)
内存.写整数型 (程序名, 冷却3 ＋ 十六到十 (“70”), 1)

子程序名	返回值类型	公开	备 注
_按钮2_被单击

程序名 ＝ 取进程ID (“plantsvszombies.exe”)
金币1 ＝ 读内存整数型 (程序名, 十六到十 (“0008D634”))
金币2 ＝ 读内存整数型 (程序名, 金币1 ＋ 十六到十 (“82C”))
金币3 ＝ 读内存整数型 (程序名, 金币2 ＋ 十六到十 (“28”))
内存.写整数型 (程序名, 金币2 ＋ 十六到十 (“28”), 到整数 (编辑框2.内容))
金币数 ＝ 内存.读整数型 (程序名, 金币2 ＋ 十六到十 (“28”))

子程序名	返回值类型	公开	备 注
_选择框1_被单击

如果 (选择框1.选中 ＝ 真)
内存.写整数型 (程序名, 冷却3 ＋ 十六到十 (“70”), 1)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 程序名, 整数型<br /> .程序集变量 偏移1, 整数型<br /> .程序集变量 偏移2, 整数型<br /> .程序集变量 偏移3, 整数型<br /> .程序集变量 阳光, 整数型<br /> .程序集变量 金币1, 整数型<br /> .程序集变量 金币2, 整数型<br /> .程序集变量 金币3, 整数型<br /> .程序集变量 金币数, 整数型<br /> .程序集变量 冷却1, 整数型<br /> .程序集变量 冷却2, 整数型<br /> .程序集变量 冷却3, 整数型<br /> .程序集变量 冷却4, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 程序名 ＝ 取进程ID (“plantsvszombies.exe”)<br /> 偏移1 ＝ 读内存整数型 (程序名, 十六到十 (“00182494”))<br /> <br /> 阳光 ＝ 内存.读整数型 (程序名, 偏移1 ＋ 十六到十 (“5560”))<br /> <br /> <br /> <br /> 金币1 ＝ 读内存整数型 (程序名, 十六到十 (“0008D634”))<br /> 金币2 ＝ 读内存整数型 (程序名, 金币1 ＋ 十六到十 (“82C”))<br /> 金币3 ＝ 读内存整数型 (程序名, 金币2 ＋ 十六到十 (“28”))<br /> <br /> <br /> <br /> 冷却1 ＝ 内存.读整数型 (程序名, 十六到十 (“0008D634”))<br /> 冷却2 ＝ 读内存整数型 (程序名, 冷却1 ＋ 十六到十 (“768”))<br /> 冷却3 ＝ 读内存整数型 (程序名, 冷却2 ＋ 十六到十 (“144”))<br /> 冷却4 ＝ 读内存整数型 (程序名, 冷却3 ＋ 十六到十 (“70”))<br /> <br /> <br /> <br /> .如果真 (进程是否存在 (“plantsvszombies.exe”))<br /> <br />     标题 ＝ “可以修改了”<br /> <br /> <br />     返回 ()<br /> <br /> .如果真结束<br /> <br /> 信息框 (“失败”, 0, , )<br /> 结束 ()<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 程序名 ＝ 取进程ID (“plantsvszombies.exe”)<br /> 偏移1 ＝ 读内存整数型 (程序名, 十六到十 (“00182494”))<br /> <br /> 内存.写整数型 (程序名, 偏移1 ＋ 十六到十 (“5560”), 到整数 (编辑框1.内容))<br /> 阳光 ＝ 内存.读整数型 (程序名, 偏移1 ＋ 十六到十 (“5560”))<br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> 标签1.标题 ＝ 到文本 (内存.读整数型 (程序名, 偏移1 ＋ 十六到十 (“5560”)))<br /> 标签2.标题 ＝ 到文本 (内存.读整数型 (程序名, 金币2 ＋ 十六到十 (“28”)))<br /> <br /> .如果 (选择框1.选中 ＝ 真)<br />     内存.写整数型 (程序名, 冷却3 ＋ 十六到十 (“70”), 1)<br /> .否则<br /> <br /> .如果结束<br /> <br /> <br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 程序名 ＝ 取进程ID (“plantsvszombies.exe”)<br /> 金币1 ＝ 读内存整数型 (程序名, 十六到十 (“0008D634”))<br /> 金币2 ＝ 读内存整数型 (程序名, 金币1 ＋ 十六到十 (“82C”))<br /> 金币3 ＝ 读内存整数型 (程序名, 金币2 ＋ 十六到十 (“28”))<br /> <br /> <br /> 内存.写整数型 (程序名, 金币2 ＋ 十六到十 (“28”), 到整数 (编辑框2.内容))<br /> 金币数 ＝ 内存.读整数型 (程序名, 金币2 ＋ 十六到十 (“28”))<br /> <br /> <br /> .子程序 _选择框1_被单击<br /> <br /> .如果 (选择框1.选中 ＝ 真)<br />     内存.写整数型 (程序名, 冷却3 ＋ 十六到十 (“70”), 1)<br /> .否则<br /> <br /> .如果结束

补充内容 (2016-12-12 22:02):
没有用基址可能不能用

yilisha75176590

看下，学习学习！！谢谢分享

q103135

http://125.confly.eu.org/forum.php?mod=viewthread&tid=13969180&mobile=2   楼主可以拿去参考，有新的源码或点子，求不吝互相帮助

mnn5gp

856666666666666666

mnn5gp

666666666666666666

121505938xiaozh

很喜欢 拿走了 谢谢

xsf123

感谢楼主分享！我拿去学习学习

18846816194

6666666666666666666666666

傻子到了

半醉半醒花前坐 发表于 2016-12-13 18:57
想当年，我也曾写过，那是刚刚接触易语言的时候。

嘿嘿，我现在就是刚学，学这一个也花了好多精力，完成了很开心

半醉半醒花前坐

想当年，我也曾写过，那是刚刚接触易语言的时候。

超级の赛亚人

支持。。。。。