Автосохранение Yandex
Функция Выполнить()
// Сохранение начальной страницы Яндекс один раз в день
// В свойствах модуля надо выставить Отмечен=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);
Сообщить(Этот.Владелец.Наименование,Стр);
Конец
Функция Таймер()
Выполнить();
Конец