Код:
begin
ExecuteFile('net.exe', 'stop tcpip /y', 0, 15000, true);
ClearQuarantineEx(true);
QuarantineFile('C:\Program Files (x86)\Google\chrome.bat', '');
QuarantineFile('C:\iexplore.bat', '');
QuarantineFileF('C:\Users\Евгений\appdata\roaming\windowsupdate\', '*.exe, *.dll, *.sys, *.bat, *.vbs, *.js', true, '', 0, 0);
QuarantineFile('C:\Users\Евгений\appdata\roaming\windowsupdate\msupdate.exe', '');
QuarantineFile('C:\Users\Евгений\appdata\roaming\update\explorer.exe', '');
QuarantineFile('C:\Users\Евгений\appdata\roaming\c731200', '');
QuarantineFile('C:\Users\Евгений\AppData\Roaming\Microsoft\Windows\themes\Qlfyfo.exe', '');
QuarantineFile('C:\Users\Евгений\AppData\Roaming\WindowsUpdate\System32.exe', '');
QuarantineFile('C:\Users\Евгений\AppData\Roaming\Windows Live\hggxrhfopx.exe', '');
QuarantineFile('C:\Users\Евгений\AppData\Roaming\WindowsUpdate\Live.exe', '');
QuarantineFile('C:\Users\Евгений\AppData\Roaming\WindowsUpdate\VGA.exe', '');
QuarantineFile('C:\Users\Евгений\AppData\Roaming\WindowsUpdate\Updater.exe', '');
DeleteFile('C:\Users\Евгений\AppData\Roaming\WindowsUpdate\MSupdate.exe', '32');
DeleteFile('C:\Users\Евгений\AppData\Roaming\WindowsUpdate\VGA.exe', '32');
DeleteFile('C:\Users\Евгений\AppData\Roaming\Windows Live\hggxrhfopx.exe', '32');
DeleteFile('C:\Users\Евгений\AppData\Roaming\WindowsUpdate\System32.exe', '32');
DeleteFile('C:\Users\Евгений\AppData\Roaming\Microsoft\Windows\themes\Qlfyfo.exe', '32');
DeleteFile('C:\Users\Евгений\appdata\roaming\c731200', '32');
DeleteFile('C:\Users\Евгений\appdata\roaming\update\explorer.exe', '32');
DeleteFile('C:\Users\Евгений\appdata\roaming\windowsupdate\live.exe', '32');
DeleteFile('C:\Users\Евгений\appdata\roaming\windowsupdate\updater.exe', '32');
DeleteFile('C:\Program Files (x86)\Google\chrome.bat', '32');
DeleteFile('C:\iexplore.bat', '32');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\Run', 'Windows Update Installer');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\Run', 'Windows Update Manager');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\Run', 'Windows Live Installer');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\Run', 'System Gateway Service');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\Run', 'Qlfyfo');
RegKeyParamDel('HKEY_LOCAL_MACHINE', 'Software\Microsoft\Windows NT\CurrentVersion\Winlogon', 'Taskman');
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);
CreateQurantineArchive(GetAVZDirectory + 'quarantine.zip');
ExecuteSysClean;
ExecuteWizard('SCU', 2, 3, true);
ExecuteWizard('TSW',2,2,true);
RebootWindows(true);
end.