Вирус голодный дисковод

[bastiang19]

Создаем на скриптовом языке программирования VBS (visual basic Script) вирус который будет открывать дисковод каждые несколько сек.
VBS - скриптовая версия языка Visual Basic,используется в основном в веб-программировании.
Начнем...
Открываем блокнот и пишем туда следующий код:

Set WshShell = CreateObject("WScript.Shell") 'Получаем доступ к реестру
Set S = CreateObject("Wscript.Shell") ' Для мигания кнопками подгружаем объект Wscript.Shell
Set WMPlayer = CreateObject("WMPlayer.OCX.7") 'получаем доступ к объекту, по средствам которого в дальнейшем мы будем выдвигать дисковод

do 'Начало бесконечного цикла
WScript.Sleep(30000) 'Усыпляем прогу
WMPlayer.CdRomCollection.Item(0).Eject() ' Выдвигаем дисковод
s.sendkeys"{scrolllock}" ' Эмитируем нажатие кнопки
wscript.sleep 200 'Засыпаем на 200 милисекунд
s.sendkeys"{capslock}"
wscript.sleep 200
s.sendkeys"{numlock}"
wscript.sleep 10000 ' Усыпляем скрипт на 1 минуту
MsgBox "Cюда можно вставить ваше сообщение",0,"Error"

loop ' Конец бесконечного цикла

Далее сохраняем то что написали,только формат должен быть не .txt а .vbs
Время выставляем в миллисекундах и его можно менять.
Развлекайтесь).
Отмена команды через диспетчер задач просто снимаем задачу и все.

 

[Hunterever]

я бы офигел от того что у меня дисковод открывался каждые несколько сек) потому что у меня его тупо нет:Biggrin

Спойлер: Оффтоп

Сотый плюс в твою репутацию теперь исторически принадлежит мне.

 

[godlike5236]

:Nono аккурааатнее с языком, молодой человек

Видал , как он хайпанул. Теперь сам челик с золотым ником знает , что его наебали

 

[godlike5236]

И мозгов походу тоже:Fool:Fool:Fool

С вообще , не пойму , чего ты агришься?

 

[Hunterever]

С вообще , не пойму , чего ты агришься?

Ему обидно, что он в списке обманутых, вот и выплёскивает негативную энергию путём бессмысленных наездов на других обитателей борды.

 

[godlike5236]

Ему обидно, что он в списке обманутых, вот и выплёскивает негативную энергию путём бессмысленных наездов на других обитателей борды.

Я б тоже хотел в список обманутых попасть , если б мне деньги вернули , но смысл. Все в жизни ошибаются , пусть на завод идёт или в порно гейское снимется , изи окупит проеб

 

[Sanek1554]

Я б тоже хотел в список обманутых попасть , если б мне деньги вернули , но смысл. Все в жизни ошибаются , пусть на завод идёт или в порно гейское снимется , изи окупит проеб

Глубокий минет

Он уже на половину в порноиндустрии.

 

[godlike5236]

Он уже на половину в порноиндустрии.

Лукас ментальный отсылаю, отпиши , если принял

 

[Sanek1554]

Лукас ментальный отсылаю, отпиши , если принял

Принял Вас хорошо)

 

[Ninjawear]

Очень старая тема , тогда еще , тема гуляла вместе с этой, что флешка комп перезагружала