• VLMI - форум по обмену информацией. На форуме можете найти способы заработка, разнообразную информацию по интернет-безопасности, обмен знаниями, курсы/сливы.

    После регистрации будут доступны основные разделы.

    Контент форума создают пользователи, администрация за действия пользователей не несёт ответственности, отказ от ответственности. Так же перед использованием форума необходимо ознакомиться с правилами ресурса. Продолжая использовать ресурс вы соглашаетесь с правилами.
  • Подпишись на наш канал в Telegram для информации о актуальных зеркалах форума: https://t.me/vlmiclub

Скриптовый троллинг

qqtyy776

Участник
Сообщения
44
Реакции
38
0 руб.
Telegram
Скриптовый троллинг


Сначала создаем текстовый документ и пишем туда код( по выбору)
  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
И завершаем этот процесс
 

earxow

Местный
Сообщения
293
Реакции
161
0 руб.
Telegram
Прикольно,постебатся можно
 
Сообщения
56
Реакции
137
0 руб.
Конечно, все это интересно и прикольно. Но зачем? Есть такие штуки, называются генераторами вирусов, где можно найти те же самые скрипты что и описал ты.
Спасибо что поделился, но к сожалению, как мне кажется, актуальности и смысла это не имеет.
 
Сверху Снизу