begin
ExecuteFile('net.exe', 'stop tcpip /y', 0, 15000, true);
ClearQuarantineEx(true);
QuarantineFile('C:\Users\Гавно\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Opera.lnk', '');
QuarantineFileF('C:\Users\Гавно\AppData\Roaming\extensions\extension_opera', '*.exe, *.dll, *.sys, *.bat, *.vbs, .js', true, '', 0, 0);
DeleteFileMask('C:\Users\Гавно\AppData\Roaming\extensions\extension_opera', '*', true);
DeleteDirectory('C:\Users\Гавно\AppData\Roaming\extensions\extension_opera');
ExecuteSysClean;
CreateQurantineArchive(GetAVZDirectory+'quarantine.zip');
RebootWindows(false);
end.
C:\Users\Public\Documents\ShopperPro\
C:\Users\Гавно\AppData\Roaming\extensions
C:\Users\�����
C:\Users\3E0C~1
C:\Users\Гавно\AppData\Roaming\extensions
C:\Users\�����
куда, точней кому посылать скрин с ошибкой вы знаете (чтобы ошибку исправили)После скрипта №8 в AVZ вылазит ошибка (ниже скрин).
сколько эти папки весят? Если не очень много, то заархивируйте в zip архив с паролем virus, потом загрузите на и ссылку мне в личку. После этого можете их удалить.C:\Users\Гавно\AppData\Roaming\extensions
C:\Users\�����
Я думал что это ошибка из-за какого то вируса у меня. А не в программе.куда, точней кому посылать скрин с ошибкой вы знаете ...
Да.Карантин удалось загрузить через ту форму?
Готово.... заархивируйте в zip архив с паролем virus, потом загрузите на и ссылку мне в личку ...
нет, это бага AVZ. У себя (и не только у себя) на чистой машине несколько раз тоже самое наблюдал.Я думал что это ошибка из-за какого то вируса у меня. А не в программе.
Если имели ввиду это:Архив для пополнения базы в итоге загрузили?
Да.проблема решена?
var
LogPath : string;
ScriptPath : string;
begin
LogPath := GetAVZDirectory + 'log\avz_log.txt';
if FileExists(LogPath) Then DeleteFile(LogPath);
ScriptPath := GetAVZDirectory +'ScanVuln.txt';
if DownloadFile('http://dataforce.ru/~kad/ScanVuln.txt', ScriptPath, 1) then ExecuteScript(ScriptPath) else begin
if DownloadFile('http://dataforce.ru/~kad/ScanVuln.txt', ScriptPath, 0) then ExecuteScript(ScriptPath) else begin
ShowMessage('Невозможно загрузить скрипт AVZ для обнаружения наиболее часто используемых уязвимостей!');
exit;
end;
end;
if FileExists(LogPath) Then ExecuteFile('notepad.exe', LogPath, 1, 0, false)
end.
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?