Определить нажатие неожидаемой клавиши

[Space]

Как определить нажата ли в текущий момент любая клавиша глобально в системе, кроме ожидаемой, без перебора всех клавиш?

Код: Выделить всё

    For VirtualKeyCode = 0 To 255
     if VirtualKeyCode=KeyWait Then GoTo 20
     If GetAsyncKeyState(VirtualKeyCode) <= -32767 Then
      GoTo 100    'нажата не ожидаемая клавиша
     End If
20   Next

[Xcode]

offtopic: Боже мой... теперь я убедился почему не рекомендуют использовать GoTo.

[arvitaly]

GoTo не рекомендуют только тем кто не умеет им пользоваться (школьникам и студентам первых курсов), как в данном примере.

[Space]

что вам не нравится?

[awl100Alex]

Как определить нажата ли в текущий момент любая клавиша глобально в системе...

Хук на WH_KEYBOARD_LL ставится глобально прямо из текущего приложения. Определить можно что хочешь!

[Space]

ну, я потому и парюсь, что мне хук не подходит. Каспер ругается. И в цикле ругается. А мне всего-то надо отлавливать глобально комбинацию Ctrl+Pass для активации окна.
А где эти красопеты, которым мой GoTo не понравился?

[awl100Alex]

Каспер ругается на хук???

[iGrok]

А мне всего-то надо отлавливать глобально комбинацию Ctrl+Pass для активации окна.

А чем тебе RegisterHotkey не мил?

А Goto у тебя реально странный. Впрочем, поскольку весь цикл не вижу - точно не скажу...

[Space]

да чем он странный?
RegisterHotkey там же вроде только 1 клавиша Ctrl+Key , да и тормозной он! А мне надо типа Ctrl+123:)

[awl100Alex]

А мне надо типа Ctrl+123:)

Нажми последовательно не отпуская клавишь - Ctrl, 1, 2, 3...

Код: Выделить всё

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Timer1_Timer()
Dim Ctrl, Key1, Key2 As Byte
If GetAsyncKeyState(vbKeyControl) < 0 Then Ctrl = 1
If GetAsyncKeyState(vbKey1) < 0 Then Key1 = 1
If GetAsyncKeyState(vbKey2) < 0 Then Key2 = 1
If GetAsyncKeyState(vbKey3) < 0 And Ctrl = 1 And Key1 = 1 And Key2 = 1 _
Then MsgBox "Нажаты Ctrl+1+2+3"
End Sub

P.S.
А так чтобы без перебора... наверное, не получится. Да и зачем???

[Space]

а мне надо отпуская клавиши и пароль заранее неизвестен, его ставит юзер
Пипец, я дождусь объяснения по поводу наездов на мой GoTo?

[iGrok]

Мда.. Тогда RegisterHotkey реально не в тему. Я не сразу понял, что тебе не одну клавишу надо, а целый пароль набирать.
По хорошему, это всё-таки надо делать через хук..

Пипец, я дождусь объяснения по поводу наездов на мой GoTo?

Ну поскольку я не вижу, что там у тебя после цикла и до метки 100: - не факт, что наезд будет оправданным.
Но почему, собственно, не так?

Код: Выделить всё

For VirtualKeyCode = 0 To 255
  if VirtualKeyCode <> KeyWait AND GetAsyncKeyState(VirtualKeyCode) <= -32767 Then Exit For
Next


Ну и остальную логику с метками переделать соответствующе..
Иначе это же реально спагетти а не код..

[Space]

что за спагетти? Я уже привык так писать, чтобы брейкпоинты ставить. А насчёт 100, я не такой наивный, чтобы ставить код ещё после Next и перед 100, если это имелось ввиду - опять таки привычка старого программування ходить по меткам А для GoTo 20 есть замена?

[Xcode]

что за спагетти? Я уже привык так писать, чтобы брейкпоинты ставить. А насчёт 100, я не такой наивный, чтобы ставить код ещё после Next и перед 100, если это имелось ввиду - опять таки привычка старого программування ходить по меткам А для GoTo 20 есть замена?

Для 20:

Код: Выделить всё

For VirtualKeyCode = 0 To 255
     if VirtualKeyCode<>KeyWait Then
        If GetAsyncKeyState(VirtualKeyCode) <= -32767 Then
        GoTo 100    'нажата не ожидаемая клавиша
       End If
     End If
Next


Есля правильно понял насчет метки 100, то код выглядит так:

Код: Выделить всё

    For VirtualKeyCode = 0 To 255
     if VirtualKeyCode=KeyWait Then GoTo 20
     If GetAsyncKeyState(VirtualKeyCode) <= -32767 Then
      GoTo 100    'нажата не ожидаемая клавиша
     End If
20   Next
100
...any code...


Тогда делай так:

Код: Выделить всё

For VirtualKeyCode = 0 To 255
     if VirtualKeyCode<>KeyWait Then
        If GetAsyncKeyState(VirtualKeyCode) <= -32767 Then
        Exit For    'нажата не ожидаемая клавиша
       End If
     End If
Next


А вообще, я имел ввиду что в общем случае использование GoTo затрудняет понимание кода.

[awl100Alex]

Давай расставим точки над “и”...

...мне всего-то надо отлавливать глобально комбинацию Ctrl+Pass для активации окна.
...
...мне надо типа Ctrl+123:)
...
...хук не подходит. Каспер ругается...

То есть, из всего изложенного... можно понять: есть некая сверхсекретная форма твоего приложения. Доступ к ней (активация) через пароль. Нужно написать логику при которой пользователь нажав Ctrl далее набирает свой пароль, но если в ходе набора будет нажата «неожидаемая» клавиша, то выход... Правильно?

[Space]

правильно. Через форму ввода пароля делать не стал, т.к. нужно оперативное скрытие/показ. На мой вариант Каспер ругается, дескать кейлог. Мне это очень не нравится. В принципе, не хотелось бы откатываться на форму ввода пароля (лишний клик, нажатие клавиш).

[awl100Alex]

Не думаю, что это будет правильно.
Может получится так, что пользователь нажав Ctrl в процессе набора пароля случайно нажмет HotKey активной в данный момент проги. А вот что последует за этим HotKey какой-нибудь проги, остается только гадать.
Тоже самое, если Ctrl+Alt, Ctrl+Alt+Shift, Ctrl+Shift – не имеет значения, всё равно случайно может сработать HotKey.
Так что, лучше все-таки хук, а у Каспера запиши свою прогу в доверенную зону и ругня прекратится.

[arvitaly]

Пипец, я дождусь объяснения по поводу наездов на мой GoTo?

Ссори, весна.. коты блохастые котят себе куют, ну и у нас жизнь не все у ноута проходит

Код: Выделить всё

2 a=inputbox ("Введите а")
b=inputbox ("Введите b")
if isNumeric(a) and isNumeric(b) then goto 6 else goto 3
6 if a<100 then goto 1 else goto 3
if b>100 then goto 1 else goto 4
3 msgbox "Все плохо в a":goto 2
4 msgbox "Все плохо в b":goto 2
1 c=a+b
if c>7 then goto 2
msgbox c

Код: Выделить всё

do
     a=inputbox ("Input a")
     b=inputbox ("input b")
     if isNumeric(a) and isNumeric(b) then
         if a<100 then
            if b<100 then
                 c=a+b
                 if c>7 then msgbox "All right"
            else
                msgbox "b плохая"
            end if
        else
            msgbox "a плохая"
        end if
    else
        msgbox "a или b не цифры"
    end if
loop while c<7

И это уже так в случае 10 строк а когда их 1000 (ммм ну как бы это сказать помягче - типа через полгода у тебя у самого уйдет времени больше на разбор своей же программы чем на создание такой же новой)