это лучший вариант. У нас один умник за лечение бабок нарубил, типа ходил с ноутом и пользовался генератором с сайта Вэба. На следующий день опять выскочило. Надёжней грохнуть всё то о чём я выше писал. Антивирусы то ничего не обнаруживают, а зараза где-то сидит.поборол его с помощью ERD Commander'а.
REG DELETE HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
REG DELETE HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
var
i : integer;
Begin
For i := 1 to 9 do
ExecuteRepair(i);
ExecuteRepair(11);
ExecuteRepair(17);
RegKeyIntParamWrite('HKLM', 'SYSTEM\CurrentControlSet\Services\UsbStor', 'Start', 1);
RegKeyStrParamWrite('HKCU', 'Control Panel\International', 'sTimeFormat', 'H:mm:ss');
RegKeyParamDel('HKLM', 'SYSTEM\CurrentControlSet\Services\lanmanserver\parameters', 'DiskSpaceThreshold');
RegKeyCreate('HKLM', 'SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\DelegateFolders\{59031a47-3f72-44a7-89c5-5595fe6b30ee}');
ExecuteWizard('TSW', 2, 3, true);
DeleteDirectory('%SysDisk%\DOS');
DeleteDirectory('%SysDisk%\VISTA');
ExecuteFile('attrib -R -S -H "'+NormalFileName('%WinDir%')+'"', '', 1, 10000, true);
ExecuteFile('attrib -R -S -H "'+NormalFileName('%PF%')+'"', '', 1, 10000, true);
ExecuteFile('attrib -R -S -H "'+NormalFileName('%ProfileDir%')+'"', '', 1, 10000, true);
RebootWindows(true);
end.
Эту часть кода я рассшифрую на нормальный язык. Я думаю, будет интересно людям.Код:var i : integer; [COLOR="green"]// Объявляем переменную целого числового типа[/COLOR] Begin For i := 1 to 9 do [COLOR="Green"]// Присваивание переменной значения [B]1[/B] и цикл равный [B]9[/B] проходам[/COLOR] ExecuteRepair(i); [COLOR="Green"]// После выполнения первого прохода происходит инкремент переменной [B]i[/B] приращения значения на единицу.[/COLOR] ...
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?