// Для работы необходимо установить Chrome и расширение Войснот по адресу voicenote.in
// размеры окна Войснот должны быть не менее 1000 на 500 пикселей
ИдОкна = Окна.Идентификатор("Войснот", "Chrome_WidgetWin_1");
Если (Окна.Есть(ИдОкна)) Тогда
    ВД1 = Этот.Определить(0, Объекты.Текст,       Свойства.Наименование, "Заголовок активного окна");
    ВД2 = Этот.Определить(0, Объекты.Текст,       Свойства.Наименование, "Текст активного окна");
    X   = Окна.Лево(ИдОкна)+ Окна.Ширина(ИдОкна)- 30;
    Y   = Окна.Верх(ИдОкна)+ Окна.Высота(ИдОкна)- 425;
    Если (Строки.Найти(Окна.Заголовок(), "Войснот")=1) Тогда
        // если текущее окно сам Войснот, выделяем весь текст и вставляем в редактор(окно которое было активно)
        Если (ВД1.Текст<>"") Тогда
            Буфер.Запомнить();
            Нажать(Клавиши.Кт|Клавиши.A);
            Нажать(Клавиши.Кт|Клавиши.X);
            Подождать(1);
            // отключим запись голосом
            Мышь.Запомнить();
            Нажать(Клавиши.Левая, 1, X, Y);
            Мышь.Восстановить();
            // вставим текст в ранее активный редактор
            Окна.Активизировать(ВД1.Текст, ВД2.Текст);
            Нажать(Клавиши.Кт|Клавиши.V);
            Буфер.Восстановить();
        Конец;
    Иначе // в любом редакторе
        ВД1.Текст = Окна.Заголовок();
        ВД2.Текст = Окна.Класс();
        // сделаем активным Войснот
        Окна.Показать(ИдОкна);
        Окна.Активизировать(ИдОкна);
        // включим запись голосом
        Подождать(1);
        Мышь.Запомнить();
        Нажать(Клавиши.Левая, 1, X, Y);
        Мышь.Восстановить();
        // можно что-то сказать
    Конец;
Иначе
    Напомнить("Войснот не запущен");
Конец;