Отловить нажатие клавиш в Windows

[3eJIeHb]

Вообщем необходимо отловить нажатие клавишь в Windows и выполнить необходимое действие, когда программа свернута или окно программы неактивно.

Например необходимо отловить нажатие клавиши Ю и выдать сообщение, что нажата клавиша "Ю"

[Viper]

3eJIeHb, хочешь сказать, что ты воспользовался поиском и не нашел ответа на этот вопрос? Не верю!

[Debugger]

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

Public Declare Function GetKeyboardState Lib "user32" Alias "GetKeyboardState" (pbKeyState As Byte) As Long

А так - да, эта тема обсуждалась тысячи раз.

[ANDLL]

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

Public Declare Function GetKeyboardState Lib "user32" Alias "GetKeyboardState" (pbKeyState As Byte) As Long

А так - да, эта тема обсуждалась тысячи раз.

Дык, если она обсуждалась столько раз, то зачем ты постиш это?
GetAsyncKeyState, а не GetKeyboardState

[Williams]

Вообщем необходимо отловить нажатие клавишь в Windows и выполнить необходимое действие, когда программа свернута или окно программы неактивно.

Например необходимо отловить нажатие клавиши Ю и выдать сообщение, что нажата клавиша "Ю"

А в файл тебе это нажатие, случайно сбрасывать не надо, а потом отсылать на сервер?

Может я маньяк, но мне кажется что GetAsyncKeyState в 99.99% случаев - это хулиганство.

[Денис]

Может я маньяк, но мне кажется что GetAsyncKeyState в 99.99% случаев - это хулиганство.

Какая разница с какой целью он что-либо изучает. В любом случае, он уже засветился и если надо, его проверят.
Всё, не флудим.

[3eJIeHb]

Вообщем необходимо отловить нажатие клавишь в Windows и выполнить необходимое действие, когда программа свернута или окно программы неактивно.

Например необходимо отловить нажатие клавиши Ю и выдать сообщение, что нажата клавиша "Ю"

А в файл тебе это нажатие, случайно сбрасывать не надо, а потом отсылать на сервер?

Может я маньяк, но мне кажется что GetAsyncKeyState в 99.99% случаев - это хулиганство.

А вот ли тебе не пофиг для чего я это использую?
Мне необходимо выловить нажатие клавишь Ctrl + C для сравения его со ссылкой.
Сравнивать значения из буфера было не очень охото. Думаю так проблема решится гораздо качественней.

[Joo]

А вот ли тебе не пофиг для чего я это использую?
Мне необходимо выловить нажатие клавишь Ctrl + C для сравения его со ссылкой.
Сравнивать значения из буфера было не очень охото. Думаю так проблема решится гораздо качественней.

А если было нажато Ctrl+Ins ??? Или скопировали из меню? Тут надо следить за буфером, а не за клавишами....
Кейлогер пишет блин....

[Viper]

Такс... Или автор объясняет нам, что же он пишет, или одно из двух. А то возникает две версии - что автор пытается сделать некое действо X, но почему-то через Y, либо таки да... кейлоггер.

[3eJIeHb]

Люди, вы? Я вас не понимаю. Вы в каждом человеке видите хакера? Или только во мне?

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

[Viper]

Значит таки X через Y.

[Atoman]

3eJIeHb
Я бы вместо проверки через таймер, отлавливал сообщение WM_DRAWCLIPBOARD

[3eJIeHb]

Atoman, +1 щас погуглим

[Atoman]

Вот доложно работать.

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

Public Class RichEditBox
   Inherits System.Windows.Forms.RichTextBox
   
    <DllImport("User32.dll")> _
    Private Shared Function SetClipboardViewer(ByVal hWndNewViewer As IntPtr) As IntPtr
    End Function

    <DllImport("User32.dll")> _
    Private Shared Function ChangeClipboardChain(ByVal hWndRemove As IntPtr, ByVal hWndNewNext As IntPtr) As Boolean
    End Function

    <DllImport("user32.dll")> _
    Private Shared Function SendMessage(ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Integer
    End Function

    Private Const WM_DRAWCLIPBOARD As Integer = &H308
    Private Const WM_CHANGECBCHAIN As Integer = &H30D

    Public Event ChangeClipboard As EventHandler
   
    Private nextClipboardViewer As IntPtr = IntPtr.Zero
   
    Protected Overrides Sub OnHandleCreated(ByVal e As System.EventArgs)
        MyBase.OnHandleCreated(e)
        Me.nextClipboardViewer = SetClipboardViewer(Me.Handle)
    End Sub

    Protected Overrides Sub OnHandleDestroyed(ByVal e As System.EventArgs)
        ChangeClipboardChain(Me.Handle, Me.nextClipboardViewer)
        MyBase.OnHandleDestroyed(e)
    End Sub

   Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
      Select Case m.Msg
            Case WM_DRAWCLIPBOARD
                RaiseEvent ChangeClipboard(Me, New EventArgs)
                SendMessage(Me.nextClipboardViewer, m.Msg, m.WParam, m.LParam)
            Case WM_CHANGECBCHAIN
                If Me.nextClipboardViewer.Equals(m.WParam) Then
                    Me.nextClipboardViewer = m.LParam
                Else
                    SendMessage(Me.nextClipboardViewer, m.Msg, m.WParam, m.LParam)
                End If
            Case Else
                MyBase.WndProc(m)
        End Select
    End Sub
End Class

[3eJIeHb]

Atoman, Жуть!!!
Я до такого еще не дорос, но все-равно спасибо