ЧтоВБуфере = Буфер.Подстрока(1, 6);

Если (ЧтоВБуфере="magnet") Тогда
    
    Текст      = Буфер.Текст;
    ПутьКПапке = Компьютеры.Директории("%DATA%")+ "\Magnets";
    Текст      = Буфер.Текст;
    Стр        = Строки.Конвертировать(Текст,     "URL", "ANSI");
    Имя        = Строки.Между(Стр,                "dn=", "/");
    Если (Имя<>"") Тогда
        Год = "("+ Строки.Между(Стр, "[", ",")+ ")";
        Имя = Имя  +                 Год;
    Иначе
        Имя = Числа.Целое(Моменты.Текущий());
    Конец;
    Файлы.Создать(ПутьКПапке);
    Текст.Записать(ПутьКПапке+Символы.ОС+Имя+".txt");
    Сообщить("Поставлен в очередь",  Имя);
    Уведомить("Поставлен в очередь", Имя);
	
	//можно сразу запустить скачку
	// Скрипты.Запустить("Скачивание magnet ссылок ночью");
    
ИначеЕсли (Строки.Найти(ЧтоВБуфере, "http")=1) Тогда
    
    Текст                        = Буфер.Текст;
    ОбъектСписок                 = Главный.Определить(0,      Объекты.Дерево, Свойства.Наименование, "Буфер");
    ОбъектТекст                  = ОбъектСписок.Определить(0, Объекты.Текст,  Свойства.Текст,        Текст);
    ОбъектТекст.Тип              = "Интернет";
    ОбъектТекст.Отмечен          = 1;
    ОбъектТекст.'Класс окна'     = Окна.Класс();
    ОбъектТекст.'Заголовок окна' = Окна.Заголовок();
    Уведомить(Текст, "Добавлен в список Буфер");
    
Конец;