Нужно ПОЛНОСТЬЮ сэмулировать нажатие клавиши клавиатуры

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Mihail_
Обычный пользователь
Обычный пользователь
 
Сообщения: 96
Зарегистрирован: 31.03.2008 (Пн) 20:57

Нужно ПОЛНОСТЬЮ сэмулировать нажатие клавиши клавиатуры

Сообщение Mihail_ » 15.04.2009 (Ср) 19:28

Здравствуйте, имеется вот такое симпатичное устройство
Изображение
миниатюрная раскладная BT-клавиатура для КПК

Но к сожалению для нее отсутствуют драйвера для обычного компьютера, но поскольку она цепляется по блютусу на виртуальный ком-порт, то мы можем считывать, то что она посылает.
Худо-бедно составил таблицу сигналов, которые она посылает - мы можем отслеживать событие KEYDOWN и KEYUP для каждой ее клавиши. Но возникает вопрос - как это дело лучше эмулировать на самом компьютере? SendMessage WM_KEYDOWN, WM_KEYUP активному окну сработало не так как я ожидал, подскажите, можно ли что-нибудь подобное сделать впринципе?
Заранее спасибо!

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Re: Нужно ПОЛНОСТЬЮ сэмулировать нажатие клавиши клавиатуры

Сообщение RayShade » 15.04.2009 (Ср) 19:34

Поискать дрова получше? :)
I don't understand. Sorry.

ANDLL
Великий гастроном
Великий гастроном
Аватара пользователя
 
Сообщения: 3450
Зарегистрирован: 29.06.2003 (Вс) 18:55

Re: Нужно ПОЛНОСТЬЮ сэмулировать нажатие клавиши клавиатуры

Сообщение ANDLL » 15.04.2009 (Ср) 19:37

keybd_event
Но все равно это не будет влиять на всякие win+д и ctrl+alt+del
Гастрономия - наука о пище, о ее приготовлении, употреблении, переварении и испражнении.
Блог

Mihail_
Обычный пользователь
Обычный пользователь
 
Сообщения: 96
Зарегистрирован: 31.03.2008 (Пн) 20:57

Re: Нужно ПОЛНОСТЬЮ сэмулировать нажатие клавиши клавиатуры

Сообщение Mihail_ » 15.04.2009 (Ср) 20:28

ANDLL спасибо! по крайней мере с базовыми клавишами работает


Код: Выделить всё
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
    ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Const KEYEVENTF_KEYUP = &H2


Private Sub Command1_Click()
  keybd_event vbKeyShift, 0, 0, 0
  keybd_event vbKeyA, 0, KEYEVENTF_EXTENDEDKEY, 0
  keybd_event vbKeyShift, 0, KEYEVENTF_KEYUP, 0
End Sub



RayShade спасибо за совет, как я сразу не подумал что оказывается можно поискать получше, а не писать самому.. :roll:
Модель клавиатуры "FA287A" мастер класс по поиску в студию!


iGrok
Артефакт VBStreets
Артефакт VBStreets
 
Сообщения: 4272
Зарегистрирован: 10.05.2007 (Чт) 16:11
Откуда: Сетевое сознание

Re: Нужно ПОЛНОСТЬЮ сэмулировать нажатие клавиши клавиатуры

Сообщение iGrok » 16.04.2009 (Чт) 1:06

arvitaly писал(а):а какой кпк?

Большой такой.. x86-compatible. :)

З.Ы. Внимательно читаем первый пост. =)
label:
cli
jmp label


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот и гости: 54

    TopList