Реклама во всех браузерах (переадресация на игровой сайт)

begin
 ShowMessage('Внимание! Перед выполнением скрипта AVZ автоматически закроет все сетевые подключения.' + #13#10 + 'После перезагрузки компьютера подключения к сети будут восстановлены в автоматическом режиме.');
 ExecuteFile('net.exe', 'stop tcpip /y', 0, 15000, true);
 QuarantineFile('C:\Program Files (x86)\Microsoft Data\InstallAddons.exe','');
 QuarantineFile('C:\Users\12345\AppData\Roaming\newSI_20107\s_inst.exe','');
 QuarantineFile('C:\Users\12345\AppData\Roaming\newSI_1799\s_inst.exe','');
 QuarantineFile('C:\Users\12345\AppData\Roaming\newSI_1\s_inst.exe','');
 DeleteFile('C:\Users\12345\AppData\Roaming\newSI_1\s_inst.exe','32');
 DeleteFile('C:\Users\12345\AppData\Roaming\newSI_1799\s_inst.exe','32');
 DeleteFile('C:\Users\12345\AppData\Roaming\newSI_20107\s_inst.exe','32');
 DeleteFile('C:\WINDOWS\Tasks\newSI_1.job','64');
 DeleteFile('C:\WINDOWS\Tasks\newSI_1799.job','64');
 DeleteFile('C:\WINDOWS\Tasks\newSI_20107.job','64');
 DeleteFile('C:\Program Files (x86)\Microsoft Data\InstallAddons.exe','32');
 DeleteFile('C:\WINDOWS\system32\Tasks\chrome5','64');
 DeleteFile('C:\WINDOWS\system32\Tasks\chrome5_logon','64');
 QuarantineFileF('C:\Users\12345\AppData\Roaming\newSI_20107','*', true,'',0 ,0);
 QuarantineFileF('C:\Users\12345\AppData\Roaming\newSI_1799','*', true,'',0 ,0);
 QuarantineFileF('C:\Users\12345\AppData\Roaming\newSI_1','*', true,'',0 ,0);
 DeleteFileMask('C:\Users\12345\AppData\Roaming\newSI_20107', '*', true);
 DeleteFileMask('C:\Users\12345\AppData\Roaming\newSI_1799', '*', true);
 DeleteFileMask('C:\Users\12345\AppData\Roaming\newSI_1', '*', true);
 DeleteDirectory('C:\Users\12345\AppData\Roaming\newSI_20107');
 DeleteDirectory('C:\Users\12345\AppData\Roaming\newSI_1799');
 DeleteDirectory('C:\Users\12345\AppData\Roaming\newSI_1');
 RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '1201', 3);
 RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '1001', 1);
 RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '1004', 3);
 RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '2201', 3);
 RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '1804', 1);
 ExecuteSysClean;
 ExecuteWizard('SCU',2,3,true);
 RebootWindows(true);
end.

begin
 CreateQurantineArchive(GetAVZDirectory+'quarantine.zip');
end.