Создать странный одержимый компьютер с Windows Script For Halloween

Есть много забавных розыгрышей, которые вы можете играть с друзьями за компьютером. Вы, наверное, видели все эти жуткие видео на YouTube. 14 самых популярных розыгрышей на YouTube, которые вы можете играть со своими друзьями. 14 самых популярных розыгрышей на YouTube, которые вы можете играть со своими друзьями. Разве вы не любите разыгрывать других людей? Я уверен, что да, если я знаю, что это не приведет к тому, что другие люди захотят меня убить. Хранение забавных вещей помогает наладить связи ... чтобы люди пересекались друг с другом для хорошего испуга. Не так давно Джастин рассказал о нескольких по-настоящему забавных способах подшутить над своими родителями. 4 прикольных способа подшутить над родителями с помощью семейного компьютера. Все эти идеи забавны, но в этом году, как насчет того, чтобы немного напугать своих друзей своими собственными навыками программирования??

В этой статье я собираюсь показать вам, как вы можете создать свой собственный маленький скрипт Windows, который будет работать практически на любом современном компьютере с Windows. Все, что вам нужно сделать, это открыть Блокнот, набрать этот скрипт, сохранить его как файл .wsf, а затем попросите друзей открыть файл. Сценарий автоматически откроет Блокнот, а затем начнет печатать - в комплекте со звуковыми эффектами пишущей машинки - так же, как сам компьютер одержим печатным призраком.

Настоящая красота этого маленького сценария в том, насколько вы креативны с его запуском. Вставьте его в папку автозагрузки компьютера, чтобы он запускался при запуске компьютера, или замените один из их любимых ярлыков на рабочем столе, чтобы указать ссылку на ваш файл вместо их приложения.!

Создание скриптов для одержимого компьютера

Идея для этого пришла из опыта в колледже, когда я прошел мимо кабинета профессора и увидел, что у него был старый компьютер DOS, который печатал все сам. Он был профессором компьютерных наук и четко написал программу для DOS, которая могла печатать все самостоятельно, со звуковыми эффектами, паузами и всем остальным. Очень достоверно В этой статье вы собираетесь сделать то же самое, только с Windows и использовать VB Script для выполнения этой работы. Я проведу вас через весь процесс.

Первый шаг - загрузите WAV-файл пишущей машинки с любого из ваших любимых бесплатных веб-сайтов с WAV-файлами. SoundBible: бесплатная загрузка MP3 & WAV Sounds SoundBible: бесплатная загрузка MP3 & WAV Sounds .

Желательно загружать тот, который длится от 30 секунд до минуты, в зависимости от того, сколько текста вы хотите, чтобы ваше фантомное приложение печаталось на экране само по себе. Сохраните файл в C: / Windows / Медиа / с остальными звуковыми файлами Windows, так что это будет легко найти позже.

Затем откройте текстовый файл и сохраните его как файл .wsf. В моем случае я назвал это “phantomtype.wsf“. Объявите все необходимые переменные, настройте ссылку на текстовый файл, а затем введите текст, который вы хотите, чтобы ваше приложение-призрак печатало на экране..

  Параметр Явный При ошибке Возобновить Далее Dim NoteShell Dim SoundShell Dim strText Dim intTextLen Dim x Dim intPause Dim strTempText strSoundFile = "C: \ Windows \ Media \ typewriter1.wav" strText = "Здравствуйте. Меня зовут Райан. Я завладел вашим компьютером

и с этим ничего не поделаешь. Конечно, я полагаю, вы

всегда можете закрыть окно, если хотите, но это было бы неинтересно! "

Довольно просто пока верно? Два “Ракушка” Переменные - это, в основном, команды оболочки, которые собираются запустить Блокнот и ваш звуковой файл. Фантомная печать будет исходить из сценария, отправляющего нажатия клавиш в приложение «Блокнот» за кулисами. Выполнить это легко - вы просто используете “CreateObject” настроить два объекта приложения, а затем запустить каждое приложение, ожидая немного между каждым запуском.

Установите NoteShell = CreateObject ("WScript.Shell"). Установите SoundShell = CreateObject ("Wscript.Shell"). NoteShell.Run "Блокнот" WScript.Sleep 1000 SoundShell.Run "C: \ Windows \ Media \ typewriter1.wav", 0, True WScript.Sleep 500

Теперь жертва увидит всплывающий блокнот на экране, и через секунду начнется звук печатания на машинке. В этот момент вы начнете посылать призрачный текст на экран, как будто кто-то сидит и печатает. Вот как эта часть работает.

intTextLen = Len (strText) intPause = 100 Для x = 1 до intTextLen strTempText = Mid (strText, x, 1) NoteShell.SendKeys strTempText WScript.Sleep intPause Если intPause <= 500 Then intPause = intPause + 100 Else intPause = 100 End If Next

Это может выглядеть сложно, но не волнуйтесь, это совсем не так. Первая строка проверяет длину длинной строки текста, которую вы набрали в начале этой программы. Это текст, который вы хотите волшебным образом отображать - по одной букве за раз - на экране. Следующая строка создает начальную паузу (одну десятую секунды) между каждой печатной буквой.

Цикл For, который вы видите ниже, который в основном начинается в позиции 1, извлекает одну букву из вашего текста, отправляет это письмо в Блокнот, а затем немного ждет, прежде чем перейти к следующей букве в вашем тексте. Довольно круто да?

И чтобы сохранить подлинность вещей, маленький “ЕСЛИ” оператор продолжает складывать и вычитать время паузы между набранными буквами, чтобы все выглядело по-настоящему аутентично, как будто кто-то сидит прямо там и печатает.

Теперь закройте скрипт.

WScript.Quit   

Сохраните файл еще раз - убедитесь, что у вас есть “WSF” расширение - и все готово. Дважды щелкните файл и проверьте ваш компьютер с привидениями!

Вот мой сценарий в действии (хотелось бы, чтобы вы слышали звуки печатного текста, это бунт!)

Как и большинство программ, он может немного улучшить, если вы готовы. Звуковой файл должен соответствовать времени, которое требуется для завершения набора текста. Или вы можете зациклить как набор текста, так и звук, но вам нужно будет найти способ, позволяющий человеку закрыть приложение-призрак ввода. Если вы этого не сделаете, “SendKeys” Я просто буду продолжать печатать, не зависимо от того, какое окно они открывают ... что, на самом деле, довольно забавное вирусоподобное поведение, но не то, что я бы порекомендовал вам сделать своим друзьям.

Так что попробуйте этот жуткий маленький сценарий и дайте нам знать, что ваши друзья думают об этом. Вы придумали какие-нибудь другие способы улучшить это? Поделитесь своими мыслями в разделе комментариев ниже.

Изображение предоставлено: Shutterstock