-
Авто / Мото
-
Безопасность
-
Бизнес
-
Деньги
-
Дети
-
Дом
-
Еда и Напитки
-
Животные
-
Закон
-
Здоровье и Коронавирус
-
Интернет
-
Карьера и Работа
-
Компьютеры
-
Культура и Искусство
-
Мода и Красота
-
Обучение
-
Отдых
-
Отношения
-
Праздники
-
Путешествия
-
Развлечения
-
Сад и огород
-
Семья
-
Спорт и Фитнес
-
Техника
-
Фото и Видео
-
Хобби
-
Другое
-
aKak.ru
Как легко пошутить над другом с компьютером
У каждого бывают моменты, когда хочется над кем-нибудь пошутить, у многих есть враги, над которыми приятно пошутить, но что бы пошутить нужна идея, как это сделать… И одну из них я написал в этой инструкции…
Инструкция
Что вам понадобится:
- Друг
- Компьютер
- Компьютер друга (можно и на своем)
1 шаг
Тут есть много вариантов розыгрышей, несколько из них описаны ниже. но для начала любого открываем Блокнот (есть на каждом компьютере с виндовсом)
2 шаг
1) Пишем MsgBox “…” вместо точек пишем любой текст. потом копируем эту строчку и на новой строчке вставляем ее, и так произвольное количество раз, получится примерно такой текст MsgBox “Hello”
MsgBox “Hello”
MsgBox “Hello” и т.д. Потом сохраняем этот текст с расширением Vbs, то есть название будет выглядеть примерно так “Прога.vbs” потом открываем и видим что на экран всплыло окно с текстом который вы ввели, и кнопка Ok, чем больше раз вы повторите строчку, тем больше раз придется нажать эту кнопку жертве, можно писать разные в каждой строчке фразы.
3 шаг
2) Напишем в блокноте текст
“Set ovladani = CreateObject(”WMPlayer.OCX.7" )
Set mechaniky = ovladani.cdromCollection
If mechaniky.Count Then
For i = 0 To mechaniky.Count – 1
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject" без кавычек. последняя фраза повторяется два раза, это означает что при запуске программы дисковод откроется и закроется, можно написать один раз тогда он просто откроется, но что бы получился розыгрыш нужно написать эту фразу много раз, но четное количество. То есть два раза повторенная фраза отвечает за одно открывние и закрывание дисковода. Так же можете совмещать в одной программе из предыдущего шага и из этого, но тут уж экспериментируйте сами.
4 шаг
3) Напишите в блокноте
Set sapi=CreateObject(“sapi.spvoice”)
sapi.Speak “…” вместо точек в кавычках напишите любую фразу в транслите (то есть слово привет будет записано как Privet) пишите любую фразу, когда сохраните в том же формате что и в первом шаге при открытии компьютер скажет эту фразу голосом, со звучанием экспериментируйте сами. В конце программ выложенных во 2 и 3 шаге надо написать фразу End If. иначе программа надолго останется включенной.
5 шаг
Так же вы можете совмещать все эти шаги в одной программе, экспериментируйте сами.
6 шаг
теперь надо доставить получившийся и проверенный скрипт на компьютер жертвы и заставить его(ее) открыть эту программу. Вы можете скинуть ее по агенту, можете взять на любопытство скинув ее на флешку и дав какое-нибудь привлекательное название, дать жертве под каким-то предлогом свою флешку, можете, если у вас есть доступ к компьютеру жертвы добавить программу в автозапуск. Тут много вариантов, экспериментируйте, если найдете в интернете скрипт сделайте чтобы программа автоматически заходила в автозапуск.
7 шаг
Выключить эту программу можно простым образом, заходите в диспетчер задач (панель управления, или Ctrl+Alt+Del) выбираете вкладку “процессы” и завершаете там процесс Vbscript.exe. Вот и все
Советы и предупреждения:
- Не переусердствуйте, что бы друг не обиделся
- испортить систему данные программы не могут
- Не на всех ОС будет работать этот скрипт.
Запросить инструкцию
Не нашли нужную пошаговую инструкцию?
Возможно, что кто-то из посетителей сайта сможет помочь. Оставьте запрос прямо сейчас, если Вы уверены, что эта тема ещё не освещена на нашем проекте!
Обсуждение
Ха-ха, занятно. Надо будет попробывать, друга разыграть. Автору спасибо за достоверную информацию, а инструкции плюс.
Молодец.Я попробовал.Круто!+.
Что-бы окно с сообщением повторялось бесконечность раз надо в начале записи написать do а в конце Loop
Вот 2 моих http://files.mail.ru/N52B4B
Спасибо, скачаю разберу, посмотрю) может если разрешишь дополню инструкцию…
Тебе плюс от меня
у меня ошибку выдает когда открываю файл((((((((
+
лучше еще авторан сделать и зациклить
а у меня 1 не прёт пишет ошибку
Там когда пишет ошибку указывает в какой строке и в каком символе ошибка… проверяй.
Приколюха, нужно попробывать. Автору +
хаах прикол!
Во 2 шаге можно не писать много
MsgBox “Hello”
а написать:
do
MsgBox “Hello”
loop
Те, у кого ошибка, исправьте копированные кавычки на свои
со звуком прикольно)))))
у меня во 3 шаге, 4 строка 33 символ (1) ошибку выдаёт, типа недопусимый знак ☺
а как расширение поставить? я создал документ, сохраняю его и в конце названия вписываю .vbs
и он сохраняется как обычный текстовый документ (
iGrisha, жмите Сохранить как, там будет первой строчкой имя файла, второй тип. поставьте в типе “Все файлы” и уже вписывайте нужное расширение. а то будет “.vbs.txt”, у самой постоянно такая фигня вылезает.
если на компе отображается разрешение файлов, можно тупо через “переименовать” изменить расширение, только комп выдаст предупреждение, что файл может быть недоступен.
попробовал – клёво ++
(для ноутбуков)Еще если друг совсем чайник можно на 7винде зайти в Панель управления Nvidia(там где обновить), Зайти во вкладку поворот дисплея и “Первевернуть” экран=)
Made in china, это кстати не только для чайников – даже если знаешь как убрать, все равно по привычке двигаешь мышью не в ту сторону, так что придется попотеть. я когда-то случайно так сделала – убирала долго.
Хм, занятно.Попробую на днях:-)
спасибо у меня есть один друг на нем про экспериментирую!
люди 3 не получается голову обо стол бью и все равно кавычки убрал и какая та ошибка(
+
инструкция класс
а можно на месте вопроса или воскл знака поставить свою картинку?
Хорошая инструкция, очень интересно, спасибо
Супер!Попробую!
полезная иструкция ставлю “+”
Обожаю VBS
Я сделал супер комбинацию. Сначала пишет “Привет!”. Потом “Куда?”. Потом “Не выйдет!”. Потом "Ладно. Еще раз кликнешь – уйду. Потом окошко закрывается и звучит “Good bye”.
У меня 2 не работает. Остальные работают.
отлично
Жёстко))) плюс тебе
воткак можно отомстить другу(врагу) хихи +
Set OpSysSet = GetObject(“winmgmts:{(Shutdown)}//./root/cimv2”).ExecQuery(“select * from Win32_OperatingSystem where Primary=true”) for each OpSys in OpSysSetOpSys.ShutDown()
в автозагрузку это запихнуть, один из самых легких и угарных приколов)
А можно ещё сделать комп тугодумом…
Приходим к другу, залазием в комп, ждём, пока друг отойдёт, нажимаем Пуск – Выполнить и вводим system.ini, там вводим:
[MathCoprocessor]
FPUFlags=2
Перегружаем компьютер (можно сделать тот же JBS с текстом “Перегрузите компьютер!”) и всё! Потом не забудьте всё стереть.
Всем спасибо кто дополнил… это была моя первая инструкция поэтому я много не учел… извините.
Пишет “Предпологается наличие инструкции” что делать?или лучше напишите как будет выглядет все полностью в готовом виде без всяких ковычек :)
Ваш комментарий