VPF::Хук на клавиатуру - Форум программистов

anvarfromkz

Дата 10.11.2010, 21:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 14.10.2010

Репутация: нет
Всего: нет

Имеется код.

Код


Private Sub Timer1_Timer()
a = GetAsyncKeyState(vbKeyZ)
If a <> 0 Then SendKeys "З":
End Sub

Проблема в том чтобы не посылать новый символ а заменить символ Z на русскую З
Можно было установить хук на клавиатуру но ума не приложу как дать команду вместо Z печатать З

Код


Private Sub Form_Load()
hHook = SetWindowsHookEx(2, AddressOf Keyboard, App.hInstance, 0)
End Sub


Function Keyboard(ByVal idHook As Long, ByVal lParam As Long, ByVal wParam As Long) As Long
If lParam = 90 Then
   Keyboard = 1
Else
   Keyboard = 0
End If
End Function

Печатать в любом приложении. Хук устанавливается на фильтр а мне нужно чтобы писал на русском

Это сообщение отредактировал(а) anvarfromkz - 10.11.2010, 22:12

Akina

Дата 10.11.2010, 21:51 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Цитата(anvarfromkz @ 10.11.2010, 22:42

)

дать команду вместо Z печатать З

Печатать ГДЕ? в самом приложении? в другом приложении? в любом приложении?

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

anvarfromkz

Дата 10.11.2010, 22:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 14.10.2010

Репутация: нет
Всего: нет

Печатать в любом приложении. Хук делает фильтр на этот символ скажем "z" то есть в редакторе не пишет, а мне нужно чтобы писал на русском "з" . Каким параметром это передается?

Akina

Дата 10.11.2010, 22:50 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

А не проще свою раскладку создать?

--------------------

Дмит

Дата 21.12.2010, 14:47 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 117
Регистрация: 21.4.2006
Где: г.Волгоград

Репутация: 1
Всего: 9

Попробуй использовать АPI функцию keybd_event
что- то типа:

Код


Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

keybd_event VK_H, 0, 0, 0                               ' press H
keybd_event VK_H, 0, KEYEVENTF_KEYUP, 0   ' release H

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »