Можно просто добавить на панель инструментов или
заменить стандартную блокировку с помощью //infostart.ru/projects/602/
Вступайте в нашу телеграмм-группу Инфостарт
Красивая временная блокировка (7.7+Formex)
23.04.09
Администрирование - Информационная безопасность
Просто красивая блокировка сеанса
Файлы
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний
Оформите подписку на компанию для решения рабочих задач
Оформить подписку и скачать решение со скидкойСм. также
Разработка внешних компонент WEB-интеграция Программист 1С v7.7 1C77 Платные (руб)
Компонента HttpSrv7 позволяет создавать веб-сервисы в среде 1С 7.7 и даже, используя файлы HTML, несложные веб-сайты. С помощью нее можно обеспечить доступ к данным 1С 7.7 из браузера. Дополнительно используя компоненту HTTP_Async или синхронный клиент HTTP для 1С 7.7 (публикация № 1152364) можно наладить обмен данными между удаленными информационными базами. С помощью компоненты HTTP_Async можно асинхронно отправлять HTTP-запросы к сайтам, веб-сервисам (в т.ч. к HTTPSrv7) и обрабатывать ответы по мере их поступления. Компонента GISMT в дополнение к HTTP_Async имеет функцию цифровой подписи в формате Base64 и, таким образом, имеет все возможности для работы с API ГИС МТ "Честный знак" непосредственно из среды 1С 7.7.
2000 руб.
27.05.2022 9981 26 18
27.05.2022
37
26
18
9981
Разработка внешних компонент Программист 1С v7.7 1C77 Абонемент ($m)
Внешняя компонента позволяет в среде 1С 7.7 работать с бинарными файлами: анализировать их, создавать новые, копировать, корректировать и комбинировать.
1 стартмани
10.06.2025 263 1 mdbruyfn 0
Разработка внешних компонент Программист 1С v7.7 1C77 Абонемент ($m)
Внешняя компонента позволяет в среде 1С 7.7 работать с ZIP-архивами: создавать архивы, читать их и разархивировать.
1 стартмани
29.05.2025 463 2 mdbruyfn 2
Разработка внешних компонент Программист 1С v7.7 1C77 Абонемент ($m)
Компонента позволяет в среде 1С 7.7 генерировать двухмерный QR код из любого текста длиною до 1800 символов и сохранять его в файле BMP формата. Из файла он может быть загружен в объект 1С "Картинка".
1 стартмани
29.01.2025 900 4 mdbruyfn 4
Компонента ExchangeStruc (Структура Обмена). Прямой обмен данными между потоками, сессиями и окнами.
Разработка внешних компонент Системный администратор Программист 1С v7.7 1С v8.3 1C v8.2 1С v8.1 Россия Платные (руб)
Аддон "Структура Обмена" (ExchangeStruc) - это компонента, которая обеспечивает доступ к разделяемым процессом структурам, аналогичным структурам 1С. Обеспечивает прозрачную передачу данных примитивных типов, в том числе Двоичных данных, в режиме Реального времени между разными контекстами (формами) или потоками одного процесса. В перспективе функционал будет расширен для обмена между процессами, даже разных версий платформ. Совместим с версиями Windows рабочих станций и серверов, с платформами 1С разных версий и релизов в режиме Native начиная с 8.2, и в режиме COM начиная с версий 7.7. По скорости чтения и записи лишь немногим уступает стандартной структуре 1С. НОВОЕ: Добавлен функционал регистрации компоненты COM в качестве OLE Auto (COMОбъект) для поддержки её работы в серверах старых версий 1С: 8.0 и 8.1, где работа с компонентами исключена. Теперь можно коммуникацию с Фоновыми заданиями на этих версиях проводить.
7200 руб.
19.04.2023 5634 1 0
Разработка внешних компонент Программист 1С v7.7 Платные (руб)
Компонента для выбора значения из больших списков значений.
1200 руб.
02.12.2021 6619 2 19
Разработка внешних компонент Файловый обмен (TXT, XML, DBF), FTP Программист 1С v7.7 1C77 Абонемент ($m)
Эта внешняя компонента Base64.dll предназначена для платформы 1С версии 7.7. Используется для преобразования файлов из/в кодировку Base64 из встроенного языка 1С Предприятие. Компонента тестировалась на базе конфигурации Бухгалтерский учет для Казахстана, редакции 7.70.257.
10 стартмани
06.04.2021 10685 14 softmaker 13
06.04.2021
5
14
13
10685
Разработка внешних компонент Защита ПО и шифрование Программист 1С v7.7 Абонемент ($m)
Цифровые подписи, шифрование, просмотр сертификатов ключей ЭЦП, работа с различными криптопровайдерами (в т.ч. КриптоПРО ГОСТ 2012) в 1С 7.7.
1 стартмани
08.06.2020 9888 28 mdbruyfn 10
Комментарии
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(12) Зайти в конфигуратор - Открыть Конфигурацию - Интерфейсы - нужный интерфес - панели инструментов - там добавляешь пункт "Отчеты - Отчеты.ВнешнийОткрыть" на вкладке дополнительно указываешь путь к файлу (лучше положить его в ExtForms), назначеашь иконку/комбинацию клавиш
У меня ошибка такая.. У меня не прописан католог пользователя..
FN_LOCK.ERT(76)}: Поле агрегатного объекта не обнаружено (ПолучитьХэшПароляПользователя)
ХешПравильногоПароля=Сервис.ПолучитьХэшПароляПользователя(ИмяПользователя(), КаталогИБ());
FN_LOCK.ERT(76)}: Поле агрегатного объекта не обнаружено (ПолучитьХэшПароляПользователя)
ХешПравильногоПароля=Сервис.ПолучитьХэшПароляПользователя(ИмяПользователя(), КаталогИБ());
Красиво. Только размеры нужно подправить. Красота должна быть красивой до конца. :))
Идея - супер! Автору - уважуха и респект!
Провел несколько экспериментов и сделал для себя открытие. Оказывается, пароль в 1С 7.7 регистронезависимый! :((((
Столько лет я верил что регистр имеет значение ...
Исходя из этого, при проверке можно оставить только переменные: <ХешПравильногоПароля> и <ХешПароля2>. И условие упростить:
Если ХешПравильногоПароля=ХешПароля2 Тогда
... снять блокировку ...
КонецЕсли;
Идея - супер! Автору - уважуха и респект!
Провел несколько экспериментов и сделал для себя открытие. Оказывается, пароль в 1С 7.7 регистронезависимый! :((((
Столько лет я верил что регистр имеет значение ...
Исходя из этого, при проверке можно оставить только переменные: <ХешПравильногоПароля> и <ХешПароля2>. И условие упростить:
Если ХешПравильногоПароля=ХешПароля2 Тогда
... снять блокировку ...
КонецЕсли;
(39) Нет, нужно перехватывать еще и хоткеи...
У меня используется обработка - так если вызывать с помощью хоткея какой-нибудь журнал - то он открывается под "экраном блокировки", что есть не очень-то красиво...
то же самое относиться к хоткеям на кнопках и пунктах меню...
У меня используется обработка - так если вызывать с помощью хоткея какой-нибудь журнал - то он открывается под "экраном блокировки", что есть не очень-то красиво...
то же самое относиться к хоткеям на кнопках и пунктах меню...
(40) я комбинации горячих клавиш сам нигде не назначал, кроме тех, что по умолчанию заложены в конигурацию. Поэтому, у меня ни один хоткей под блокировкой не срабатывает.
Но уж сильно большой список нужных клавиш у тебя получился.
Я бы пошел по принципу "чего меньше". Меньше перечислений нужных или НЕ нужных. Проследил бы закономерность всех хоткеев, например, они все используют сочетание Контр+Шифт, или везде используются функциональные (F?) и т.д.
Но не подумай что я тебя учу? Тем более, что обработка уже написана и работает!
Хочу отметить - написана хорошо даже для не опытных или начинающих - только скачай и запускай! Это признак профессионализма!
Но уж сильно большой список нужных клавиш у тебя получился.
Я бы пошел по принципу "чего меньше". Меньше перечислений нужных или НЕ нужных. Проследил бы закономерность всех хоткеев, например, они все используют сочетание Контр+Шифт, или везде используются функциональные (F?) и т.д.
Но не подумай что я тебя учу? Тем более, что обработка уже написана и работает!
Хочу отметить - написана хорошо даже для не опытных или начинающих - только скачай и запускай! Это признак профессионализма!
Красиво, но идейно не вполне верно - отсутствующий сотрудник может оставить на экране важные сведения, каковые всё равно видно, а это уязвимость. Лучше, если занавеска будет совсем сплошная, чтоб изображение рабочего окна 1С стало нечитабельным.
(41) там легко поправить в коде ищи строки:
Для х=1 по 220 Цикл
х=х+14;
Форм.Прозрачность=х;
КонецЦикла;
Меняй на
Для х=1 по 250 Цикл
х=х+14;
Форм.Прозрачность=х;
КонецЦикла;
Форм.Прозрачность=255;
P.S. у нас в компании важные данные вообще запрещено оставлять на экране даже при блокировке, в остальных случаях - наоборот присутствует определенная открытость - сотрудник временно отошел, но он работает и даже видно над чем.
Для х=1 по 220 Цикл
х=х+14;
Форм.Прозрачность=х;
КонецЦикла;
Меняй на
Для х=1 по 250 Цикл
х=х+14;
Форм.Прозрачность=х;
КонецЦикла;
Форм.Прозрачность=255;
P.S. у нас в компании важные данные вообще запрещено оставлять на экране даже при блокировке, в остальных случаях - наоборот присутствует определенная открытость - сотрудник временно отошел, но он работает и даже видно над чем.
Предлагаю при включении блокировки в цикл вставить задержку на 500 миллисекунд. Или другое число, кому как нравится :)
"...
Для х=1 по 190 Цикл
х=х+14;
Форм.Прозрачность=х;
ВыполнитьЗадержку(500);
КонецЦикла;
..."
Когда экран затемняется постепенно, то очень красиво получается.
А для разблокировки задержка не нужна. Работать надо ведь быстро, правильно? :)
Вот код функции:
//-----------------------------------------------
Функция ВыполнитьЗадержку(мс=1000) Экспорт
// Устанавливает задержку в указанных миллисекундах
Попытка
TextScript="
|Function pause(ms)
| WScript.Sleep ms
|End Function
|";
ScrptCtrl=CreateObject("MSScriptControl.ScriptControl");
ScrptCtrl.Language = "vbscript";
ScrptCtrl.AddCode(TextScript);
ScrptCtrl.Run("pause",1000);
ScrptCtrl=Пусто;
Возврат 1;
Исключение
Возврат 0;
КонецПопытки;
КонецФункции // ВыполнитьЗадержку
"...
Для х=1 по 190 Цикл
х=х+14;
Форм.Прозрачность=х;
ВыполнитьЗадержку(500);
КонецЦикла;
..."
Когда экран затемняется постепенно, то очень красиво получается.
А для разблокировки задержка не нужна. Работать надо ведь быстро, правильно? :)
Вот код функции:
//-----------------------------------------------
Функция ВыполнитьЗадержку(мс=1000) Экспорт
// Устанавливает задержку в указанных миллисекундах
Попытка
TextScript="
|Function pause(ms)
| WScript.Sleep ms
|End Function
|";
ScrptCtrl=CreateObject("MSScriptControl.ScriptControl");
ScrptCtrl.Language = "vbscript";
ScrptCtrl.AddCode(TextScript);
ScrptCtrl.Run("pause",1000);
ScrptCtrl=Пусто;
Возврат 1;
Исключение
Возврат 0;
КонецПопытки;
КонецФункции // ВыполнитьЗадержку
а у меня сделано так
-==Глобальный модуль==-
//ЛОКАЛЬНЫЕ ПЕРЕМЕННЫЕ
Перем ЕстьАктивность; //нужна для определения активности пользователя
//глобальная процедура внешней компоненты FormEx
//__________________________________________________________
Процедура ПриНажатииКнопкиКлавиатуры(Конт, КодКл, кнАльт, кнШифт, кнКонтрол, Символ)
ЕстьАктивность = 1;
КонецПроцедуры
//__________________________________________________________
Процедура ЗаблокироватьПрограмму()
//проверка активности пользователя
//в конце каждой минуты флаг активности выставляем в ноль
//если за минуту активность была то время неактивности обнуляем
//иначе время неактивности накапливаем
//как только время неактивности достигает значения переменной
//КолвоМинутДоБлокировки - блокируем программу.
Если ПустоеЗначение(глПользователь.КолвоМинутДоБлокировки) = 1 Тогда
Возврат;
КонецЕсли;
Если ЕстьАктивность = 0 Тогда
ВремяНеактивностиПользователя = 1 + ВремяНеактивностиПользователя;
Иначе
ВремяНеактивностиПользователя = 1;
КонецЕсли;
Если ВремяНеактивностиПользователя = глПользователь.КолвоМинутДоБлокировки Тогда //КолвоМинутДоБлокировки Тогда
Если глПрограммаЗаблокирована = 0 Тогда
глПрограммаЗаблокирована = 1;
ОткрытьФормуМодально("Обработка.ПроверкаПароля", "Блокировка");
КонецЕсли;
КонецЕсли;
ЕстьАктивность = 0;
КонецПроцедуры // ЗаблокироватьПрограмму
//__________________________________________________________
Процедура парамОбработкаОжидания()
ЗаблокироватьПрограмму();
КонецПроцедуры // парамОбработкаОжидания
//__________________________________________________________
Процедура ПриНачалеРаботыСистемы()
Если ЗагрузитьВнешниеКомпоненты() = 0 Тогда
СтатусВозврата(0);
Возврат;
КонецЕсли;
Если глПриНачалеРаботыСистемы() <> 1 Тогда
СтатусВозврата(0);
Возврат;
КонецЕсли;
//вызов процедуры парамОбработкаОжидания каждые 60 секунд (60000мС)
глСервис.ОбработкаОжидания("парамОбработкаОжидания", 60000);
КонецПроцедуры // ПриНачалеРаботыСистемы
-==Глобальный модуль==-
//ЛОКАЛЬНЫЕ ПЕРЕМЕННЫЕ
Перем ЕстьАктивность; //нужна для определения активности пользователя
//глобальная процедура внешней компоненты FormEx
//__________________________________________________________
Процедура ПриНажатииКнопкиКлавиатуры(Конт, КодКл, кнАльт, кнШифт, кнКонтрол, Символ)
ЕстьАктивность = 1;
КонецПроцедуры
//__________________________________________________________
Процедура ЗаблокироватьПрограмму()
//проверка активности пользователя
//в конце каждой минуты флаг активности выставляем в ноль
//если за минуту активность была то время неактивности обнуляем
//иначе время неактивности накапливаем
//как только время неактивности достигает значения переменной
//КолвоМинутДоБлокировки - блокируем программу.
Если ПустоеЗначение(глПользователь.КолвоМинутДоБлокировки) = 1 Тогда
Возврат;
КонецЕсли;
Если ЕстьАктивность = 0 Тогда
ВремяНеактивностиПользователя = 1 + ВремяНеактивностиПользователя;
Иначе
ВремяНеактивностиПользователя = 1;
КонецЕсли;
Если ВремяНеактивностиПользователя = глПользователь.КолвоМинутДоБлокировки Тогда //КолвоМинутДоБлокировки Тогда
Если глПрограммаЗаблокирована = 0 Тогда
глПрограммаЗаблокирована = 1;
ОткрытьФормуМодально("Обработка.ПроверкаПароля", "Блокировка");
КонецЕсли;
КонецЕсли;
ЕстьАктивность = 0;
КонецПроцедуры // ЗаблокироватьПрограмму
//__________________________________________________________
Процедура парамОбработкаОжидания()
ЗаблокироватьПрограмму();
КонецПроцедуры // парамОбработкаОжидания
//__________________________________________________________
Процедура ПриНачалеРаботыСистемы()
Если ЗагрузитьВнешниеКомпоненты() = 0 Тогда
СтатусВозврата(0);
Возврат;
КонецЕсли;
Если глПриНачалеРаботыСистемы() <> 1 Тогда
СтатусВозврата(0);
Возврат;
КонецЕсли;
//вызов процедуры парамОбработкаОжидания каждые 60 секунд (60000мС)
глСервис.ОбработкаОжидания("парамОбработкаОжидания", 60000);
КонецПроцедуры // ПриНачалеРаботыСистемы
54.>ЗаблокироватьПрограмму();
при нективности. Посмешил. У меня стоит ЗавершитьРаботуСистемыНах() ибо не фиг там неактивному торчать. И бокировать у менеджера только 1С не вижу смысла.
Боликровать надо комп, решается скрин-сейвером с паролем. А тех манагеров, у которых он не стоит, у нас на первый раз предупреждают, на второй - выгоняют
при нективности. Посмешил. У меня стоит ЗавершитьРаботуСистемыНах() ибо не фиг там неактивному торчать. И бокировать у менеджера только 1С не вижу смысла.
Боликровать надо комп, решается скрин-сейвером с паролем. А тех манагеров, у которых он не стоит, у нас на первый раз предупреждают, на второй - выгоняют
собстно там просто надо в процедуре ЗаблокироватьПрограмму() убрать первое условие вначале и добавить добавить условие на проверку времени неактивности со значением константы
//__________________________________________________________
Процедура ЗаблокироватьПрограмму()
//проверка активности пользователя
//в конце каждой минуты флаг активности выставляем в ноль
//если за минуту активность была то время неактивности обнуляем
//иначе время неактивности накапливаем
//как только время неактивности достигает значения переменной
//КолвоМинутДоБлокировки - блокируем программу.
Если ЕстьАктивность = 0 Тогда
ВремяНеактивностиПользователя = 1 + ВремяНеактивностиПользователя;
Иначе
ВремяНеактивностиПользователя = 1;
КонецЕсли;
Если ВремяНеактивностиПользователя = глПользователь.КолвоМинутДоБлокировки Тогда
Если глПрограммаЗаблокирована = 0 Тогда
глПрограммаЗаблокирована = 1;
ОткрытьФормуМодально("Обработка.ПроверкаПароля", "Блокировка");
КонецЕсли;
КонецЕсли;
Если ВремяНеактивностиПользователя > Константа.КолвоМинутДоВыходаПриНеактивности Тогда
ЗавершитьРаботуСистемы(0);
КонецЕсли;
ЕстьАктивность = 0;
КонецПроцедуры // ЗаблокироватьПрограмму
//__________________________________________________________
Процедура ЗаблокироватьПрограмму()
//проверка активности пользователя
//в конце каждой минуты флаг активности выставляем в ноль
//если за минуту активность была то время неактивности обнуляем
//иначе время неактивности накапливаем
//как только время неактивности достигает значения переменной
//КолвоМинутДоБлокировки - блокируем программу.
Если ЕстьАктивность = 0 Тогда
ВремяНеактивностиПользователя = 1 + ВремяНеактивностиПользователя;
Иначе
ВремяНеактивностиПользователя = 1;
КонецЕсли;
Если ВремяНеактивностиПользователя = глПользователь.КолвоМинутДоБлокировки Тогда
Если глПрограммаЗаблокирована = 0 Тогда
глПрограммаЗаблокирована = 1;
ОткрытьФормуМодально("Обработка.ПроверкаПароля", "Блокировка");
КонецЕсли;
КонецЕсли;
Если ВремяНеактивностиПользователя > Константа.КолвоМинутДоВыходаПриНеактивности Тогда
ЗавершитьРаботуСистемы(0);
КонецЕсли;
ЕстьАктивность = 0;
КонецПроцедуры // ЗаблокироватьПрограмму
Меня так и не пускает обратно:
ХешПравильногоПароля=Сервис.ПолучитьХэшПароляПользователя(ИмяПользователя(), КаталогИБ());
{C:\DOCUMENTS AND SETTINGS\NEVASILEVSKIY\МОИ ДОКУМЕНТЫ\1С БАЗЫ\BASE КУРГАН\BASE\EXTFORMS\FORMEX.GRP\FN_LOCK.ERT(106)}: Поле агрегатного объекта не обнаружено (Полу
И чего не так? Скачал отдельно длл-ку, с офф.сайта - ни к черту. Все описанные рекомендации - делал.
ХешПравильногоПароля=Сервис.ПолучитьХэшПароляПользователя(ИмяПользователя(), КаталогИБ());
{C:\DOCUMENTS AND SETTINGS\NEVASILEVSKIY\МОИ ДОКУМЕНТЫ\1С БАЗЫ\BASE КУРГАН\BASE\EXTFORMS\FORMEX.GRP\FN_LOCK.ERT(106)}: Поле агрегатного объекта не обнаружено (Полу
И чего не так? Скачал отдельно длл-ку, с офф.сайта - ни к черту. Все описанные рекомендации - делал.
в 1С - Помощь - О программе - Закладка Formex - там есть путь к внешней компоненте...
в твоем случае должен быть
C:\DOCUMENTS AND SETTINGS\NEVASILEVSKIY\МОИ ДОКУМЕНТЫ\1С БАЗЫ\BASE КУРГАН\BASE\EXTFORMS\FORMEX.GRP\FORMEX.DLL
в твоем случае должен быть
C:\DOCUMENTS AND SETTINGS\NEVASILEVSKIY\МОИ ДОКУМЕНТЫ\1С БАЗЫ\BASE КУРГАН\BASE\EXTFORMS\FORMEX.GRP\FORMEX.DLL
(80) Добавлю к (79)
Не просто стабильная сборка, но в результате простого запуска 1С++ вся система 1С начнет работать быстрее :)
Например, СоздатьОбъект() будет работать намного быстрее, чем без 1С++ или даже со старыми версиями 1С++, где уже было ускорение.
И т.д. и т.п.
Не просто стабильная сборка, но в результате простого запуска 1С++ вся система 1С начнет работать быстрее :)
Например, СоздатьОбъект() будет работать намного быстрее, чем без 1С++ или даже со старыми версиями 1С++, где уже было ускорение.
И т.д. и т.п.
Автор:
Подписаться
Для получения уведомлений о новых публикациях автора подключите телеграм бот: Инфостарт бот
Публикация:
№ 19714
Создание 21.04.09 12:57
Обновление 23.04.09 00:00
Статистика:
Просмотры 27585
Загрузки 736
Рейтинг
49
Комментарии 90
Характеристики:
Код открыт Не указано
Рубрики Информационная безопасность Разработка внешних компонент
Кому
Системный администратор
,
Программист
Тип файла Внешняя обработка (ert,epf)
Платформа
Оперативный учет 7.7
,
Бухгалтерский учет 7.7
,
Расчет 7.7
Конфигурация 1C77
Операционная система Не имеет значения
Страна Россия
Отрасль Не имеет значения
Налоги Не имеет значения
Вид учета Не имеет значения
Доступ к файлу Абонемент ($m)
