// Закрываем активное окно браузера если идет просмотр ролика с запрещенными словами
// запрещенные слова можно редактировать на другом компе в сетевой папке
// дополнительно в текстовые файлы идет запись того что запретили и разрешили к просмотру
ТекЗаголовок = Строки.Нижний(Окна.Заголовок());
Если (Строки.Найти(ТекЗаголовок, "youtube")>0) Тогда
    Текст = "";
    Папка = "\\ИмяПКРодителя\обмен"+ Символы.ОС;
    Текст.Прочитать(Папка+"YouTube список запрещенных слов.txt");
    закрыть = 0;
    Для Стр Из Текст Цикл
        Если (Строки.Найти(ТекЗаголовок, Строки.Нижний(Стр))>0) Тогда
            закрыть = 1;
            Прервать;
        Конец;
    Конец;
    Файл2 = Папка + "YouTube разрешили.txt";
    Если (закрыть) Тогда
        Файл2 = Папка + "YouTube запретили.txt";
        Сообщить("Закрываем окно", ТекЗаголовок);
        Нажать(Клавиши.Кт|Клавиши.F4);
        // Окно.Закрыть();
    Конец;
    Текст2 = "";
    Текст2.Прочитать(Файл2);
    к = Текст2.Количество();
    Текст2.Добавить(ТекЗаголовок);
    Текст2.Свернуть();
    Если (к<>Текст2.Количество()) Тогда
        Текст2.Записать(Файл2);
    Конец;
Конец;