基本信息
源码名称：写代码去掉延时,实现游戏加速
源码大小：0.18M
文件格式：.rar
开发语言：Pascal
更新时间：2021-12-06
友情提示：（无需注册或充值，赞助后即可获取资源下载链接）
嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300
本次赞助数额为： 2 元×
微信扫码支付：2 元
×
请留下您的邮箱，我们将在2小时内将文件发到您的邮箱
源码介绍
//获取进程ID
GetWindowThreadprocessID(Gameh,GamePid);
//获取进程句柄
gamehProcess:=OpenProcess(PROCESS_VM_READ or PROCESS_VM_WRITE,false,GamePid);
//读出坐位号
Readprocessmemory(gamehProcess, Pointer($47A318),@ChessData,200, readByte);
//显示 棋盘数据
self.Memo1.Text:='';
for y:=1 to 8 do
begin
s:='';
for x:=1 to 8 do
s:=s intTostr(ChessData[x][y]) ',';
///////////
self.Memo1.Lines.Add(s);
end;
//获取游戏窗口句柄
Gameh:=findwindow(nil,'对对碰角色版');//获取进程ID
GetWindowThreadprocessID(Gameh,GamePid);
//获取进程句柄
gamehProcess:=OpenProcess(PROCESS_VM_READ or PROCESS_VM_WRITE,false,GamePid);
//读出坐位号
Readprocessmemory(gamehProcess, Pointer($47A318),@ChessData,200, readByte);
//显示 棋盘数据
self.Memo1.Text:='';
for y:=1 to 8 do
begin
s:='';
for x:=1 to 8 do
s:=s intTostr(ChessData[x][y]) ',';
///////////
self.Memo1.Lines.Add(s);
end;