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

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

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

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

НЕО1904

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

SerJIo1

Участник
Сообщения
7
Реакции
1
0 руб.
Можно ещё на писать вот это:

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

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