Секретный ввод пароля.

Копировать

Перем Стр;

Процедура ЗапросПароля(параметр1) Экспорт
	Контекст = Новый Структура();
	Контекст.Вставить("МояСтруктура", параметр1);
	ЗагрузитьСценарийИзСтроки(Стр, Контекст);
КонецПроцедуры

Стр = "
|Перем ТФ, ПолеВвода1;
|
|Процедура ПолеВвода1_КлавишаНажата() Экспорт
|	Если ТФ.АргументыСобытия.Клавиша = ТФ.Клавиши.Enter Тогда
|		МояСтруктура.Пароль = ПолеВвода1.Текст;
|		ТФ.Завершить();
|	КонецЕсли;
|КонецПроцедуры
|
|ПодключитьВнешнююКомпоненту(""C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll"");
|ТФ = Новый ТерминалФормыДляОдноСкрипта();
|
|ПолеВвода1 = ТФ.Верхний.Добавить(ТФ.ПолеВвода("""", , , 30));
|ПолеВвода1.Центр();
|ПолеВвода1.Секрет = Истина;
|ПолеВвода1.КлавишаНажата = ТФ.Действие(ЭтотОбъект, ""ПолеВвода1_КлавишаНажата"", ПолеВвода1);
|
|ТФ.Запуск();
|";

МояСтруктура = Новый Структура("Пароль", "");
МассивПараметров = Новый Массив(1);
МассивПараметров[0] = МояСтруктура;
Задание = ФоновыеЗадания.Выполнить(ЭтотОбъект, "ЗапросПароля", МассивПараметров);
Задание.ОжидатьЗавершения();

Сообщить("Пароль = " + МояСтруктура.Пароль);
// Ожидаем пароль.
Пока МояСтруктура.Пароль = "" Цикл
	Приостановить(1000);
КонецЦикла;

// // Если нужно не завершаем сценарий.
// Пока Истина Цикл
	// Приостановить(1000);
// КонецЦикла;