我爱秘籍论坛

 找回密码
 加入论坛

QQ登录

只需一步,快速开始

扫一扫,访问微社区

CE:最优秀的游戏修改工具入门:修改器制作傻瓜教程说说:你最想要找的修改器以前游戏玩我们,现在我们玩游戏
进阶:游戏修改视频教程导航必备:超2400款游戏秘籍下载:超5000款游戏修改器必读:论坛金币获得方法
查看: 244073|回复: 60

[Delphi] 植物大战僵尸阳光修改-----Delphi版

  [复制链接]
发表于 2010-8-26 23:24:47 | 显示全部楼层 |阅读模式
原帖地址在这里:http://bbs.52miji.com/thread-1210-1-2.html


根据帖子内容走了一遍,基本没什么问题,只有一点说明的是不要用CE5.61汉化版,因为里面少了一个功能。

因VC我虽学过但也忘了,所以用D重写了一次代码,实现了基本的修改阳光和锁定功能,我想以后会逐步加入其它功能的。


1.GIF



  1. //-------------------代码-------------------------

  2. var
  3. Form1: TForm1;
  4. hw: HWND;
  5. pid: dword;
  6. PHND: THandle;
  7. Num: cardinal;
  8. base2: DWORD;
  9. YGS: integer;
  10. const
  11. base = $006A9EC0; //找也的四个基址中的第一个

  12. implementation

  13. {$R *.dfm}

  14. procedure TForm1.FormCreate(Sender: TObject);
  15. begin
  16. hw := FindWindow(nil, '植物大战僵尸中文版');
  17. if hw = 0 then
  18. begin
  19. ShowMessage('游戏未启动!');
  20. Application.Terminate;
  21. end;
  22. GetWindowThreadProcessId(hw, @pid);
  23. PHND := OpenProcess(PROCESS_ALL_ACCESS, False, PID);
  24. end;

  25. procedure TForm1.Timer1Timer(Sender: TObject);
  26. begin
  27. ReadProcessMemory(PHND, Pointer(base), @base2, 4, Num);
  28. ReadProcessMemory(PHND, Pointer(base2 + $768), @base2, 4, Num);
  29. ReadProcessMemory(PHND, Pointer(base2 + $5560), @YGS, 4, Num);
  30. Label2.Caption := inttostr(YGS);

  31. if CB_sd.Checked = True then
  32. if YGS <> StrToInt(Edit_txt.Text) then Button_yg.Click;
  33. end;

  34. procedure TForm1.Button_ygClick(Sender: TObject);
  35. var
  36. Test_txt: integer;
  37. begin
  38. Test_txt := StrToInt(Edit_txt.Text); //写入内容
  39. WriteProcessMemory(PHND, Pointer(base2 + $5560), @Test_txt, 4, Num);
  40. end;

  41. procedure TForm1.CB_sdClick(Sender: TObject);
  42. begin
  43. if CB_sd.Checked = True then
  44. begin
  45. Edit_txt.Enabled := False;
  46. Button_yg.Enabled := False;
  47. end else
  48. begin
  49. Edit_txt.Enabled := True;
  50. Button_yg.Enabled := True;
  51. end;
  52. end;

  53. end.

复制代码




程序源码及EXE程序下载:
植物大战僵尸修改器.rar (177.92 KB, 下载次数: 250)

评分

参与人数 2金币 +11 收起 理由
wujia + 1 有源码就支持:)
w110112117 + 10 多谢分享

查看全部评分

发表于 2018-1-18 16:26:42 | 显示全部楼层

下载,收藏,哇咔咔,植物大战僵尸,mm最爱啊
回复 支持 反对

使用道具 举报

发表于 2016-7-25 15:21:37 | 显示全部楼层
源码是看不懂的啦
回复 支持 反对

使用道具 举报

发表于 2017-4-9 19:41:31 | 显示全部楼层
謝謝板大的分享
回复 支持 反对

使用道具 举报

发表于 2010-8-26 23:40:00 | 显示全部楼层
下载,收藏,哇咔咔,植物大战僵尸,mm最爱啊
发表于 2010-8-27 00:18:39 | 显示全部楼层
发表于 2010-8-27 01:17:47 | 显示全部楼层
呜啊!代码看不懂啊!不过顶顶我支持你
发表于 2010-8-27 08:30:51 | 显示全部楼层
一般就用DP写点标准DLL做注入用
发表于 2010-8-27 10:27:43 | 显示全部楼层
会用易语言写吗?教我!QQ:527195348
 楼主| 发表于 2010-8-27 14:52:18 | 显示全部楼层
会用易语言写吗?教我!QQ:527195348
527195348qq 发表于 2010-8-27 10:27



兄弟,我也学过易语言,是最初学的,做为中国人自已的语言是不用别人教的,完全可以自学,因为都是中文,一看就明白。放弃它那是因为以前卡巴斯基把它编译出的程序列为病毒,因为它不算真正的语言,它只是把C++包装起来变成中文的,所以卡巴以为它是一种嵌入木马病毒,但现在没事了。
发表于 2010-8-27 18:02:05 | 显示全部楼层
奇怪,为什么自己写的程序几乎都会报错或者报毒呢?
发表于 2010-8-27 18:33:19 | 显示全部楼层
..ReadProcessMemory 和VB的好像。。
头像被屏蔽
发表于 2010-8-27 19:15:27 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
头像被屏蔽
发表于 2010-8-27 19:16:41 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
发表于 2010-8-28 11:42:15 | 显示全部楼层
回复 11# kaixin9611


    额...看来我常识不够。
发表于 2010-11-7 08:55:38 | 显示全部楼层
下載來試試看   多謝大大分享
发表于 2010-11-14 11:10:42 | 显示全部楼层
好用,谢谢
发表于 2010-11-14 11:19:12 | 显示全部楼层
谢谢分享
发表于 2010-11-29 00:59:35 | 显示全部楼层
代码是看不懂的!还是支持下
发表于 2010-12-2 21:07:37 | 显示全部楼层
谢谢分享
发表于 2010-12-3 14:40:31 | 显示全部楼层
易语言!也是不懂 学不会!
发表于 2010-12-9 21:45:14 | 显示全部楼层
已经有无限的阳光版本了,就不用锁定了吧。
头像被屏蔽
发表于 2010-12-17 22:41:44 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
您需要登录后才可以回帖 登录 | 加入论坛

本版积分规则

QQ|Archiver|手机版|小黑屋|我爱秘籍论坛  

GMT+8, 2019-3-23 11:16 , Processed in 0.152383 second(s), 39 queries , Gzip On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表