Готовые скрипты

Defy
Синхронизация времени
Очистка временных директорий
Пример работы с файлами
Пример работы с архивами
Разделить снимки по датам
Перезапуск модемов 3G
Перезапуск Ammyy
Перезапуск компьютера
Автовыключение компьютера
Автовыключение компьютера вечером
Узнать текущий курс Евро
Создать архив с текущей датой
Настройка подменю в проводнике
Переводчик
Faster
Старт 2
Синхронизация времени
Блок в условие
Вопрос в условие
Сворачивание активности пользователя
Сократить буфер
Сократить буфер - слова
Очистка временных директорий
Перезапуск Ammyy
Автозакрытие всех окон c YouTube
Поиск выделенного текста
Перевод выделенного текста
Перевернуть выделенный текст
Исправить текст
Исправить набранный текст
Исправить выделенный текст
Сохранить положение гаджетов
Восстановить положение гаджетов
Создание кода 1С из буфера обмена
Увеличение номера документов в конфигураторе 1С 8
Свернуть текст в буфере обмена
Установить ClearType
Закрыть все открытые папки
Анализ внешних модулей 1С
Сформировать сообщить
Быстрый поиск в активном окне
Средняя мышь
Левая мышь
Правая мышь
Двойная левая мышь
Скрипт в отдельном окне
Калькулятор в отдельном окне
Текстовая заметка в отдельном окне
Анализ директории
Автовыключение компьютера
Автовыключение компьютера вечером
Отключить компьютер через час бездействия
Скрипт для клавиши F7
Дубликат строки в текстовых редакторах
Забрать текст из Войснот
Подмена заголовка 1С
Отключить напоминания на час
Создать архив с текущей датой
Настройка подменю в проводнике
Периодическое нажатие на клавишу
TrueCrypt подключить usb
TrueCrypt отключить usb
Запрет просмотра YouTube
Фильтрация просмотра YouTube
Переводчик
Запуск VPN и RDP
Сортировать строки в буфере обмена
DBI
Очистка временных директорий
Автовыключение компьютера вечером
Регистрация Com 1С без установки
Подмена заголовка 1С
Отслеживание завершения обработки в 1С
Создать архив с текущей датой
Настройка подменю в проводнике


Настройка подменю в проводнике

// Добавляем свое контекстное меню для объектов в проводнике Windows
// Для выполнения данного скрипта надо запустить Defy под администратором

ПутьКФайлу = Компьютеры.Директории("%RES%")+ "\Defy-m.exe";

// делаем общее подменю для директории

Раздел = "HKCR\Folder\shell\DefySubMenu";
Рез    = Компьютеры.Реестр.Установить(Раздел, "ExtendedSubCommandsKey", "Folder\ContextMenus\DefySubMenu");
Если (Рез<=0) Тогда
    Сообщить("Нет доступа на запись в реестр");
    Возврат;
Конец;
Компьютеры.Реестр.Установить(Раздел, "Icon",    ПутьКФайлу);
Компьютеры.Реестр.Установить(Раздел, "MUIVerb", "Defy-m");

Раздел = "HKCR\Folder\ContextMenus\DefySubMenu\shell\DefySubMenu";

// делаем подменю для анализа директории
Компьютеры.Реестр.Установить(Раздел+"1",         "MUIVerb", "Анализ директории");
Компьютеры.Реестр.Установить(Раздел+"1\command", "",        ПутьКФайлу+" dir ""%V""");

// делаем подменю для архивирования директории с добавлением текущего момента
Наименование = "Создать архив с текущей датой";
ПутьКФайлу2  = Компьютеры.Директории("%DATA%")+ Символы.ОС + Наименование + ".fts";
Скрипты.Записать(Наименование, ПутьКФайлу2);
Компьютеры.Реестр.Установить(Раздел+"2",         "MUIVerb", Наименование);
Компьютеры.Реестр.Установить(Раздел+"2\command", "",        ПутьКФайлу+" script """+ПутьКФайлу2+"" " -run -hide -close -par=""%V""");

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

// Удалим другие подменю если они есть
Компьютеры.Реестр.Удалить(Раздел+"3");
Компьютеры.Реестр.Удалить(Раздел+"4");
Компьютеры.Реестр.Удалить(Раздел+"5");

// делаем общее подменю для любого файла

Раздел = "HKCR\*\shell\DefySubMenu";
Компьютеры.Реестр.Установить(Раздел, "ExtendedSubCommandsKey", "*\ContextMenus\DefySubMenu");
Компьютеры.Реестр.Установить(Раздел, "Icon",                   ПутьКФайлу);
Компьютеры.Реестр.Установить(Раздел, "MUIVerb",                "Defy-m");

Раздел = "HKCR\*\ContextMenus\DefySubMenu\shell\DefySubMenu";

// делаем подменю для открытия любого файла в Defy-m
Компьютеры.Реестр.Установить(Раздел+"1",         "MUIVerb", "Открыть");
Компьютеры.Реестр.Установить(Раздел+"1\command", "",        ПутьКФайлу+" ""%V""");

// делаем подменю для открытия любого файла как текст
Компьютеры.Реестр.Установить(Раздел+"2",         "MUIVerb", "Открыть как текст");
Компьютеры.Реестр.Установить(Раздел+"2\command", "",        ПутьКФайлу+" text ""%V""");

// делаем подменю для открытия любого файла как двоичный файл
Компьютеры.Реестр.Установить(Раздел+"3",         "MUIVerb", "Открыть как двоичный файл");
Компьютеры.Реестр.Установить(Раздел+"3\command", "",        ПутьКФайлу+" binary ""%V""");

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

// Удалим другие подменю если они есть
Компьютеры.Реестр.Удалить(Раздел+"4");
Компьютеры.Реестр.Удалить(Раздел+"5");

Сообщить("ОК");

  

http://moolex.ru