5 подписчиков

5 интересных трюков в блокноте на ПК!

24 октября 202024 окт 2020

3 мин

Оглавление

1.Матричный эффект
2. Преобразование текста в речь с помощью блокнота.
3. Игра

Одной из первых вещей, которую человек изучает во время обучения использованию компьютера, является приложение под названием блокнот. Почти все знают, что такое блокнот, и, несмотря на то, что он простое и функциональное приложение, какой силой он на самом деле обладает. Можно буквально уничтожить чей-то компьютер с помощью блокнота, а также решить большие проблемы с помощью блокнота. Хорошо, блокнот не делает все, что я сказал сам по себе, но все же. Это платформа, на которой можно написать исходный код, который затем можно скомпилировать и прочее. Таким образом, изучение нескольких небольших приемов с блокнотом не повредит нашим шансам похвастаться или, возможно, получить другое представление о том, что блокнот действительно может сделать.

Итак, вот 5 классных трюков блокнота, которые вы должны попробовать:

1.Матричный эффект

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

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

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

2. Преобразование текста в речь с помощью блокнота.

Просто скопируйте и вставьте код внизу в блокнот и сохраните как файл .vbs . Когда вы играете в нее, вы получите диалоговое окно с вопросом, что вы хотите сказать компьютеру. Повеселись!

Dim message, sapi
message=InputBox("What do you want me to say?", "Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message

3. Игра

Интересная находка из Сети - игра на VBS. Необходимо угадать число от 0 до 100. Скрипт автоматически при запуске задает (разгадывает) число, которое вам необходимо угадать и ввести в специальном окошке, при неправильном ответе даются подсказки, например меньше или больше.

Set y = CreateObject("Scripting.FileSystemObject")
Set y = Nothing
Do
a = 0
u = 0
Randomize
Number = Int((RND*99)+1)
MsgBox "Я загадал число от 1 до 100, попробуй отгадать",64,"Угадайка"
Do
a = a + 1
c = InputBox("Угадай число" & vbCrLf & vbCrLf & "Попытка: " & a & vbCrLf & vbCrLf & "Чтобы посмотреть результаты введите число !" & vbCrLf & vbCrLf & "Для выхода оставьте поле пустым" & vbCrLf & vbCrLf,"Угадайка")
If c = "!" Then CreateObject("WScript.Shell").Run "notepad C:\Windows\Result.dll",3,True : Exit Do
If c <> "" Then
If IsNumeric(c) = True Then
If CInt(c) < Number Then MsgBox "Нет,это не " & c & ". Я загадал число больше",64,"Угадайка"
If CInt(c) > Number Then MsgBox "Нет,это не " & c & ". Я загадал число меньше",64,"Угадайка"
If CInt(c) = Number Then
Set y = CreateObject("Scripting.FileSystemObject")
MsgBox ("Количество попыток: " & a)
If MsgBox ("Правильно, это было число " & c & ". Начать заного?",36,"Угадайка") = 6 Then Exit Do Else WScript.Quit
End If
Else
MsgBox "Это не число!",16,"Угадайка"
a = a - 1
End If
Else
a = a - 1
l = MsgBox ("Ты ничего не ввел. Выйти из программы?",36,"Угадайка")
If l = 6 Then WScript.Quit
End If
Loop
loop

4. Научим компьютер здороваться

Копируем в вставляем код:

Set sapi=CreateObject("sapi.spvoice")
sapi.Speak "Hello!"

Обязательное условие: кавычки должны быть “такими”, «ёлочки» не подойдут, скрипт не будет обрабатываться и выйдет ошибка. Вместо слова "Hello" можете написать что угодно, даже по русски, при наличии русского голосового движка.

Дальше выбираем Файл - Сохранить как - Тип файла - Все файлы - название.vbs

Называйте файл как хотите, но не забудьте в конце прописать расширение - .vbs (пример - Privet.vbs).

Теперь пробуйте проверить свой скрипт - запустите файл двойным щелчок мыши.