OD IDA 找到延迟代码，编码实现加速

1.准备工具 

OD

OllyDbg吾爱专版:http://download.csdn.net/detail/zang141588761/9602504

     IDA Pro v6.6英文版（稳定）：http://download.csdn.net/detail/zang141588761/9602508

2.找到加速地址

Const SleepBase=$0041d6bd //加速 90,90,6A,01,90 //原速 EB,02,33,C9,51 NewSpeed:array[1..5] of byte=($90,$90,$6a,$1,$90); OldSpeed:array[1..5] of byte=($EB,$02,$33,$C9,$51); var readByte:DWORD; //终极加速 WriteProcessMemory(hprocess,Pointer(SleepBase),@NewSpeed,5,readByte);

3.编码

//常量定义 Const SleepBase=$0041d6bd; //加速 90,90,6A,01,90 //原速 EB,02,33,C9,51 var NewSpeed:array[1..5] of byte=($90,$90,$6a,$1,$90); OldSpeed:array[1..5] of byte=($EB,$02,$33,$C9,$51); Function addSpeed():integer; //终极加速 var  Gameh:HWND;  GamePid:DWORD;  Gamehprocess: THandle;  WriteByte:DWORD;    //实际写入字节数 begin   //获取游戏窗口句柄   Gameh:=findwindow(nil,'对对碰角色版');   //获取进程ID   GetWindowThreadprocessID(Gameh,GamePid);   //获取进程句柄    gamehProcess:=OpenProcess(windows.PROCESS_ALL_ACCESS,false,GamePid);    //根据坐位号码 读出相应棋盘数据   Writeprocessmemory(gamehProcess,Pointer(SleepBase)  ,@NewSpeed[1],5,  WriteByte);   result:=Writebyte; end;