В программе выполняется некое весьма критичное действие. Требуется убедиться что пользователь сознательно хочет выполнения этого действия. Для этого вызывается функция, которая выводит на экран окно, содержащее TextBox, Label и Command. Label содержит инструкцию, в т.ч. в её теле достаточно длинную псевдослучайную строку (произвольная смесь больших и малых латинских букв). Для подтверждения намерения произвести действие пользователь должен набрать эту строку руками в TextBox и кликнуть кнопку (или там завершить ввод Enter-ом, что не суть важно). Есссно если строки не совпадают, функция возвращает CANCEL_ACTION, и нет проблем. Но вот при совпадении строк функция должна вернуть PERFORM_ACTION только в том случае, если весь ввод осуществлялся строго с клавиатуры. Т.е. при использовании Copy-Paste, DragDrop, экранной клавиатуры и пр. функция должна возвращать CANCEL_ACTION.
Вопрос - как? особенно с учетом того что возможны и стирания набранного текста, и выделение части его мышом, и переключение раскладки, и модификаторы (и Shift, и Caps/Num Lock), и еще груда всего - вплоть до переключения в другие приложения и обратно. И вообще - решаема ли задача?

Akina, из Label же нельзя копировать. Так ему точно приходится набирать только ручками.

boevik
Главным образом видимо надо избежать программной обработки - а получить Caption несложно... впрочем получается что и эталонную строку надо прятать...
Просто сгенерил я счас тест-прогу, которая фиксирует вызовы всех методов TextBox-a, разбираюсь в том какие события и с какими параметрами возникают... но уж больно их до фига получается, особенно KeyDown/KeyUp... вот и думаю, мож кто такую или схожую задачу когда решал или с аналогичными вещами разбирался...

Akina, если програмно, то можно и caption прочитать и сгенерить нажатие клавы.
Одним словом, обойти можно.

А вот если вместо label, картинку показывать, да позаковырестее. Тогда прийдется только ручками.
Добавлено @ 17:31
Вот, типа такой картинки.


Ни один OCR не разберет.

boevik
мда-с... наверное все-таки действительно бред... бум мыслить...

Akina, если надумаешь чего... поделись.

Че там думать?

Код

Private n Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = 8 Then    n = n - 1    If n < 0 Then n = 0 Else    n = n + 1 End If End Sub

типа того. Если юзер вставит, то n=1 or 2. Как когда. А ежели писать будет, то... n=Len(Label1.Caption)

Black_Star
Щазз! Ctrl-C+Ctrl-V посимвольно. Или ещё проще - нужное количество кликов мышом в текстбоксе.

Мля... ну сделай проверку на нажатие клавиш через GetAsyncKeyState, если 1й вариант не устраивает.

А вот вам еще идейка
Сохранять историю событий от текстбокса по величине равную длине контрольной строки.
Далее, при проверки, сравнивать вот Эту историю событий.

К примеру, при вставке, история будет содержать только события мыши и/или комбинацию Контрол-Инс и т.д. Есс-но, что это не совпадет с кейкодами нужных буковок.

Как считаете, сработает?