[Помогите!] Unfreeze

[mr.otrivin]

может кто нибудь дать исходник фриза\анфриза?
(delphi)

Заранее спасибо

[Smertig]

А что там писать-то? Прога меняет 1 на 0 (или наоборот) по анфриз адресу. Если мне, конечно, память не изменяет.

[N00bSa1b0t]

Цитата: Сообщение от Smertig А что там писать-то? Прога меняет 1 на 0 (или наоборот) по анфриз адресу. Если мне, конечно, память не изменяет.

Анфизер от TBX1n'а меняет два значения - флаг по анфриз адресу = 1 или 0. Плюс еще меняется асм код в самой функции - чтобы значение, которое мы установили не затерлось новым значением при потере фокуса окна. =)

[sumikot]

Другой вариант - заменить 84C0 на B001. Для текущей версии руофа адрес для замены 00435786.

[rufat2005]

procedure unfreeze;
var
BytesCountOfWrite: DWORD;
unfreeze_flag: Byte;
begin
if OffSets_Unfreeze <> 0 then
begin
unfreeze_flag := 0;
ReadProcessMemory(hProcess, ptr(OffSets_Unfreeze), @unfreeze_flag, 1, BytesCountOfWrite);
if unfreeze_flag <> 1 then
rem_unfreeze_flag := unfreeze_flag;
unfreeze_flag := 1;
WriteProcessMemory(hProcess, ptr(OffSets_Unfreeze), @unfreeze_flag, 1, BytesCountOfWrite); // unfreeze
end
else
SetForegroundWindow(hProcess);
end;