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

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С
Создать архив с текущей датой
Настройка подменю в проводнике


Подмена заголовка 1С

// корректируем заголовок во всех запущенных 1С
// в начало заголовка добавляем имя базы данных
// если Компьютеры.Запрос возвращает ошибку, то вероятно на компьютере не запущена служба WMI
// данный скрипт лучше запускать в отдельном потоке, для этого добавьте код в скрипт'Старт'
// НС="Подмена заголовка 1С";
// Если(Окна.Есть(НС,"TFormMainDefy")=0)Тогда Скрипты.Запустить(, НС, 5);Конец;

Окна1С = Окна.Определить(, "V8TopLevelFrame");
Для Окно1С Из Окна1С Цикл
    ЗаголовокБыл = Окно1С.'Заголовок окна';
    ПервыйСимвол = Строки.Подстрока(ЗаголовокБыл, 1, 1);
    Если (Строки.Есть(ПервыйСимвол, ".,:,·")) Тогда Продолжить; Конец;
    ИдОкна = Окно1С.'Идентификатор окна';
    Список = Компьютеры.Запрос("SELECT CommandLine FROM WIN32_Process WHERE ProcessId="+Окна.Процесс(ИдОкна));
    Если (Список<=0) Тогда
        Сообщить("Ошибка при вызове Компьютеры.Запрос", Ошибки.Строка(Список));
        Этот.Отмечен = 0; // отключаем автовыполнение скрипт
        Возврат;
    Конец;
    Для Объект Из Список Цикл
        Стр = Объект.Текст;
        Если (Строки.Подстрока(Стр, 1, 11)="CommandLine") Тогда
            // Сообщить(Стр);
            Если (Строки.Найти(Стр, "-Embedding")) Тогда // Com пропускаем
                Продолжить;
            Конец;
            ИмяБД            = "";
            ПрефиксИмени     = "";
            ПараметрыКоманды = Строки.Разделить(Стр, " ", , """");
            Для Параметр Из ПараметрыКоманды Цикл
                Если (Строки.Подстрока(Параметр, 1, 2)="/F") Тогда // файловая база
                    ИмяБД = Параметр; ПрефиксИмени = ".";
                    Прервать;
                Конец;
                Если (Строки.Подстрока(Параметр, 1, 2)="/S") Тогда // серверная база
                    ИмяБД = Параметр; ПрефиксИмени = ":";
                    Прервать;
                Конец;
                Если (Строки.Подстрока(Параметр, 1, 7)="/IBName") Тогда // имя базы в списке баз стартера 1С
                    ИмяБД = Строки.Заменить(Параметр, "IBName", ""); ПрефиксИмени = "·";
                    Прервать;
                Конец;
            Конец;
            Если (ИмяБД<>"") Тогда
                Поз = Строки.Найти(ИмяБД, Символы.ОС, 1, 1);
                Если (Поз=0) Тогда Поз = Строки.Найти(ИмяБД, "/", 1, 1); Конец;
                ИмяБД          = Строки.Подстрока(ИмяБД, Поз+1, Строки.Длина(Параметр)-Поз);
                ИмяБД          = Строки.Заменить(ИмяБД,  """",  "");
                ЗаголовокНовый = ПрефиксИмени            +      ИмяБД + " - "+ ЗаголовокБыл;
                // Сообщить(ЗаголовокНовый);
                Окна.Заголовок(ИдОкна, ЗаголовокНовый);
            Иначе
                Сообщить("ИмяБД не определено", Стр);
            Конец;
        Конец;
    Конец;
Конец;

  

http://moolex.ru