Готовые модули

Для всех
Модули для задач\Директория\Замена типов файлов
Модули для задач\Директория\Переименовать отмеченные
Модули для задач\Директория\Создать архив директории
Модули для задач\Директория\Заменить текст в файлах
Модули для задач\Диск\Заполнить диск пустыми файлами
Модули для действий\Текст\Итого по строкам
Модули для действий\Текст\Сортировать строки
Модули для действий\Текст\Свернуть строки
Модули для действий\Текст\Удалить пустые строки
Модули для действий\Текст\Перевести текст
Модули для действий\Список\Обработка списка
Модули для действий\Группа\Обработка группы
Модули для действий\Директория\Исправить имена файлов
Модули для действий\Задача\Создать скрипт для автовыполнения задачи
Defy
Автосохранение Yandex
AutoLoadTorrents
Анализ объявлений Авито
Faster
Модули для буфера\Разделить буфер обмена
Модули для буфера\Соединить буфер обмена
Настройка реестра Windows
DBI
Модули для задач\БД 1С 8\Выгрузить базу данных
Модули для задач\БД 1С 8\Загрузить базу данных
Модули для задач\БД 1С 8\Выгрузить конфигурацию в файлы
Модули для действий\Директория\Проверить все обработки
Модули для действий\Модуль 1С\Проверить модуль
Модули для действий\БД 1С 8\Открыть временную локальную папку
Запуск RDP
Модули для 1С\Обновление конфигураций 1С
Модули для 1С\Выгрузка конфигураций 1С в файлы
Модули для 1С\Выгрузка информационных баз 1С


AutoLoadTorrents

Функция ПередОткрытием()
    
    // автоматическая закачка фильмов в папку КудаКачать
    // на основании всех файлов*.torrents, которые появляются в папке ГдеСмотреть
    // с помощью программы ПрограммаДляСкачки
    // после первой настройки параметров данный модуль надо поставить на автовыполнение каждые пять минут
    
    Модуль                   = Этот.Владелец;
    Модуль.'Действия модуля' = "Выполнить,ОткрытьПапкуДляЗакачки";
    
    Параметры = Главный.Определить(0, Объекты.Список, Свойства.Наименование, "Параметры закачки");
    Параметры.Колонки.Определить(Свойства.Наименование, 0, 200, 1);
    Параметры.Колонки.Определить(Свойства.Значение,     0, 400, 1);
    Параметры.'Отключить канву объекта' = 1;
    
    УстановитьПараметр(Параметры, "Программа для скачки", "C:\Programs\BitTorrent\BitTorrent.exe");
    УстановитьПараметр(Параметры, "Где смотреть",         "C:\Torrents");
    УстановитьПараметр(Параметры, "Куда качать",          "C:\Video");
    
    Закачки = Главный.Определить(0, Объекты.Список, Свойства.Наименование, "Закачки");
    Закачки.Колонки.Определить(Свойства.Момент,       0, 120, 1);
    Закачки.Колонки.Определить(Свойства.Наименование, 0, 580, 1);
    Закачки.'Отключить канву объекта' = 1;
	Файлы.Создать(Компьютеры.Директории("%DATA%")+"\Backups");
    
Конец

Функция Выполнить()
    
	
    Закачки      = Главный.Определить(0,      Объекты.Список, Свойства.Наименование, "Закачки");
    Параметры    = Главный.Определить(0,      Объекты.Список, Свойства.Наименование, "Параметры закачки");
    Программа    = ВернутьПараметр(Параметры, "Программа для скачки");
    ГдеСмотреть  = ВернутьПараметр(Параметры, "Где смотреть");
    КудаКачать   = ВернутьПараметр(Параметры, "Куда качать");
	ПутьДляКопий = Компьютеры.Директории("%DATA%")+"\Backups\";
	
    Префикс      = "/DIRECTORY """+           КудаКачать      +                      """ ";
	
    //Сообщить("Проверка папки",ГдеСмотреть);
	
    Ф = Файлы.Есть(Программа, 1)+ Файлы.Есть(ГдеСмотреть, 1)+ Файлы.Есть(КудаКачать, 1);
    Если (Ф<>3) Тогда Возврат 0; Конец;
    
    ИменаФайлов = Файлы.Имена(ГдеСмотреть, "*.torrent", 0, 1);
    Для ПутьКФайлу Из ИменаФайлов Цикл
        Если (Файлы.Занят(ПутьКФайлу)=0) Тогда
            Сообщить("Запуск загрузки", ПутьКФайлу);
            Объект         = Закачки.Определить(0, Объекты.Объект, Свойства.Наименование, ПутьКФайлу);
            Объект.Момент  = Моменты.Текущий();
            Объект.Отмечен = 1;
            Запустить(Программа, Префикс+""""+ПутьКФайлу+"""");
            Подождать(15);
            Файлы.Переместить(ПутьКФайлу,ПутьДляКопий+Файлы.Имя(ПутьКФайлу));
        Конец;
    Конец;
    
Конец

Функция УстановитьПараметр(Параметры, Наименование, ЗначениеПоУмолчанию)
    
    Результат = 0;
    Объект    = Параметры.Определить(0, Объекты.Объект, Свойства.Наименование, Наименование);
    Если (Объект.Новый()) Тогда
        Объект.Значение = ЗначениеПоУмолчанию;
        Объект.Отмечен  = 1;
        Результат       = 1;
    Конец;
    Возврат Результат;
    
Конец

Функция ВернутьПараметр(Параметры, Наименование)
    
    Результат = "";
    Для Объект Из Параметры Цикл
        Если (Объект.Отмечен=1)И(Объект.Наименование=Наименование) Тогда
            Результат = Объект.Значение;
            Прервать;
        Конец;
    Конец;
    Возврат Результат;
    
Конец

Функция ОткрытьПапкуДляЗакачки()
    
    Параметры   = Главный.Определить(0,      Объекты.Список, Свойства.Наименование, "Параметры закачки");
    КудаКачать  = ВернутьПараметр(Параметры, "Куда качать");
	Запустить(КудаКачать);
    
Конец

Функция Таймер()
    
	Выполнить();
    
Конец

  

http://moolex.ru