Код:
begin
ShowMessage('Внимание! Перед выполнением скрипта AVZ автоматически закроет все сетевые подключения.'+#13#10+'После перезагрузки компьютера подключения к сети будут восстановлены в автоматическом режиме.');
ExecuteFile('net.exe', 'stop tcpip /y', 0, 15000, true);
if not IsWOW64
then
begin
SearchRootkit(true, true);
SetAVZGuardStatus(true);
end;
QuarantineFile('C:\Windows\Temp\TS_CFD4.tmp','');
QuarantineFile('C:\Windows\Temp\TS_9BAC.tmp','');
QuarantineFile('C:\Users\Ігор\AppData\Roaming\Veohh\sour.exe','');
QuarantineFile('C:\Users\Ігор\AppData\Roaming\Biquiz\igywe.exe','');
QuarantineFile('C:\Program Files\Ashampoo\Ashampoo Magical Defrag 3\md3s.scr','');
QuarantineFileF('C:\Users\Ігор\AppData\Roaming\Veohh', '*', true, ' ', 0, 0);
QuarantineFileF('C:\Users\Ігор\AppData\Roaming\Biquiz', '*', true, ' ', 0, 0);
DeleteFile('C:\Users\Ігор\AppData\Roaming\Biquiz\igywe.exe','32');
DeleteFile('C:\Users\Ігор\AppData\Roaming\Veohh\sour.exe','32');
RegKeyParamDel('HKEY_CURRENT_USER','Software\Microsoft\Windows\CurrentVersion\Run','{E545969E-4D39-D29F-CA97-63ADBF1409AF}');
RegKeyParamDel('HKEY_CURRENT_USER','Software\Microsoft\Windows\CurrentVersion\Run','{7BAD07A5-5F32-8625-770F-35BB615512CE}');
RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '1804', 1);
RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '2201', 3);
RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '1004', 3);
RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '1001', 1);
RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '1201', 3);
if MessageDlg('Рекомендуется отключить автозапуск со всех съемных носителей,нажмите "ОК" что бы отключить и "НЕТ" что бы отказаться ?', mtInformation, mbYes+mbNo, 0) = 6 then
RegKeyStrParamWrite('HKLM', 'SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer','NoDriveTypeAutoRun','221');
DeleteFileMask('C:\Users\Ігор\AppData\Roaming\Veohh', '*', true, ' ');
DeleteFileMask('C:\Users\Ігор\AppData\Roaming\Biquiz', '*', true, ' ');
DeleteDirectory('C:\Users\Ігор\AppData\Roaming\Veohh');
DeleteDirectory('C:\Users\Ігор\AppData\Roaming\Biquiz');
BC_ImportAll;
ExecuteSysClean;
ExecuteWizard('SCU', 2, 3, true);
BC_Activate;
RebootWindows(true);
end.