Всем привет сегодня мы поговорил как затролить друга с помощью вирусов в 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
И завершаем этот процесс
Спасибо за внимание
Скрипты:
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
И завершаем этот процесс
Спасибо за внимание