Привет ребята. В этой статье я вам расскажу, как создать прикольный вирус шутку для розыгрыша своих друзей, так же можно скачать готовый по ссылке ниже.
Пишем вирус шутку: 1. Для начала создает новый текстовый документ при помощи блокнота. 2. Открываем документ в блокноте и вставляем туда код: msgbox"Привет дружище, любишь сюрпризы да?",16,"ВИРУС ВИРУС ВИРУС"
msgbox"Ты не против, если я буду жить у тебя в компе?",32+4,"ВИРУС ВИРУС ВИРУС"
msgbox"Я думаю мы с тобой найдем общий язык",64,"ВИРУС ВИРУС ВИРУС"
msgbox"Хочешь сотру твой Windows и отчищу все твои жесткие диски?",32+4,"ВИРУС ВИРУС ВИРУС"
msgbox"Не пытайся выключить или перезагрузить компьютер, будет только хуже.",64,"ВИРУС ВИРУС ВИРУС"
msgbox"Если ты не против, я начну?",32+4,"Запущен процесс отчистки"
msgbox"Удаляю...",64,"ОК "
msgbox"Сейчас с вашего ПК будет стерта вся информация, без возможности восстановления. Что бы продолжить нажмите ОК.",64,"ВИРУС ВИРУС ВИРУС"
msgbox"Я пошутил :).",64,":)"
msgbox"Ну все же я останусь у тебя жить...",64,":)" 3. Теперь все это дело нужно правильно сохранить. Для этого в блокноте нажимаем "Файл" > "Сохранить как". В "Тип файлов" выбираем "Все файлы", в "Имя файлов" пишем название нашего вируса шутки, например "Сюрприз" или "Открой меня" ставим точку и пишем "vbs". В общем название должно выглядеть вот так: "Сюрприз.vbs", жмем "Сохранить". 4. Подкидываем другу.
Когда ваш друг запустит этот файл, он увидит окно с вашей первой командой, когда он попытается его закрыть то появится вторая команда, третья, четвертая и так далее:
То есть окон будет появляться столько сколько вы пропишите в коде, в моем случае их 10. Вы можете добавлять их сколько угодно, чем больше тем сильнее можно пощекотать нервы своему приятелю. ЧИСЛА В КОМАНДАХ ОТВЕЧАЮТ ЗА ВИД ОКОН, видно на скриншотах выше.
Что бы максимально напрячь своего товарища в конец кода так же можно добавить еще один скрипт: Set WMPlayer = CreateObject("WMPlayer.OCX.7")
do
WMPlayer.CdRomCollection.Item(0).Eject()
loop
Этот скрипт будет автоматически открывать и закрывать дисковод. Для отключения заходим в диспетчер задач и находим: "Microsoft Windows Based Script Host", жмем "Снять задачу".
Интересно то, что даже антивирус NOD 32 воспринял его как троян, AVAST угрозу не увидел. Поэтому если у друга стоит антивирус, то прикол может не удастся. На этом все, надеюсь вам было интересно.
Посмотреть наглядно:
Как качать на этом сайте:
Если не видно ссылку для скачивания, отключите анти баннер!