Обработка сделана на платформе 8.2, но в режиме совместимости 8.1.
За основу была взята "коллекция ГБ" (//infostart.ru/public/74947/), но что мешает прилепить генератор случайных чисел и дамам открытки?
Так как генератор случайных чисел работает на разнице дат ТекущееВремя - НачалоСуток, то быстрое нажатие кнопки "Ещё!" иногда выдает ту же картинку.
Как это исправить:
Первую строку модуля формы заменить на Перем НомерКартинки;, а в процедуре УстановитьКартинкуПоНомеру() эту строку убрать.
В строке, где инициируется новая последовательность, добавить эту переменную. Должно получиться вот что:
НомерПоследовательностиГСЧ = (ТекущаяДата() - НачалоДня(ТекущаяДата())) + НомерКартинки;
Чтобы поместить обработку в автозагрузку, надо в модуле приложения в процедуре ПриНачалеРаботыСистемы() дописать такую строчку:
Обработки.Поздравлялка8марта.ПолучитьФорму().Открыть();
Это если обработка встроенная, заодно проверить на доступность прав и по физлицу пользователя проверить пол м/ж.
Я сделал это, используя ПланВидовХарактеристик.НастройкиПользователей, создав новый предопределенный элемент и в модуле приложения проверял эту настройку:
Если УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "ЗапуститьПоздравлялку") = Истина Тогда
Обработки.Поздравлялк8марта.ПолучитьФорму().Открыть();
КонецЕсли;
P.S. За идею с картинками благодарю Sirruf (//infostart.ru/profile/47009/)
Раз уж я взял без спроса его идею, прошу также отблагодарить и автора оригинала
//infostart.ru/public/74947/
Обновление: добавил и для платформы 8.1