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

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


Сворачивание активности пользователя

// если объектов в списке активности пользователя много(более 10000), это скажется на скорости работы программы.
// данный скрипт перемещает объекты списка в отдельный список и сворачивает по классу окна
// примерное время выполнения скрипта 3 минуты
Сообщения.Очистить();
Статистика = Этот.Владелец.Определить(0,          Объекты.Группа,   Свойства.Наименование, "Статистика");
Активность = Этот.Владелец.Определить(Статистика, Объекты.Сведения, Свойства.Наименование, "Активность пользователя");
Данные     = Активность.Определить(0,             Объекты.Список,   Свойства.Наименование, "Данные");
Сообщить("Количество объектов в списке активности", Данные.Количество());
Если (Данные.Количество()<5000) Тогда Возврат; Конец;
Архив  = Этот.Владелец.Определить(Активность, Объекты.Сведения, Свойства.Наименование, "Архив активности");
Список = Архив.Определить(0,                  Объекты.Список,   Свойства.Наименование, "Данные");

// для проверки сохраним общий интервал
ОбщийИнтервал = Данные.Итог("Интервал")+ Список.Итог("Интервал");

Архив.'Наименование поля с моментом'   = "Дата";
Архив.'Наименование поля с итогом'     = "Интервал";
Архив.'Наименование поля с аналитикой' = "Класс окна";
Архив.'Сортировать по итогу'           = 1;

Список.Колонки.Определить(Свойства.Дата);
Список.Колонки.Определить(Свойства.'Класс окна');
Список.Колонки.Определить(Свойства.Интервал);

н          = 0;
Перенесено = 0;
кондата    = Моменты.НачалоМесяца(Моменты.Текущий, 3); // переносить будем данные старее трех месяцев

Сообщить("Переносим данные до даты", кондата);
Сообщить("   некоторые классы окон объединяем...");
Для Объект Из Данные Цикл
    м = Моменты.НачалоДня(Объект.'Момент времени начала');
    Если (м<кондата) Тогда
        ОбъектНовый          = Список.Добавить(Объекты.Объект);
        ОбъектНовый.Дата     = м;
        ОбъектНовый.Интервал = Объект.Интервал;
        класс                = Объект.'Класс окна';
        Если (Строки.Найти(класс, "Afx")==1)                    Тогда класс = "Afx";                Конец;
        Если (Строки.Найти(класс, "V8NewLocalFrameBaseWnd")==1) Тогда класс = "V8TopLevelFrame";    Конец;
        Если (Строки.Найти(класс, "V8NewLocalFrame")==1)        Тогда класс = "V8TopLevelFrame";    Конец;
        Если (Строки.Найти(класс, "V8PopupBar")==1)             Тогда класс = "V8TopLevelFrame";    Конец;
        Если (Строки.Найти(класс, "MozillaUIWindowClass")==1)   Тогда класс = "MozillaWindowClass"; Конец;
        ОбъектНовый.'Класс окна' = класс;
        Объект.Неиспользуемый    = 1;
        Перенесено               = Перенесено + 1;
    Конец;
    н = н + 1;
Конец;
Если (Перенесено>0) Тогда
    Данные.Удалить("Неиспользуемый", 1); // удаляем из объекта"Активность пользователя"старые данные
    Свернуто = Список.Свернуть("Дата,Класс окна", "Интервал");
    Сообщить("Перенесено", Перенесено);
    Сообщить("Свернуто",   Свернуто);
    Если (ОбщийИнтервал<>(Данные.Итог("Интервал")+Список.Итог("Интервал"))) Тогда
        Сообщить("Общий интервал не равен!");
    Конец;
Конец;
Сообщить("Скрипт выполнен, осталось объектов", Данные.Количество());

  

http://moolex.ru