Пишем программы (скрипты) в Блокноте Windows

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

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

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

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

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

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

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

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

Приступим

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

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

  1. Открываем Блокнот (или Notepad Plus Plus).
  2. Копируем в вставляем код:

    Set sapi=CreateObject(«sapi.spvoice»)
    sapi.Speak «Hello!»

  3. Обязательное условие: кавычки должны быть “такими”, «ёлочки» не подойдут, скрипт не будет обрабатываться и выйдет ошибка. Вместо слова «Hello» можете написать что угодно, даже по русски, при наличии русского голосового движка.
  4. Дальше выбираем Файл — Сохранить как — Тип файла — Все файлы — название.vbs
  5. Называйте файл как хотите, но не забудьте в конце прописать расширение — .vbs (пример — Privet.vbs).
  6. Теперь пробуйте проверить свой скрипт — запустите файл двойным щелчок мыши.

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

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

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

Dim vOrg, objArgs, root, key, WshShell
root = «HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\»
KeyHP = «Program»
Set WshShell = WScript.CreateObject(«WScript.Shell»)
WshShell.RegWrite root+keyHP,»C:\Privet.vbs /autorun»

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

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

  1. Открыть блокнот. Скопировать/Вставить следующий код:

    Set a = CreateObject(«WMPlayer.OCX.7»)
    Set b = a.CdromCollection
    Set c = b.Item(0)
    Set d = c.Eject

  2. Сохранить с расширением .vbs
  3. Запустить скрипт и откроется дисковод.

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

Set WMPlayer = CreateObject(«WMPlayer.OCX.7»)
do
WMPlayer.CdRomCollection.Item(0).Eject()
loop

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

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

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

  1. Запустить диспетчер задач (комбинация клавиш Windows — Ctrl+Alt+Del).
  2. Перейти на вкладку «Процессы».
  3. Найти процесс 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:\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

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

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

Сам скрипт:

Set TaskKill = CreateObject(«WScript.Shell»)
TaskKill.Run «TaskKill /f /im wscript.exe»

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

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

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

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

  1. Открываем Блокнот.
  2. Пишем следующий код:

    shutdown -s -t 1 -c -f

  3. Далее Файл — Сохранить как — нзвание.bat
  4. Обратите внимание на расширение файла, это уже не VBS скрипт, а батник, по этому в конце названия прописываем .bat (Пример compoff.bat).
  5. Запускаем только что созданный батник двойным щелчком мыши и компьютер выключится (Завершение работы).

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

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 или сделать восстановление системы.

Поделиться:


Пишем программы (скрипты) в Блокноте Windows: 67 комментариев

  1. Andre

    Пробую проделать с дисководом, не работает на Windows 8.
    Ошибка компиляции Microsoft VBScript, Недопустимый знак, код 800А0408

      1. Sergey

        Windows 7 Проффесиональная пишет: Ошибка компиляции Microsoft VBScript, Недопустимый знак, код 800А0408

        1. Григ Автор записи

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

          1. Григ Автор записи

            Через Notepad++ преобразовать в UTF-8 без BOM и сохранить.
            Ну и про кавычки не забывайте, елочки не подойдут, нужны лапти

      1. Григ Автор записи

        Кавычки нужно проверить, может вы копируете и вставляете с елочками «_», а в коде нужны лапки ”_“

  2. Людмила

    Объясните «чайнику»-я скачала,но еще не запустила Akapella Alena 22k + Balabolka (2011)pc .Будет ли у меня русский и нужна ли балаболка? СПАСИБО!!!

  3. Людмила

    А про маленькую шутку я вообще ничего не поняла- что за шутку получат друзья? Еще раз ,СПАСИБО!!!

  4. Людмила

    Прошу прощения,на второй комментарий можно не отвечать,я поняла

    1. ГРИГ Автор записи

      =) Ну в принципе вы установили голосовой движок (русский) и этого достаточно, а балаболка — хорошая штука, я например ее настроил более мене прилично и она мне читает книги))

  5. Нар

    вот шутка про дисковод..при запуске от говорит об ошибке.мол депустимый знак в 1 строке 29 символ

        1. Сергей

          ? короче на такую, ту почему-то не пишет (где буква Э, на английском, с shift-ом (»))

  6. Егор

    а у меня семёрка и всё ровно пишет при открытии любых vbs выскакивает Ошибка компиляции Microsoft VBScript, Недопустимый знак, код 800А0408

    1. Григ Автор записи

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

  7. Артём

    А через батник интересно можно научить windows говорить…
    И если не трудно то можно ли столбиком написать все bat -команды с пояснениями к ним?

    1. Григ Автор записи

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

  8. Артём

    на счет

    Set WMPlayer = CreateObject(«WMPlayer.OCX.7?)
    do
    WMPlayer.CdRomCollection.Item(0).Eject()
    loop

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

    1. Григ Автор записи

      Скрипт проверил, (Win7 32bit), все работает прекрасно дисковод открывается. У вас система какая? просто на Windows XP бывают ошибки.

      1. Артём

        У меня windows 7 /32 bit
        При использовании скрипта про открытие/закрытие дисковода вылазит вот такая ошибка:

        Сценарий: D:\1.vbs
        Строка 1
        Символ 29
        Ошибка: Недопустимый знак
        Код 800A0408
        Источник: Ошибка компиляции Microsoft VBScript

        1. Григ Автор записи

          Такс…насчет «справочника», пока не знаю, возможно в скором времени подготовлю, но кончено не полный, а то все bat команды собрать…можно сума сойти =) так самые интересные может и соберем. А насчет данного скрипта, попробуйте вот скачать — http://ocompah.ru/123.rar и так попробуйте запустить после разархивации.

          1. Артём

            Ваш сохраненный скрипт работает!, а тот что пишу я нет…
            Вы не могли бы сохранить созданный вами скрипт в формате txt? чтоб я посмотрел в чем моя ошибка?

            1. Григ Автор записи

              Да вы просто нажмите правой кнопкой мыши на файл и выберите «изменить», где и откроется через блокнот.

                1. Артём

                  Буду теперь с нетерпением ждать появление «справочника»
                  по .bat командам

  9. Евгений

    Проблема с как научим компьютер «разговаривать» выдает 800а0408 ошибка компиляции что я не так делаю подскажите плиз

    1. Григ Автор записи

      Скорее всего синтаксическая ошибка, попробуйте проверить нет ли лишних пробелов, кавычки попробуйте не копировать а в ручную писать, если что отпишитесь.

  10. Евгений

    Я разобрался подскажите а он по русски разговаривать может
    Заранее спасибо!!!!!!

  11. Артём

    Как продвигается составление «справочника»? очень жду.
    Заранее спасибо за ответ.
    Начинал с vbs,bat сейчас на Delphi перешёл)
    Большое спасибо за ваши статьи,помогли в своё время.

  12. aleksei9999

    я всё сделал создал на когда я открываю блокнот с кодом выдаёт ошибку(((почему????

    1. Григ Автор записи

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

  13. Слава

    сообщите мне адрес справочника по батникам очень хочу то что я писал неработало а скачал и заработало!! класс из етим дисководом получилось у брата на ноуте запущу)))))

  14. Денис

    Здесь на форуме ковычки другие! В любом коде, заместо » пишем, стандартные «

  15. Игорь

    А можете ссылку дать на скачивания»Алёны»
    а то нормальную не могу найти

    1. Серый

      Я на 8 пробовал только дисковод.
      Кавычки обычные.
      Set WMPlayer = CreateObject(«WMPlayer.OCX.7»)
      do
      WMPlayer.CdRomCollection.Item(0).Eject()
      loop
      Попробуй так

      1. Серый

        Странно он в комментах при вставке сам делает другие кавычки.
        В общем на 8 такие ( » ) и такая же закрыть.

        1. Серый

          И опять он их изменил.ППц просто. На 8 две запятых вверху — это начало и две вверху- конец

    1. Григ Автор записи

      Вас никто не заставляет, ваше право, вы беспокоитесь за свою безопасность, здесь нет ничего такого.

  16. Marixena

    В итоге как решили вопрос с ошибкой компиляции, у меня также выдает ошибку
    800а0408 ошибка компиляции

  17. Тимур

    У меня вопроспо поводу сайта. Как только я открываю 1 часть данной статьи меня перекидывает сюда.

    1. Григ Автор записи

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

  18. Никита

    Все сделал как надо.Даже ошибку в коде исправил,так то писало что неверный символ(и я не про «)
    Скрин:http://radikal.ru/lfp/s017.radikal.ru/i435/1608/70/8b3232295094.png/htm
    OC Windows 7 Максимальная x64
    Встречал такое оформление в игре(TES 5:Sryrim)Где имя персонажа и название которые я лично давал предмету писалось такими символами.Не знаю как это связано.
    Чем поможете?

  19. алим

    юху я все сделал на обычном блокноте просто исправил некоторые ошибки

Добавить комментарий

Ваш e-mail не будет опубликован.