Всплывающие окна и скачивание страниц

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:\Users\Admin\appdata\local\systemdir\nethost.exe','');
 QuarantineFile('C:\Users\Admin\appdata\local\microsoft\start menu\вoйти в интeрнeт.exe','');
 QuarantineFile('C:\Users\Admin\AppData\Local\SystemDir\nethost.exe','');
 QuarantineFile('C:\Users\Admin\AppData\Local\Microsoft\Internet Explorer\Extensions\APIHelper.dll','');
 QuarantineFile('C:\Users\Admin\AppData\Roaming\Browsers\exe.arepo.bat','');
 QuarantineFile('C:\Users\Admin\AppData\Roaming\MyDesktop\qweeeCL.exe','');
 QuarantineFile('C:\Program Files (x86)\VK Downloader\Basement\ExtensionUpdaterService.exe','');
 QuarantineFile('C:\Program Files (x86)\advPlugin\Basement\ExtensionUpdaterService.exe','');
 DeleteFile('C:\Program Files (x86)\advPlugin\Basement\ExtensionUpdaterService.exe','32');
 DeleteFile('C:\Program Files (x86)\VK Downloader\Basement\ExtensionUpdaterService.exe','32');
 DeleteFile('C:\Program Files (x86)\Tencent\QQPCMgr\10.8.16208.227\QMUdisk64.sys','32');
 DeleteFile('C:\Windows\system32\drivers\tsskx64.sys','32');
 DeleteFile('C:\Users\Admin\AppData\Roaming\MyDesktop\qweeeCL.exe','32');
 DeleteFile('C:\Users\Admin\AppData\Roaming\Browsers\exe.arepo.bat','32');
 DeleteFile('C:\Users\Admin\AppData\Local\Microsoft\Internet Explorer\Extensions\APIHelper.dll','32');
 DeleteFile('C:\Windows\system32\Tasks\nethost task','64');
 DeleteFile('C:\Users\Admin\AppData\Local\SystemDir\nethost.exe','32');
 DeleteFile('C:\Users\Admin\appdata\local\microsoft\start menu\вoйти в интeрнeт.exe','32');
 DeleteFile('C:\Users\Admin\appdata\local\systemdir\nethost.exe','32');
 DelBHO('{0CB66BA8-5E1F-4963-93D1-E1D6B78FE9A2}');
 DeleteService('TSSKX64');
 DeleteService('QMUdisk');
 DeleteService('Update Service for VK Downloader');
 DeleteService('Update Service for advPlugin');
 RegKeyParamDel('HKEY_CURRENT_USER','Software\Microsoft\Windows\CurrentVersion\Run','MyDesktop');
BC_ImportAll;
ExecuteSysClean;
BC_Activate;
RebootWindows(false);
end.

begin
CreateQurantineArchive('c:\quarantine.zip');
end.