描述:11.jpg

免费才是王道.rar[点击下载](179 K) 下载次数:124 累计下载获得 ＤＢ 43 刀 
源码由 h4c0r-BG 发布，内容如下：
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;
 

看看！

看看！

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/

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/

     

已经失效了！

骗人的

用不了大家不要再下了

好东西要顶起来  黑

源代码怎么用，小弟不懂啊，请加我QQ:357650601

猴岛的SB真多， 到今天175升级为止 我一直在用， 连源代码都给出来 还不知道， 
这只是反和谐补丁。没看到2楼的贴吗？  完全不动哈脑筋 ，

路过看看
本文来自猴岛论坛 ：http://bbs.houdao.com/r3607657_u1071830/

路过看看

没用的~~别下了

郁闷 我的被冻结12天了。。

请问楼主是不是要窗口模式才能开？

    哎 朽木不可雕也· 版主删贴吧， 我要DB毛用， 直接迅雷下载 ，DB又不能当饭吃，

有个B用啊

好像不行喔