Альтернатива GetAsynsKeyState

[Джеффи]

Вот такая ситуация, я ловлю нажатия с клавы и собираю в слова...
Но использую для этого GetAsynsKeyState и вызываю её 40 раз, я думаю это тормозит немного процесс...

Если что-то другое...

Например функция которая возвращает код нажатой клавиши...

[xolod]

Отрабатывай сообщение WM_CHAR

[Джеффи]

Хм....
Наверное ты не понял, мне нужно вообще а не только в окне моей проги...
А лучше напиши код...

[xolod]

1) Найди поиском по форуму - как сделать Native DLL на VB.
2) Поставь глобальный хук на систему
3) Отрабатывай WM_CHAR

[Джеффи]

1) Найди поиском по форуму - как сделать Native DLL на VB.
2) Поставь глобальный хук на систему
3) Отрабатывай WM_CHAR

1. Подходящих тем или сообщений не найдено
2. Не понял
3. Не умею

[xolod]

1) Хук, он же Ловушка, он же Hook. Для установки есть API SetWindowsHookEx, для того чтобы поставить ловушку на уровне системы, нужно ее оформить в виде динамически подгружаемой библиотеки (DLL).
2) Написать DLL стандартными средствами VB нельзя, посему надо либо немного извратиться. Либо оформить ее на C++, например.
3) Когда поставишь ловушку на уровне системы, то сможешь ловить все сообщения посылаемые системой всем приложениям.

[Джеффи]

Круто

Но мог бы ты написать код?

[Alex Mals]

Он мог бы, но за 20 баксов :)

[Amed]

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

'In a module
Public Const WH_KEYBOARD = 2
Public Const VK_SHIFT = &H10
Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public hHook As Long
Public Function KeyboardProc(ByVal idHook As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    'if idHook is less than zero, no further processing is required
    If idHook < 0 Then
        'call the next hook
        KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
    Else
        'check if SHIFT-S is pressed
        If (GetKeyState(VK_SHIFT) And &HF0000000) And wParam = Asc("S") Then
            'show the result
            Form1.Print "Shift-S pressed ..."
        End If
        'call the next hook
        KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
    End If
End Function

'In a form, called Form1
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    'set a keyboard hook
    hHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyboardProc, App.hInstance, App.ThreadID)
End Sub
Private Sub Form_Unload(Cancel As Integer)
    'remove the windows-hook
    UnhookWindowsHookEx hHook
End Sub

[Arcanoid]

Альтернатива говоришь... ээмм... может GetKeyboardState() подойдёт?

[Джеффи]

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

Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    'set a keyboard hook
    hHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyboardProc, App.hInstance, App.ThreadID)
End Sub

Вот тут что-то не так...

[Amed]

Что-то не так? Ошибка? Какая?

Телепаты в отпуске!

[Arcanoid]

В MSDN есть такое:
hMod
[in] Handle to the DLL containing the hook procedure pointed to by the lpfn parameter. The hMod parameter must be set to NULL if the dwThreadId parameter specifies a thread created by the current process and if the hook procedure is within the code associated with the current process.

Дык.. может вместо App.hInstance стоит НУЛЛь прописать

[Джеффи]

AddressOf KeyboardProc вот ошибка

[Arcanoid]

и что не компилится?

AddressOf <ИмяМодуля>.KeyboardProc

[Джеффи]

Всё разобрался а теперь как мне получить чистый символ?=)))

[Гость]

Да! Приведите пример, как именно я перехвачу нажатие, к примеру "Space"

[keks-n]

Пишешь код, который выводит все WM_CHAR в label. Запускаешь прогу и жмёшь свой Space. Его код добавится.
А вооюще эти константы API-Viewer'ом (стандартным) смотрятся, начинаются на VK_ , например: VK_F1

[Amed]

Да! Приведите пример, как именно я перехвачу нажатие, к примеру "Space"

Наступила пора школьных каникул...
И с каких пор у нас могут писать гости?

[keks-n]

Баг в phpBB, я это в 6-ой раз вижу. Похоже он когда набирал сообщение разлогинился, а форма набора-то осталась! Он жмёт "Отправить", а cookie о том что он зареген нет, вот "умный" phpBB его гостем и обозвал

[GSerg]

Во-первых, кекс, нефиг отвечать на сообщения апрельской давности и тем будоражить умы общественности
Во-вторых, Гость отображается в том случае, когда афтар вопроса был забанен с удалением аккаунта.

[keks-n]

Я на дату не посмотрел... Глубоко извиняюсь... Простите меня, кто сможет...

[E'rsh]

Код приведенный выше (Amed 27.04.2005 (Ср) 19:07) перехватывает только с окна текущей программы!

Кто нить напише, пожайлуста, точный код создания Хука на клавишу Space. Plase....

[keks-n]

Почти универсальный код простановки хуков от Оловянникова.

Пример использования в папке test, не забудь перекомпилить/зарегестрить DLL-ку из папки Source

[Maitris]

А GetTroyState нет такой функции случайно?

[E'rsh]

keks-n
Кстати какие есть способы регистрации DLL?
Кто какие знает?

[E'rsh]

keks-n
СПАСИБО за DLL
Но она перехватывает заданные функции
А допустим факт копирования WINDOWSом можно поймать

[hCORe]

File Notification?

1) Объявления API-функций:

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

Private Declare Function FindFirstChangeNotification Lib "kernel32.dll" Alias "FindFirstChangeNotificationA" (ByVal lpPathName As String, ByVal bWatchSubtree As Long, ByVal dwNotifyFilter As Long) As Long
Private Declare Function FindNextChangeNotification Lib "kernel32.dll" (ByVal hChangeHandle As Long) As Long

2) Описание базовых механизмов работы (из книги "Hardcore Visual Basic"):
http://vb.mvps.org/hardcore/html/theser ... cation.htm
http://vb.mvps.org/hardcore/html/thecli ... cation.htm

3) Скачать исходники клиента и сервера, а также всех остальных проектов к книге "Hardcore VB":
http://vb.mvps.org/hardcore/html/sourcecode.htm

4) Посетить обязательно:
http://msdn.microsoft.com

[E'rsh]

hCORe
Функцию понял, а вот как узнать что копируется (перемещается)
Заранее благодарен, извени за тупость

[Tarantul]

А зачем вам нужен хук? DX и его DirectInput, в частности, будет как всегда значительно быстрее и проще.