Готовые модули

Для всех
Модули для задач\Директория\Замена типов файлов
Модули для задач\Директория\Переименовать отмеченные
Модули для задач\Директория\Создать архив директории
Модули для задач\Директория\Заменить текст в файлах
Модули для задач\Диск\Заполнить диск пустыми файлами
Модули для действий\Текст\Итого по строкам
Модули для действий\Текст\Сортировать строки
Модули для действий\Текст\Свернуть строки
Модули для действий\Текст\Удалить пустые строки
Модули для действий\Текст\Перевести текст
Модули для действий\Список\Обработка списка
Модули для действий\Группа\Обработка группы
Defy
Модули для действий\Директория\Исправить имена файлов
Модули для действий\Задача\Создать скрипт для автовыполнения задачи
Автосохранение Yandex
AutoLoadTorrents
Анализ объявлений Авито
Faster
Модули для буфера\Разделить буфер обмена
Модули для буфера\Соединить буфер обмена
Настройка реестра Windows
DBI
Модули для задач\БД 1С 8\Выгрузить базу данных
Модули для задач\БД 1С 8\Загрузить базу данных
Модули для действий\Директория\Проверить все обработки
Модули для действий\Модуль 1С\Проверить модуль
Запуск RDP
Модули для 1С\Обновление конфигураций 1С
Модули для 1С\Выгрузка конфигураций 1С в файлы
Модули для 1С\Выгрузка информационных баз 1С


Автосохранение 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);
	Сообщить(Этот.Владелец.Наименование,Стр);
    
Конец

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

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

Конец

  

http://moolex.ru