Функция Выполнить()
    
    // Сохранение начальной страницы Яндекс один раз в день
    // В свойствах модуля надо выставить Отмечен=1, Интервал=3600 и Диапазон выполнения в часах=01-02
    // Opera Portable можно скачать здесь portableapps.com/apps/internet/opera_portable
    // Если браузер запускается в свернутом виде, то запустите браузер вручную и не закрывайте.
    
    Пауза         = 5; // пауза между командами, зависит от мощности и загруженности компьютера
    ПутьКБраузеру = "C:\Programs\OperaPortable\App\Opera\launcher.exe"; // здесь можно использовать любой свой браузер
    ПутьКСайту    = "yandex.ru";
	ПутьКАрхиву   = "C:\Yandex\";
    Если (Файлы.Есть(ПутьКБраузеру, 1)=0) Тогда Возврат; КонецЕсли;
    Запустить(ПутьКБраузеру, ПутьКСайту);
    Подождать(Пауза);
    Если (Строки.Найти(Окна.Заголовок, "Opera")=0) Тогда
	    // если окно браузера было свернуто, то попытаемся развернуть
        Окна.Показать(,"Chrome_WidgetWin_1");
		Подождать(Пауза);
    Конец;
    Если (Строки.Найти(Окна.Заголовок, "Opera")=0) Тогда
        Сообщить("Браузер не запустился или окно не активно");
        Возврат;
    Конец;
    Подождать(Пауза*2);
    Нажать(Клавиши.Кт|Клавиши.Ы);
    Подождать(Пауза);
    Стр = ПутьКАрхиву + "YandexRu-"+Моменты.Строка(Моменты.Текущий(),"гггг-ММ-дд-чч-мм-сс")+".html";
    Ввести(Стр);
    Подождать(Пауза);
    Нажать(Клавиши.Ввод);
    Подождать(Пауза*2);
    Нажать(Клавиши.Кт|Клавиши.F4);
	Сообщить(Этот.Владелец.Наименование,Стр);
    
Конец

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

    Выполнить();

Конец