Функция ПередОткрытием()

    // Модуль для удобного администрирования RDP
    
    Модуль                   = Этот.Владелец;
    Модуль.'Действия модуля' = "Запуск,Редактировать,Открыть,НовоеПодключение";
    Данные                   = Модуль.Определить(0, Объекты.Список, Свойства.Наименование, "Данные");
    Данные.Колонки.Определить(Свойства.Наименование,,150,1,0);
    Данные.Колонки.Определить(Свойства.Хост,,100,1,0);
    Данные.Колонки.Определить(Свойства.Пользователь);
    Данные.Колонки.Определить(Свойства.Пароль);
    Данные.Колонки.Определить(Свойства.Комментарий,,250);
    Данные.'Отключить канву объекта' = 1;
    Данные.'Отключить отметку'       = 1;
    ОбновитьСписок();
    Если (Данные.Количество()=0) Тогда
        Файлы.Создать(Компьютеры.Директории("%DATA%")+Символы.ОС+"RDP.rdp");
        ОбновитьСписок();
    Конец;
    Этот.Владелец.Выбранный(Данные);
    
Конец

Функция ОбновитьСписок()

    Модуль = Этот.Владелец;
    Данные = Модуль.Определить(0, Объекты.Список, Свойства.Наименование, "Данные");
    Путь        = Компьютеры.Директории("%DATA%");
    ИменаФайлов = Файлы.Имена(Путь, "*.rdp");
    Для ИмяФайла Из ИменаФайлов Цикл
        А = Строки.Заменить(ИмяФайла, ".rdp", "");
        // Сообщить(А);
        Объект = Данные.Определить(0, Объекты.Объект, Свойства.Наименование, А);
        Текст  = "";
        Текст.Прочитать(Путь+Символы.ОС+ИмяФайла);
        Для Стр Из Текст Цикл
            Префикс = "full address:s:";
            Если (Строки.Найти(Стр, Префикс)=1) Тогда
                Объект.Хост = Строки.Заменить(Стр, Префикс, "");
            Конец;
        Конец;
    Конец;
    Данные.Обновить();
    
Конец


Функция НовоеПодключение()

    // Новое подключение
    Файлы.Создать(Компьютеры.Директории("%DATA%")+Символы.ОС+"RDP.rdp");
    ОбновитьСписок();
    
Конец

Функция Таймер()
    
Конец

Функция Выполнить()
    
Конец

Функция Запуск()
    
    // Запуск выбранного rdp
    ЗапускRDP(0);
    
Конец

Функция Редактировать()
    
    ЗапускRDP(1);
    
Конец

Функция ЗапускRDP(редактировать)
    
    Влд = Этот.Владелец;
    Данные = Влд.Определить(0, Объекты.Список, Свойства.Наименование, "Данные");
    Если (Данные.Выбранный()=0) Тогда Возврат 0; Конец;
    Объект = Данные.Выбранный();
    ПутьКФайлу = Компьютеры.Директории("%DATA%")+Символы.ОС+Объект.Наименование+".rdp";
    //Сообщить(ПутьКФайлу);
    Если (Файлы.Есть(ПутьКФайлу)=0) Тогда
	Сообщить("Нет файла "+ПутьКФайлу);
        Возврат 0;
    Конец;
    Стр = ПутьКФайлу;
    Если (редактировать=1) Тогда
        Стр = "/edit """ + ПутьКФайлу + """";
    Конец;
    Запустить("C:\Windows\system32\mstsc.exe",Стр);
    
Конец

Функция Открыть()

    // Открыть директорию с rdp
    Запустить(Компьютеры.Директории("%DATA%"));
    
Конец