как отловить нажатие клавиши вне формы таймером ?

[u3er]

у меня был код я его потерял с keystate и async функцией помогите подалуйста самый простой и рабчий способ мне нужно клавишу win отловить

[ger_kar]

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

Public Const VK_LWIN As Long = &H5B  '(91)
Public Const VK_RWIN As Long = &H5C '(92)

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Debug.Print KeyCode
End Sub

Левая клавиша код = 91
Правая клавиша код= 92

[Qwertiy]

ger_kar, написано же "вне формы", зачем тут код с Form_KeyDown?

[ger_kar]

А причем там таймер?
Если вне формы, то тогда надобно хук ставить
На форуме валом инфы на эту тему
Например здесь

[u3er]

А причем там таймер?
Если вне формы, то тогда надобно хук ставить
На форуме валом инфы на эту тему
Например здесь

Никакой там хук не нужен деларация asynckeystate и код типо if keystate 13 then у меня он был но я потерял самый простой а ты тут про хуки ненужные говоришь и в таймер ставил этот if и все работало даж модули не нужны и код в три строки вместе с декларацией писец ты а ты мне хуки всякие на страницу говришь просто не знаешь зачем мудрить когда есть работающий код в три строки Async keystate декларация была и все

[ger_kar]

Ну если делать как попало то и asynckeystate пойдет, а если делать правильно и как положено, тогда хук.
И как раз здесь хук самое то.
Декларация

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

Declare Function GetAsyncKeyState Lib "USER32.DLL" (ByVal vKey As Long) As Integer

Коды виртуальных клавиш для Win я давал, если нужен полный список то смотри сюда
Используется так:

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

If GetAsyncKeyState(VK_LWIN) = -32768 Then MsgBox "Нажат левый Win"
If GetAsyncKeyState(VK_RWIN) = -32768 Then MsgBox "Нажат правый Win"

Это конечно упрощенный вариант. По идее надо не только отслеживать нажатие, но и отпускание клавиши. Так как полное нажатие это нажал/отпустил. И если брать меню которое открывается по Win, то оно как раз открывается после отпускания кнопки.

[ger_kar]

Кроме GetAsyncKeyState можно заюзать GetInputState, GetKeyboardState, GetKeyState

Декларации:

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

Public Declare Function GetInputState Lib "user32" () As Long
Public Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long
Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Справку по функциям можно посмотреть здесь: GetInputState, GetKeyboardState

В чём разница между GetKeyState и GetAsyncKeyState читать здесь

[u3er]

Кроме GetAsyncKeyState можно заюзать GetInputState, GetKeyboardState, GetKeyState

Декларации:

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

Public Declare Function GetInputState Lib "user32" () As Long
Public Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long
Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Справку по функциям можно посмотреть здесь: GetInputState, GetKeyboardState

В чём разница между GetKeyState и GetAsyncKeyState читать здесь

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


Private Sub Timer1_Timer()
If GetAsyncKeystate(13) Then MsgBox "666"
End Su


у меня типо этого было но работа а ща пишет невозможно найти точку входа в lib user32
в чем ошибка помоги рожалуйста
если пишу GetAsyncKeystate = 13 then msdbox "123" то выделяет.желтым таймер и синим текст GetAsyncKeystate в таймере

[ger_kar]

Надо просто все делать внимательно!
GetAsyncKeyState А не GetAsyncKeystate

[u3er]

Надо просто все делать внимательно!
GetAsyncKeyState А не GetAsyncKeystate

Спасибо не думал что все так чувствительно даже к регистру

[Qwertiy]

Ну если делать как попало то и asynckeystate пойдет, а если делать правильно и как положено, тогда хук.

Зачем хук, когда можно hotkey объявить просто?

[ger_kar]

Зачем хук, когда можно hotkey объявить просто?

Никогда не пользовался hotkey. Но это не самый надежный вариант, ибо могут быть конфликты. Хук ИМХО более надежная тема. Хотя конечно все зависит от задачи. А тут суть затеи не понятна.

[arthur2]

Хуки на новых системах должны быть каким-то хитрым образом подписаны и прописаны - напарывался на эти грабли (каким - выяснить мне так и не удалось). Ни глобальные, ни даже журнальные хуки могут просто не работать за пределами своей программы.

Опрос по таймеру состояния клавиш - вполне нормальный вариант. Но GetAsyncKeyState не годится, поскольку, допустим, две одновременно запущенные программы, юзающие ...Async... , будут получать все нажатые клавиши, но по очереди - половину она, половину другая (в чём смысл такого поведения этой функции - мне не понятно, но поведение именно такое)

[u3er]

люди а как сделать чтобы GetAsyncJeyState ловил и надатие клавиш а то он ток реагирует когда клавиша отжата уже а не нажата

[u3er]

люди а как сделать чтобы GetAsyncKeyState ловил и нажатие клавиш а то он ток реагирует когда клавиша отжата уже а не нажата

[arthur2]

Для самых внимательных повторяю:

Но GetAsyncKeyState не годится...