клавиатерный шпион

[-=alp=-]

хочу сделать программу похожую на клавиатурного шпиона.
Подскажите, пожалуйста, Api функцию которая показала бы мне какую я клавишу я нажал.

[Amed]

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

[-=alp=-]

А как именно пользоваться этой функцией ?

[Amed]

'Сначала объявляешь функцию:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
'Потом - код клавиши (смотри в Api Viewere коды на VK_)
Private Const VK_F10 = &H79

Потом, скажем, по таймеру, проверяешь состояние

Public Sub Timer1_Timer()
if GetAsyncKeyState(VK_F10)<0 then
msgbox "Нажата кнопка F10"
endif
End Sub

[Amed]

А потом пишешь цикл, который перебирает все клавиши и пишет, какие из них нажаты... Вот и всё! Удачи в программировании!

[Gigahard]

По моему для обработки нажатых клавиш никаких API не нужно! В VB есть стандартный обработчик события KeyPress(KeyAscii As Integer)
Например обработка события нажатия пробела:

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

Private Sub Form_KeyPress(KeyAscii As Integer)

If KeyAscii=32 Then

MsgBox "Вы нажали пробел"

End Sub

И никаких API'ев!

[FaKk2]

По моему для обработки нажатых клавиш никаких API не нужно! В VB есть стандартный обработчик события KeyPress(KeyAscii As Integer)
Например обработка события нажатия пробела:

Код:
Private Sub Form_KeyPress(KeyAscii As Integer)

If KeyAscii=32 Then

MsgBox "Вы нажали пробел"

End Sub

И никаких API'ев!

Эхх, ты, программист!
Если б, все было так легко, зачем бы люди API функции создавали?
На самом деле, твой пример будет работать только если фокус на твоем окне. а как ты понимаешь, шпиона так не сделаешь...
Поэтому приходиться пользоваться API, так как весь Windows ими пользуется, и естественно можно отслеживать любое нажатие клавиш в любом удобном для тебя месте.

[RayShade]

Да, и не только на окне, но еще именно на самой форме, а не в ее контролах. Иначе ты забыл указать про form.keypreview = true

[JohnK]

А если серьезно, то нужно писать глобальный хук на клаву.

[kif]

Это все хорошо.
Я делал такую прогу и,... результат
Бейсиковский таймер тормозит машину.
Что делать, граждане???

[kif]

Что есть хук?

[RayShade]

Хук (Hook) дословно "крючок". Функция, перехватывающая определенные сообщения в системе. Читай описание SetWindowsHookEx для получения более подробной инфы