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

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


Восстановить положение гаджетов

// Восстанавливает положение гаджетов из заданного файла настроек в зависимости от количества подключенных мониторов
Путь = Компьютеры.Директории("%APPDATA%");
Путь = Строки.Заменить(Путь, "Roaming", "\Local\Microsoft\Windows Sidebar");
// Сообщить(Путь);
А = "";
Для н = 1 По Мониторы.Количество() Цикл
    А = А + "-"+ Строки.Строка(н)+ "-"+ Мониторы.Лево(н-1)+ "-"+ Мониторы.Ширина(н-1);
Конец;
ИмяФайла = Путь + "\settings"+ А + ".ini";
Если (Файлы.Есть(ИмяФайла)) Тогда
    Запустить(Компьютеры.Директории("%WINDIR%")+"\System32\taskkill.exe", "/f /im sidebar.exe");
    Подождать(1);
    Файлы.Копировать(ИмяФайла, Путь+"\settings.ini");
    Подождать(1);
    Запустить("C:\Program Files\Windows Sidebar\sidebar.exe");
Иначе
    Сообщить("Файл с настройками не найден", ИмяФайла);
Конец;

  

http://moolex.ru