我爱秘籍论坛

 找回密码
 加入论坛

QQ登录

只需一步,快速开始

扫一扫,访问微社区

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

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

  [复制链接]
发表于 2011-11-5 09:04:15 | 显示全部楼层
//-------------------代码-------------------------

var
Form1: TForm1;
hw: HWND;
pid: dword;
PHND: THandle;
Num: cardinal;
base2: DWORD;
YGS: integer;
const
base = $006A9EC0; //找也的四个基址中的第一个

implementation

{$R *.dfm}

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

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

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

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

procedure TForm1.CB_sdClick(Sender: TObject);
begin
if CB_sd.Checked = True then
begin
Edit_txt.Enabled := False;
Button_yg.Enabled := False;
end else
begin
Edit_txt.Enabled := True;
Button_yg.Enabled := True;
end;
end;

end.
发表于 2011-11-27 12:04:55 | 显示全部楼层
发表于 2012-1-7 23:16:27 | 显示全部楼层
楼主的教程教得很好  值得学习一下
发表于 2012-1-8 00:13:59 | 显示全部楼层
很详细的教程 严重支持
发表于 2012-1-10 16:56:35 | 显示全部楼层
围观楼主 失身
发表于 2012-1-16 10:02:53 | 显示全部楼层
正学习delphi,谢了
发表于 2012-1-16 10:24:12 | 显示全部楼层
3Q...
发表于 2012-1-29 12:03:59 | 显示全部楼层
路过路过
回复 支持 反对

使用道具 举报

发表于 2012-2-11 03:51:02 | 显示全部楼层
我想要视频教程,有木有啊?
回复 支持 反对

使用道具 举报

发表于 2012-9-24 20:14:02 | 显示全部楼层
贪心终归没什么错 啊
回复 支持 反对

使用道具 举报

发表于 2012-9-27 09:35:47 | 显示全部楼层
看帖回复是美德,顺便赚取积分
回复 支持 反对

使用道具 举报

发表于 2012-9-27 09:36:11 | 显示全部楼层
回复 支持 反对

使用道具 举报

发表于 2012-11-25 11:22:34 | 显示全部楼层
上面是delphi写的
回复 支持 反对

使用道具 举报

发表于 2012-12-30 12:51:09 | 显示全部楼层
英文代码看不懂 英语学了不多..
回复 支持 反对

使用道具 举报

发表于 2013-1-1 10:57:01 | 显示全部楼层
314107005 发表于 2010-12-17 22:41
谁能教教我易语言?我不懂!丝毫不懂!皮毛也不懂!

去网上找教程
回复 支持 反对

使用道具 举报

发表于 2013-1-13 15:20:54 | 显示全部楼层
十分感谢
回复 支持 反对

使用道具 举报

发表于 2013-4-4 23:54:22 | 显示全部楼层
代码是VB语言吗
回复 支持 反对

使用道具 举报

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

使用道具 举报

发表于 2016-9-25 08:57:51 | 显示全部楼层
收藏下来学习
回复 支持 反对

使用道具 举报

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

使用道具 举报

您需要登录后才可以回帖 登录 | 加入论坛

本版积分规则

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

GMT+8, 2019-6-17 01:52 , Processed in 0.136929 second(s), 29 queries , Gzip On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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