как сделать vbs скрипт
Как сделать vbs скрипт
1.Не опасно
2.Вывод сообщения в бесконечном цикле Do. Loop
3.VBS
4.
1.Не опасно
2.Компьютер произведет англ. буквы/слова
3.VBS
4.
1.Не опасно
2.Открытие и закрытие дисковода в бесконечном цикле Do. Loop
3.VBS
4.
Set WMPlayer = CreateObject(«WMPlayer.OCX.7»)
Do
WMPlayer.CdRomCollection.Item(0).Eject()
Loop
1.Не опасно
2.Вывод случайных числ в CMD «окрашенных» в зеленый (матрица)
3.Bat
4.
@echo off
pause
color 0a
mode 1
:A
echo %random%10%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%
goto A
1.Не опасно
2.Цикличное включение/выключение индикаторов Num Lock, CapsLock, ScrollLock
3.VBS
4.
Set st = CreateObject(«Wscript.Shell»)
Do
WScript.sleep 80
st.sendkeys»
WScript.sleep 80
st.sendkeys»
WScript.sleep 80
st.sendkeys»
WScript.sleep 80
Loop
1.Не опасно
2.Вывод одного сообщения на экран
3.VBS
4.
1.Не опасно
2.Сообщения. Открытие калькулятора. Вывод сообщений
3.VBS
4.
Do
a = MsgBox («Отформатировать, Ok?», 35, «System»)
Loop Until a = 6
Do
MsgBox «:D»,0,»Тренируй пальчики»
Loop
Урок 1 по VBScript: Синтаксис vbs сценариев
В этом начальном уроке, мы изучим синтаксис vbscript языка. Синтаксис языка vbscript является таким же как и в языке Visual Basic и фактически, является подмножеством данного языка программирования. Основной упор в использовании vbscript – это возможность написания сценариев (расширение vbs) с открытым кодом для платформы Windows. Пользователю не нужно прибегать к установке дополнительного программного обеспечения, так как все сценарии выполняются под управлением сервера сценариев Windows Script Host.
И так, давайте рассмотрим базовый синтаксис vbscipt и его возможности.
Можно прописать несколько операторов в одну строчку, для этого используется знак двоеточия (:). Сам язык нечувствителен к регистру символов.
Хорошо, давайте рассмотрим синтаксис языка vbscript на таком примере:
Видим, что тут, мы вначале прописали комментарии, далее объявили три переменные. Как видим, язык vbscript не требует назначения типа данных (более детально, работу с типами данных я рассмотрел в статье – «Урок 3 по VBScript: Типы данных»). В конце, для вывода данных мы использовали функцию MsgBox, в данном случае она прописана в упрощенном варианте. Давайте рассмотрим ее полный синтаксис:
MsgBox(prompt[, buttons] [, title ][, helpfile, context ] ) – видим, что тут, функции передаются пять параметров, последние два мы рассматривать не будет, так как они не являются актуальными и практически не применяются.
Работу с данной функцией я более детально рассмотрел в статье «Создание диалоговых окон».
Язык vbscript предоставляют также функции для работы со строками и датой, а также, ряд математических функций.
Sub MyProcedure(Param1, Param2)
Строки кода
End Sub
Если процедура не имеет параметров, то в скобках после имени ничего указывать не нужно:
Sub MyProcedure()
…
End Sub
Function MyFunction(Param1, Param2) … End Function
Для того чтобы возвратить из функции какое-либо значение, нужно внутри неё присвоить это значение переменной, название которой совпадает с именем функции:
Function MyFunction(Param1, Param2)
Dim Sum
Sum = Paraml+Param2
MyFunction = Sum
End Function
Если возвращаемое функцией значение не нужно присваивать никакой переменной, то функция вызывается так же, как и процедура — пишется имя этой функции и через пробел указывается список ее аргументов: MyFunction 3,5
Если же необходимо записать значение в какую-либо переменную, то аргументы функции заключаются в круглые скобки.
Вот простой пример синтаксиса vbscript для использования собственных процедур и функций:
Помимо процедур и функций, можно создавать собственные массивы (Урок 9 по VBScript: Массивы) и классы (Урок 8 по VBScript: Объекты и классы)
Ну что же, вдобавок, хотелось бы упомянуть две очень полезные функции:
Смотрим на третий пример:
Спасибо за внимание. Автор блога Владимир Баталий
Сценарии для администрирования (Часть 2)
В основном VBS-сценарии применяются для обработки данных, управления системой, работы с учетными записями пользователей и компьютеров, взаимодействия с офисными приложениями, работы с базами данными и прочих сложных задач.
В зависимости от языка сценария, содержания и шифрования встречаются такие типы скриптов:
В этой статье я буду рассматривать сценарии типа vbs.
По умолчанию все скрипты выполняются через WScript, то есть никаких настроек не требуется, но чтобы выполнить скрипт в окне консоли, необходимо запустить его через CScript, либо установить CScript как интерпретатор, используемый по умолчанию. Для этого в командной строке нужно выполнить следующее:
После чего все сценарии будут выполняться в режиме консоли. Возврат в оконный режим осуществляется следующей командой:
В Visual Basic работают следующие правила:
Рекомендуемая структура сценария:
По умолчанию переменные в сценариях объявляются автоматически при первом использовании в теле скрипта, если это не запрещено директивойOption Explicit. Если же в начале сценария объявить директиву Option Explicit, то все переменные нужно определять заранее с помощью следующих конструкций:
Константы объявляются в начале сценария с помощью конструкции:
Тип переменной присваивается автоматически после внесения в нее первого значения. В Visual Basic существуют следующие типы данных:
Данные можно проверять на соответствие типам, а так же переводить из одного типа в другой, если значения позволяют это сделать. Для операций над типами данных используются следующие команды:
Как было сказано выше, Visual Basic не накладывает строгих ограничений на имена переменных, но в то же время существуют рекомендации для названий переменных, чтобы в тексте сценария легко определять тип данных. Для этого перед именем переменной рекомендуется ставить условные символы, которые определяют тип переменной:
В VBS-сценариях возможно использование массивов переменных, которые позволяют хранить списки, таблицы и даже более сложные конструкции. Одномерные массивы (списки) могут быть динамическими, то есть они позволяют изменять свою размерность в ходе работы сценария. Все массивы объявляются командой Dim:
Пример использования массивов
Прежде, чем пользоваться динамическим массивом, ему нужно указать текущую размерность с помощью команды ReDim, после чего массив можно переформировать в любом месте сценария, при этом либо очистить весь массив, либо сохранить старые значения ячеек командой Preserve:
Чтобы узнать размерность массива, обычно пользуются функцией UBound, которая будет рассмотрена ниже вместе с остальными функциями работы с данными.
Ни один полноценный сценарий не обходится без ветвлений, ветвления помогают выбрать верный путь при выполнении или невыполнении какого-то заложенного условия. Иными словами, ветвления реализуют логику сценария. В VBS-сценариях реализованы несколько механизмов ветвлений. Рассмотрим их по порядку.
Конструкция для одного действия, выполняемого по условию:
Конструкция для нескольких действий, выполняемых по условию:
Конструкция «развилка на несколько путей» (вариант сIf):
Конструкция «развилка на несколько путей» (вариант сSelect):
Для организации повторяющихся действий или перебора элементов массива обычно используются циклы. В VBS-сценариях организованы несколько видов циклов: обычный цикл, цикл с неизвестным количеством итераций, цикл по условию.
Если в процессе работы цикла потребуется прекратить перебор значений, то это можно сделать с помощью команды Exit For.
Цикл с неизвестным количеством итераций обычно применяется для перебора всех значений в коллекции объекта, когда не известна его размерность. Эта структура переберет все значения ( ) массива, переданного как парамер цикла ().
Циклы с условиями применяются для обработки данных, при выполнении какого-то условия. Такие циклы бывают двух видов: с проверкой в начале цикла и с проверкой в конце.
Цикл, пока выполняется условие, с проверкой в начале
Цикл, пока не выполнится условие, с проверкой в начале
Как уже было сказано выше, условия можно ставить в конец цикла. В этом случае тело цикла будет выполнено как минимум один раз. Так же как и в обычных циклах, цикл с условием можно прервать командой Exit Do:
Функции обработки дат:
Функции обработки строк:
И, естественно, помимо упомянутых функций, сценарии поддерживают все простейшие математические и логические операции:
Очередность выполнения операций определяется как и во всех языках программирования: сначала выполняются операции в скобках, потом вычисляются функции, потом операции умножения и деления, следом идут сложение и вычитание, и завершают вычисление логические операции.
Кстати, процедуры и функции должны располагаются в конце сценария.
Во время работы подпрограммы значения переменных основной части скрипта не изменяются, даже если в подпрограмме есть одноименные переменные. Чтобы подпрограмма имела возможность менять значения переменных основного сценария, необходимо в аргументах подпрограммы задать свойство переменных как ByRef. По умолчанию все переменные определяются со свойством ByVal.
По умолчанию все ошибки обрабатываются сценарием в автоматическом режиме, и, при возникновении ошибки, работа сценария останавливается. Для отключения автоматической обработки ошибок нужно использовать специальную директиву On Error Resume Next, которая отключает автоматическую обработку ошибок и продолжает работы сценария даже при их наличии. Для ручной обработки ошибок необходимо обратится к встроенному объектуErr, который хранит в себе статус ошибок. Объект Err имеет следующие свойства и методы:
Пример ручной обработки ошибки:
Итак, чтобы работать с объектом, его нужно сначала создать, используя классы из нужной библиотеки:
Удалить объект можно, присвоив ему значение Nothing:
Аналогичная ситуация со свойствами, но свойства можно как назначать, так и считывать в переменные и другие свойства, правда, следует учитывать тип данных переменных и свойств, иначе сценарий выдаст ошибку несовместимости типов данных.
Пример. Создание объекта файловой системы, обращение к методу создания папки, удаление объекта.
Обратите внимание, что понятие «объект» относится к логике сценария, а не к логике файловой системы. То есть, когда мы говорим «удаление объекта», мы имеем ввиду логический объект сценария, который никак не влияет на удаление каких-то частей файловой системы.
Чтобы узнать, какие существуют библиотеки в Вашей операционной системе, включенные в библиотеки классы, их методы и свойства, можно воспользоваться проводником объектов, например из Microsoft Word:
В сценариях есть методы, не входящие ни в какой класс, они доступны непосредственно в теле сценария:
Пример вывода диалогового окна с запросом текста, а после этого вывод на экран оконного сообщения с введенным текстом.
Применение этих методов и свойств более подробно мы разберем в примерах других классов.
Для работы с операционной системой используется специальный класс Shell, который позволяет выполнять такие операции как запуск программ, изменение реестра, создание ярлыков, доступ к системным папкам и системным переменным, доступ к системному журналу. Итак, методы и свойства класса Shell:
Пример. Использование методов и свойств класса Shell.
Как мы уже убедились, VBS-сценарии могут работать с оболочкой Windows, но это не единственная их возможность. С помощью класса Network можно получить доступ к сетевым объектам и управлять ими. Давайте подребнее разберем класс Network:
Пример. Использование методов и свойств класса Network.
Очень часто в сценариях встречаются такие случаи, когда необходимо что-то создать, удалить, переместить или изменить на диске компьютера. Эту задачу позволяет решить класс FileSystemObject, предназначенный для работы с файловой системой. Ниже перечисленны объекты, которые может создать этот класс:
Методы и свойства класса FileSystemObject (главного объекта):
Объекты Drives, Folders и Files класса FileSystemObject хранят в себе информацию о дисках, папках и файлах и, в основном, используюся для сбора информации о файловой системе. Они имеют только два свойства:
Чтобы было более понятно, что же такое коллекция объектов, рассмотрим пример вывода на экран списка файлов корня диска C:
Объект Drive предоставляет доступ к свойствам локального или сетевого диска:
Объект Folder предоставляет доступ ко всем свойствам папки, а также позволяет производить над ней действия:
Мы познакомились со всеми методами и свойствами класса FileSystemObject, рассмотрим пример использования этого класса:
Данный сценарий предназначен для очистки системы от устаревших файлов во временных каталогах Windows и профилях пользователей. В этом примере можно увидеть как работают практически все вышеописанные конструкции: структура сценария, название переменных, работа с массивами и коллекциями, ручная обработка ошибок, считывание системных переменных, создание текстового файла журнала работы сценария, работа с файловой системой, использование процедур.
Итак, мы познакомились с основами сценариев Visual Basic Script. Давайте подведем итог, и определим достоинства и недостатки таких сценариев:
Полезные VBS скрипты и программы по работе с ними
В этой теме выкладываем скрипты, которые часто используются Вами
или на Ваш взгляд могут иметь большое практическое значение.
Также приветствуются скрипты высокой степени сложности, полезные с точки зрения
изучения принципа их работы.
******************* Перечень полезных скриптов: *******************
Отправка файла на FTP (Drag & Drop) и копирование ссылки в буфер обмена ссылка
Получение времени сервера ссылка
Полезные PowerShell скрипты
Здесь публикуются полезные с практической точки зрения сценарии PowerShell или те, что могут.
Полезные BAT/CMD скрипты
В этой теме выкладываем скрипты, которые часто используются Вами или на Ваш взгляд могут иметь.
VBS, метод POST, заполнение полей и иже с ними
С помощью скрипта лезу на сайт. Далее нужно заполнить поля формы. Тут ступор — как обращаться к.
1) Внести в код имя своего FTP-сервера, имя пользователя и пароль, корневую директорию.
1) Сохранить код в файл «FTP and ClipBoard.VBS»
2) Перетащить на него любой файл.
Получаем отправку на FTP и в буфере обмена уже готовую ссылочку.
Есть баг: русские имена файлов отправляются нормально, но ссылку получаем нерабочую.
Пока не знаю как исправить. Если есть идеи, прошу в тему.
Вложения
 | FTP and ClipBoard.zip (1.3 Кб, 539 просмотров) |
VRENN.vbs: Переименование файлов с использование регулярных выражений.
Основные способы применения:
vrenn pattern
— вывод списка
vrenn [mask|@list] pattern /C:folder [options]
— копирование в папку
vrenn [mask|@list] pattern /M:folder [options]
— пемещение в папку
vrenn [mask|@list] pattern replace [/P:text] [/S:text]
— переименование
vrenn [mask|@list] pattern /P:text /S:text
— только добавление текста
Вложения
| vrenn.4.00.zip (5.9 Кб, 452 просмотров) |
Получение ErrorLevel из команды CMD в переменную VBS-скрипта
(на примере команды сравнения файлов)
Добавлено через 18 часов 41 минуту
И да, последняя функция (Circle) несколько ошибочна. Скрипт работает, но в теории может все-таки вызвать баги. Надо так:
Добавлено через 1 минуту
Очистка пароля заданной учётной записи пользователя домена.
Добавлено через 1 минуту
Управление настройками пароля для всех членов заданной группы пользователей домена.
Добавлено через 1 минуту
Определение даты последней регистрации сеанса пользователя в многоконтроллерном домене.
Добавлено через 3 минуты
Поиск учётных записей пользователей домена, имеющих ограничения в списке станций, на которые им разрешён интерактивный вход.
Добавлено через 1 минуту
Получение списка всех контроллеров домена с указанием формального уровня их иерархии (основной|дополнительный), наличием роли глобального каталога и распределением FSMO между ними.
Добавлено через 1 час 22 минуты
Сопоставление логических томов, назначенных НЖМД и съёмным накопителям, с физическими устройствами.
Алгоритм работы сценария таков:
1. Выбор из списка логических дисков компьютера тех томов, которые размещены на НЖМД и съёмных накопителях (кроме внешних НГМД и НОД).
То есть из всех экземпляров класса Win32_LogicalDisk выбираются те экземпляры, значение свойства DriveType для которых равно 2 (Removable Disk) или 3 (Local Disk).
Добавлено через 3 минуты
Сценарий для показа членам заданной группы пользователей домена текста какого-либо уведомления (например, поздравления по случаю праздника).
Для целей переименовавания музыкальных файлов для воспроизведения в случайном порядке.
Данный скрипт переименовывает все файлы в выбранной папке, присоединяя слева к старому имени файла случайный порядковый номер. Если у файла в имени был слева номер, то старый номер удаляется.
Папка выбирается через файловый диалог Word.
Добавлено через 2 часа 32 минуты
Определение типа сеанса (интерактивный/удалённый) текущего пользователя на текущем узле и внесение данных об интерактивном сеансе в заданном регистрационном каталоге.
Будет полезно для быстрого детекта bitcoin-майнеров или других «непослушных» процессов.
Дельта времени KernelModeTime + UserModeTime процесса
/
Дельта времени KernelModeTime + UserModeTime системы в целом
* 100
Информация берется из объекта WMI (Win32_Process, Win32_Service)
Если произошла ошибка, вышлите мне ее скриншот.
Если логи не появились, нажмите левой клавишей мыши по заголовку папки и затем клавишу F5.
v.1.1.
Добавлен Parent Process Path.
v.1.2.
Сортировка по % CPU в убывающем порядке
Первым столбцом теперь идет % CPU
Убрал отчет о CPU Time
Вывод ошибки, если отчет заблокирован другой программой
Вложения
| GetCPUUsage.zip (2.9 Кб, 297 просмотров) |
Батник для регистрации DynamicWrapperX 2.0 (x32, x64) и вызова функций из 32/64-битных библиотек.
В комплект уже включена DynamicWrapperX ver.2.0.0.1,
а также демо-VBS, показывающий как свернуть и развернуть «Калькулятор Windows» с помощью API-функций.
Скрипт сам запрашивает права Администратора, если понадобится.
Если Вы хотите вызывать функции из своей 32-битной библиотеки (независимо от битности ОС), раскомментируйте участок кода FindWindow.vbs в строках №№ 16-24.
Если появится новая версия библиотеки DynamicWrapperX, ее папки «32» и «64» нужно скопировать в папку «dynwrapx», заменив оригинал.
О библиотеке DynamicWrapperX
Автор: Юрий Попов (YMP).
Условия распространения библиотеки: freeware.
Пишем программы (скрипты) в Блокноте Windows
С этой статьей вы не научитесь программировать и даже не напишите как таковую программу, но найдете здесь отличные VBS скрипты и BAT файлы, которые без проблем напишете в обычном блокноте Windows, сможете усовершенствовать по своему, потом похвастаться перед друзьями и близкими. Возможно это поднимет вам настроение и вы отлично проведете время.
Приступим
Научим компьютер здороваться
Set sapi=CreateObject(«sapi.spvoice»)
sapi.Speak «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»
Открыть дисковод
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) его видит именно так и уничтожает сразу же. В первом же случае (просто открытие дисковода) для антивирусных программ не является вредоносным скриптом.
Чтобы прекратить автоматически открывать-закрывать дисковод необходимо:
Игра
Вы также можете изменять сообщения по своему, все что написано кириллицей без проблем редактируется. Не бойтесь сломать код. Поэкспериментируйте. В случае чего заново скопируйте рабочий код отсюда.
Ну и перед тем как переходить к батникам (.BAT) воспользуемся самым полезным VBS скриптом из всех перечисленных в этой статье.
Скрипт закрывающий wscript.exe
Set TaskKill = CreateObject(«WScript.Shell»)
TaskKill.Run «TaskKill /f /im wscript.exe»
По сути он делает тоже самое, что чуть выше объяснялось в диспетчере задач, как например нельзя просто взять и закрыть надоедливый скрипт открывающий-закрывающий дисковод, а запустив данный скрипт все запущенные будут закрыты. Это как клин клином вышибают.
Завершение работы /Перезагрузка компьютера
Совсем простой батник состоящий всего из одной строки.
Есть такой вариант кода:
Удаление обновлений
@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 на подлинность.
172 thoughts on “ Пишем программы (скрипты) в Блокноте Windows ”
Пробую проделать с дисководом, не работает на Windows 8.
Ошибка компиляции Microsoft VBScript, Недопустимый знак, код 800А0408
Увы, насчет windows 8 не знаю…проверено на «семерке» все замечательно работает.
Windows 7 Проффесиональная пишет: Ошибка компиляции Microsoft VBScript, Недопустимый знак, код 800А0408
Попробуйте заного нормально написать, возможно допустили ошибку где-то, с данной ошибкой встречаются очень часто
ОН НЕ ВИДИТ РУССКИЙ ЯЗЫК ТАМ ТУПО КАКОЙ ТО СТРАННЫЙ ШРИФТ
у меня тоже так если я пишу в нотпад++, но если я открою через обычный блокнот, сохраню а потом буду запускать через нотпад++ то там пишет по русски а не на языке стола зачарований.
Во время сохранения выбери кодировка: ANSI
я также написал не работает
Через 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 открыл, выбило ошибку.
ты вместо елочек пиши скобки
И десятка с любым вбс такое выдаёт.
у меня тоже русский не работает. На англ все фразы переведи
разыграл друга что типа через 10 сек выходит сообщение что комп заблокирован
На Windows 10 все тоже отлично работает. Жду еще более крутых скриптов! 😉
Давайте сотрудничать! Я тоже вирусы делаю
Это уголовно наказуемо, не помню какая статья но потом загуглю, и да, это не вирусы а так называемые приколы, а ПРИКОЛЫ и ВИРУСЫ отлечаются, вот наример какие ты вирусы делаешь а? ой да не дери ты мозги что ты делаешь «Вирусы», я тоже могу сделать «вирус» просто бл*ть найти в интернете и всё, делает он их ага.
лол, это тупая игрушка на бат, я также с легкостью могу сказать что я хакер, сделав за минуту батник, который копирует себя в автозагрузку и включает компьютер, только твоей игрушкой никому не навредить, а я одноклассников на бабло разводил, на настоящее, тупо подхожу с флешкой, говорю «на, тут все серии наруто, запусти файл.bat и наслаждайся. Через 5 минут звонит растерянный ламер и бормочет что у него комп вырубился и не включается. Я прихожу. за сотку включаю с винды безопасный режим, через кмд делитаю файл из автозагрузки, халявная сотка, здравствуй
мда вы решили создавать вирусятины…
эй давай вместе создавать вирус у меня один есть если хочеш связатся то мой вк flapi flapik
ЭЙ! у меня касперский ругается на privet.txt!
Кавычки нужно проверить, может вы копируете и вставляете с елочками «_», а в коде нужны лапки ”_“
На Windows 8 надо использовать кавычки вот такие «»
Надо вместо ЁЛОЧКИ писать и всё КЛАСНО
Согласен, еще ошибка : недопустимый знак
Просто этот чудик сделал не верно.Он сказал комп не читает кавычки в виде »
а сам их и напихал,замените все кавычки » на ковычки «» и все просто таже проблема была
кавійки надо поставить «такие» а не такие как написано там
А ты пробовал заменить <> на «кавычки обычные»?
там все >>заменить на «
У меня выдает ошибку но работает
а дисковод есть то на пк, или декоративная заглушка стоит?
Не благодарите, пожалуй.
P.S. (Не делайте такое на своём компьютере, убьёте его).
Ты в курсе, что просто чистишь рабочий стол этим скриптом?
-ТВОЙ КОМП: ЖОПА ГОРИТ
В Windows 8, 10 Windows media player есть.
Интересная штучка. Лично у меня скрипт тоже выдает ошибку, но при том дисковод открывается
не знаю, у меня на 8 работает ВСЕ без каких либо ошибок
у меня 8.1, работает
а на виндовс 10 работает!
Там написано какая строка?
Знаешь у меня тоже такое но дисковод вылезает на семёрке на 8 тоже должно.
Прошу прощения,на второй комментарий можно не отвечать,я поняла
=) Ну в принципе вы установили голосовой движок (русский) и этого достаточно, а балаболка — хорошая штука, я например ее настроил более мене прилично и она мне читает книги))
Это Вам спасибо, рад, что смог как-то помочь, заходите почаще!
вот шутка про дисковод..при запуске от говорит об ошибке.мол депустимый знак в 1 строке 29 символ
Проверьте может опечатка где в тексте, а система у вас какая?
По моему надо заменить этот символ: одну кавычку («) на другую («)
? короче на такую, ту почему-то не пишет (где буква Э, на английском, с shift-ом (»))
а у меня семёрка и всё ровно пишет при открытии любых vbs выскакивает Ошибка компиляции Microsoft VBScript, Недопустимый знак, код 800А0408
Проверьте может ошибка синтаксическая, в принципе в коде ошибок нет, работает все нормально. Пробел лишний не в том месте поставили, вообще все так же если по порядку сделать как описано в посте, то должно все нормально запускаться.
Если я вас правильно понял, вы хотите что то типа справочника bat? т.е. команда и обозначение того самого батника, если так то может чуть позже займусь этим.
да,именно это я и имел ввиду.
Сможете это сделать?
Люди что делать. Я скачал архив и разархивировал. Начинаю открывать Vbs файл и ничего не происходит.(антивирус выключен, windows 7 максимальная)
Set WMPlayer = CreateObject(«WMPlayer.OCX.7?)
do
WMPlayer.CdRomCollection.Item(0).Eject()
loop
А какая ошибка выходит?
Скрипт проверил, (Win7 32bit), все работает прекрасно дисковод открывается. У вас система какая? просто на Windows XP бывают ошибки.
У меня windows 7 /32 bit
При использовании скрипта про открытие/закрытие дисковода вылазит вот такая ошибка:
Сценарий: D:\1.vbs
Строка 1
Символ 29
Ошибка: Недопустимый знак
Код 800A0408
Источник: Ошибка компиляции Microsoft VBScript
Такс…насчет «справочника», пока не знаю, возможно в скором времени подготовлю, но кончено не полный, а то все bat команды собрать…можно сума сойти =) так самые интересные может и соберем. А насчет данного скрипта, попробуйте вот скачать — http://ocompah.ru/123.rar и так попробуйте запустить после разархивации.
Ваш сохраненный скрипт работает!, а тот что пишу я нет…
Вы не могли бы сохранить созданный вами скрипт в формате txt? чтоб я посмотрел в чем моя ошибка?
Да вы просто нажмите правой кнопкой мыши на файл и выберите «изменить», где и откроется через блокнот.
все,разобрался со скриптом,большое вам спасибо!
Постараюсь как можно скорее написать, но увы, сейчас пока нет времени.
да у меня такое было но дисковод открывался
На Windows XP ошибки быть не может если правильно ввести
Проблема с как научим компьютер «разговаривать» выдает 800а0408 ошибка компиляции что я не так делаю подскажите плиз
Скорее всего синтаксическая ошибка, попробуйте проверить нет ли лишних пробелов, кавычки попробуйте не копировать а в ручную писать, если что отпишитесь.
Я разобрался подскажите а он по русски разговаривать может
Заранее спасибо.
Конечно может если установлен голосовой движок.
Отличная статейка. Увлекла 😉
На windows vista что то не получается.
Что, тоже ошибка компиляции выходит?
Как продвигается составление «справочника»? очень жду.
Заранее спасибо за ответ.
Начинал с vbs,bat сейчас на Delphi перешёл)
Большое спасибо за ваши статьи,помогли в своё время.
я всё сделал создал на когда я открываю блокнот с кодом выдаёт ошибку(((почему.
ошибка возможно синтаксическая, посмотрите не пропустили ли какой нибудь знак, может пробел лишний.
как установить голосовой движок
Скачать и просто установить как и другие программы
сообщите мне адрес справочника по батникам очень хочу то что я писал неработало а скачал и заработало!! класс из етим дисководом получилось у брата на ноуте запущу)))))
Здесь на форуме ковычки другие! В любом коде, заместо » пишем, стандартные «
А можете ссылку дать на скачивания»Алёны»
а то нормальную не могу найти
Вот вам торрент ссылка на голосовой движок «Алена» — скачать
у меня виндовс 8 и у меня не че не получается то ест … все коды папробывал
Я на 8 пробовал только дисковод.
Кавычки обычные.
Set WMPlayer = CreateObject(«WMPlayer.OCX.7»)
do
WMPlayer.CdRomCollection.Item(0).Eject()
loop
Попробуй так
Странно он в комментах при вставке сам делает другие кавычки.
В общем на 8 такие ( » ) и такая же закрыть.
И опять он их изменил.ППц просто. На 8 две запятых вверху — это начало и две вверху- конец
а от куда я знаю вдруг файл завирусован
Вас никто не заставляет, ваше право, вы беспокоитесь за свою безопасность, здесь нет ничего такого.
А как сделать батнике много открываний?
В итоге как решили вопрос с ошибкой компиляции, у меня также выдает ошибку
800а0408 ошибка компиляции
А вы вконтакте есть? Дайте ссылку пожалуйста
У меня вопроспо поводу сайта. Как только я открываю 1 часть данной статьи меня перекидывает сюда.
Я обновил статьи и теперь по скриптам в блокноте одна запись. Нету смысла плодить множество маленьких однообразных статей. Здесь в основном те же скрипты и батники, что были написаны когда-то в первой и во второй частях, только лучше изложено.
Все сделал как надо.Даже ошибку в коде исправил,так то писало что неверный символ(и я не про «)
Скрин: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 проверил.
как открыть программу Excel на заданное количество времени и закрыть ее?
Написал скрипт на приветствие » Привет пончик» у подруги, и она пошла худеть )))
Может кто подсказать как написать скрипт, что бы по указанному времени звук переключался с наушников на колонки? Ночью люблю засыпать слушая музыку в наушниках, что бы никому не мешать, а утром нужен громкий будильник с колонок, поэтому и интересуюсь.
Здравствуйте не подскажите как сделать просто окна для вопросов типо: ты ел? ответы : да или нет и и при нажатие ответа выскакивал другой вопрос и те же ответы )
угадайка на «восьмерке» не работает.. все варианты перепробовал из тех что советовали
Здравствуйте.
Игра «Угадайка» не запускается. Выдаёт ошибку. Что делать?
Заного в угадайке!Как исправить?
Фуфло это «всё», прокисшее!…
У Меня получилось я кинул своим друзьям угадайку и там есть установка и я снял её на ютуб
Для кручения вертушки зажмите любую клавишу
Отредактируйтн пробелами ↑↑↑ звездочки, чтобы получились «плюсик» сверху и «крестик» ниже
Вот вам вирус
@echo off
CLS
:A
start calc.exe
start nitepad.exe
start Archiver.bat
goto A
Сохранить как Archiver.bat (ТАКЖЕ С БЛОЬШОЙ БУКВЫ ИЛИ СКРИПТ НЕ СРАБОТАЕТ ПОЛНОСТЬЮ. )
Для более жесткого эффекта добавьте в код прописку в автозагрузку
Описание:
Это вирус спаммер который бесконечно открывает блокнот, калькулятор и СЕБЯ, чтобы удалением нельщя было остановить процесс открывания
попробовал написал «привет чувак» — всё получилось
Незаметно кому-то подкинуть «выключку» и поставить на автозапуск.
Запустил… пишет строка 1 ошибка: нету слова «sai» Что это значит? (нету слова — это я сказал по другому но смысл один!)
Слишком сложно и не понятно.
Здравствуйте.
Можно ли создать скрипт для вызова из контекстного меню в любой папке, чтобы в этой папке менялся тип группировки и сортировки файлов на заранее заданный? Если да — то как? Спасибо.
как можно писать программи без знания англиского языка
Вин 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»
крч смотрите… как быть если комп не знает с помощью какой программы производить — Set sapi=CreateObject(«sapi.spvoice»)
sapi.Speak «Hello!»
Кто в макросах хорошо шарит??
Здравствуйте а вы не можете зделать статью про символы и знаки что бы я/мы могли понимать что написано