Старые добрые вирусы в bat и vbs

[НЕО1904]

Всем привет сегодня мы поговорил как затролить друга с помощью вирусов в bat и vbs. Вот несколько скриптов. Сначала создаем текстовый документ и пишем туда вот это( по выбору)
Скрипты:

1. Ошибка

do
MsgBox"Тут мы можем писать что хотим!",20+1,"Ошибка"
loop

2. Мигающая клавиатура.
Заставляет мигать лампочки у клавиатуры (Num Lock, Caps Lock, Scroll Lock)

Скрипт:
Set s = CreateObject("Wscript.Shell")
do
wscript.sleep 80
s.sendkeys"{numlock}"
wscript.sleep 80
s.sendkeys"{capslock}"
wscript.sleep 80
s.sendkeys"{scrolllock}"
wscript.sleep 80
wscript.sleep 80
s.sendkeys"{numlock}"
wscript.sleep 80
s.sendkeys"{capslock}"
wscript.sleep 80
s.sendkeys"{scrolllock}"
wscript.sleep 80
s.sendkeys"{scrolllock}"
wscript.sleep 80
s.sendkeys"{capslock}"
wscript.sleep 80
s.sendkeys"{numlock}"
wscript.sleep 80
wscript.sleep 80
s.sendkeys"{scrolllock}"
wscript.sleep 80
s.sendkeys"{capslock}"
wscript.sleep 80
s.sendkeys"{numlock}"
wscript.sleep 80
s.sendkeys"{numlock}"
wscript.sleep 80
s.sendkeys"{capslock}"
wscript.sleep 80
s.sendkeys"{scrolllock}"
wscript.sleep 80
loop

3. Въезжающий - выезжающий дисковод
Заставляет бесконечно въезжать - выезжать дисковод в компьютере

Скрипт:
Set WMPlayer = CreateObject("WMPlayer.OCX.7")
do
WMPlayer.CdRomCollection.Item(0).Eject()
loop

4. Бесконечно пищащий системный динамик

Действие:
Заставляет бесконечно пищать системный динамик в процессоре компьютера


СКРИПТ:
Set S = CreateObject("Wscript.Shell")
do
execute"S.Run ""%comspec% /c "" & Chr(7), 0,True"
loop

5. Бесконечно жужжащий разъем для дискет

Действие:
Имитирует, что в приводе для дискет находится дискета. Заставляет его жужжать.

СКРИПТ:
Set WSHShell=WScript.CreateObject("WScript.Shell")
Sub Zapadlo(Fuck,Wait)
Set WshShell=WScript.CreateObject("WScript.Shell")
C=WshShell.Run(Fuck,Wait)
End Sub

do
Call Zapadlo("A:\",true)
loop
Потом сохраняем этот текстовый документ и переименовываем из .txt в .vbs
Все готово
Закрыть можно через диспетчер задач
Заходим в процессы в диспетчере задач и ищем процесс wscript
И завершаем этот процесс
Спасибо за внимание

 

[Onion Knight]

Старый добрый бат троллинг.

 

[SerJIo1]

Можно ещё на писать вот это:

@echo off
color 02
:start
echo %random% %random% %random% %random% %random% %random% %random% %random% %random% %random%
goto start

а потом сохранить в формате .bat и почувствовать себя Нео))))

 

[-ДАВИД-]

Настольгия пробила)