175全透视补丁。_CS作弊器交流讨论

ZxID：1415806

举报只看该作者 20楼发表于: 2010-03-30 0

var
WindowName: Integer;
ProcessId: Integer;
ThreadId: Integer;
buf: PChar;
HandleWindow: Integer;
Write: Cardinal;

{....}

const
WindowTitle = 'Counter-Strike';
Address = $1000B512;
PokeValue = $EB;
NumberOfBytes = 1;

{....}

procedure TForm1.Button1Click(Sender: TObject);
begin
WindowName := FindWindow(nil, WindowTitle);

if WindowName = 0 then
begin
MessageDlg('Program not running.', mtWarning, [mbOK], 0);
end;

ThreadId := GetWindowThreadProcessId(WindowName, @ProcessId);
HandleWindow := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessId);

GetMem(buf, 1);
buf^ := Chr(PokeValue);
WriteProcessMemory(HandleWindow, ptr(Address), buf, NumberOfBytes, Write);
FreeMem(buf);
CloseHandle(HandleWindow);
end;
本文来自猴岛论坛：http://bbs.houdao.com/r3607657_u1130350/

回复引用

鲜花[0]　

鸡蛋[0]

metalpx

ZxID：1415806

等级: 中士

举报只看该作者 21楼发表于: 2010-03-30 0

procedure TForm1.Button1Click(Sender: TObject);
begin
WindowName := FindWindow(nil, WindowTitle);

if WindowName = 0 then
begin
MessageDlg('Program not running.', mtWarning, [mbOK], 0);
end;

ThreadId := GetWindowThreadProcessId(WindowName, @ProcessId);
HandleWindow := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessId);

GetMem(buf, 1);
buf^ := Chr(PokeValue);
WriteProcessMemory(HandleWindow, ptr(Address), buf, NumberOfBytes, Write);
FreeMem(buf);
CloseHandle(HandleWindow);
end;
本文来自猴岛论坛：http://bbs.houdao.com/r3607657_u1130350/