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, Объекты.Список, Свойства.Наименование, "Параметры закачки");
КудаКачать = ВернутьПараметр(Параметры, "Куда качать");
Запустить(КудаКачать);
Конец
Функция Таймер()
Выполнить();
Конец