Разрабатывалось все под 8.2, по идее должно подходить к любой типовой конфигурации на обычных формах, на управляемых тоже прикрутится с некоторыми правками: Код простейший до безобразия, но на стабильность могут быть жалобы, ввиду того, что в данном коде присутствует неуправляемый и потенциально нестабильный элемент, а именно сайт 1С :)
Это зарисовка для встраивания, поэтому лицензия вида бери-дари и товар обмену и возврату не подлежит...
Как работает:
открыл в типовой конфигурации (обычные формы), нажал кнопку Выполнить, получил сообщение "Актуальный релиз" (все норм, можно не трепыхаться) или "Вышел новый релиз и номер релиза" (пора браться за работу).
код ниже:
//соединяемся
Соединение = Новый HTTPСоединение("downloads.1c.ru");
Запрос = Новый HTTPЗапрос("release_info/categ_js.jsp?GroupID=88");
Попытка
Ответ = Соединение.Получить(Запрос);
//получаем ответ, не особо люблю файлы плодить, поэтому в память получаем
Исключение
Сообщить("Не удалось получить версию!!!");
возврат;
КонецПопытки;
ТекстХТМЛ = Ответ.ПолучитьТелоКакСтроку(КодировкаТекста.ANSI);
//Сообщить(ТекстХТМЛ);
НачалоПозицииРелиза = Найти(ТекстХТМЛ, Метаданные.Синоним);
Если НачалоПозицииРелиза = 0 Тогда
Сообщить("Не удалось получить версию!!!");
возврат;
Иначе
НачалоПозицииРелиза = НачалоПозицииРелиза + СтрДлина(Метаданные.Синоним)+ 55;
НовыйРелиз = Сред(ТекстХТМЛ, НачалоПозицииРелиза, 8);
ТекущийРелиз = Метаданные.Версия;
Если НовыйРелиз = ТекущийРелиз Тогда
Сообщить("Актуальный релиз");
Иначе
Сообщить("ВЫШЕЛ НОВЫЙ РЕЛИЗ !!! "+НовыйРелиз);
КонецЕсли;
КонецЕсли;
Для особо ленивых обработка прилагается...
Вступайте в нашу телеграмм-группу Инфостарт