KeyboardMonitor Class

Public NotInheritable Class KeyboardMonitor
	Inherits NativeWindow
	Implements IDisposable

Dim instance As KeyboardMonitor

public ref class KeyboardMonitor sealed : public NativeWindow, 
	IDisposable

[<SealedAttribute>]
type KeyboardMonitor = 
    class
        inherit NativeWindow
        interface IDisposable
    end

No code example is currently available or this language may not be supported.

Public NotInheritable Class Form1 : Inherits Form

    Friend WithEvents KeyLogger As New KeyboardMonitor(Me)

    Public Sub New()

        Me.InitializeComponent()

        ' Set keyboard layout to the default culture, in my case 'es-ES'.
        Me.KeyLogger.Language = InputLanguage.DefaultInputLanguage.Culture.Name

        ' Handle text pasting operations (Ctrl+V).
        Me.KeyLogger.HandlePastes = True

        ' Avoid raising KeyPressed event for non-relevant keys for this app example: 
        ' Left/Right Shift, Alt, AltGr, CapsLock, NumLock, and Left/Right Win key.
        Me.KeyLogger.IgnoredKeys = {Keys.ShiftKey, Keys.Menu, Keys.CapsLock, Keys.NumLock, Keys.LWin, Keys.RWin}

        ' Me.keyLogger.IgnoredChars = {"^"c}
        ' Me.keyLogger.IgnoredCharsComparer = EqualityComparer(Of Char).Default

        ' Me.keyLogger.IgnoredStrings = {"^^"}
        ' Me.keyLogger.IgnoredStringsComparer = StringComparer.OrdinalIgnoreCase

        ' Enable the keylogger.
        Me.KeyLogger.Enabled = True 

    End Sub

    Private Sub KeyLogger_KeyPressed(ByVal sender As Object, ByVal e As KeyPressedEventArgs) _
    Handles KeyLogger.KeyPressed

        Me.Label1.Text = String.Format("Device Handle: {0}", e.DeviceInfo.Handle.ToString())
        Me.Label2.Text = String.Format("Device Type: {0}", e.DeviceInfo.Type)
        Me.Label3.Text = String.Format("Device Name: {0}", e.DeviceInfo.Name.Replace("&", "&&"))
        Me.Label4.Text = String.Format("Device Description: {0}", e.DeviceInfo.Description)
        Me.Label5.Text = String.Format("Device Key:WinForms.Keys.{0}", e.DeviceInfo.Key.ToString())
        Me.Label6.Text = String.Format("Devices Count: {0}", Me.KeyLogger.DeviceCount.ToString())

        Select Case e.DeviceInfo.Key

            Case Keys.Enter
                e.DeviceInfo.Chars = ControlChars.CrLf & "{ENTER}"

            Case Keys.Back
                e.DeviceInfo.Chars = "{BACKSPACE}"

            Case Keys.ControlKey
                e.DeviceInfo.Chars = "{CTRL}"

            Case Else
                ' ...

        End Select

        Me.TextBox1.Text = e.DeviceInfo.Chars
        Me.TextBox2.AppendText(e.DeviceInfo.Chars)

    End Sub

    Private Sub KeyLogger_HotkeyPastePressed(ByVal sender As Object, ByVal e As HotkeyPastePressedEventArgs) _
    Handles KeyLogger.HotkeyPastePressed

        Me.TextBox2.AppendText("{INIT_PASTE}" & e.ClipboardData & "{END_PASTE}")

    End Sub

    Private Sub Button_Clean_Click(sender As Object, e As EventArgs) _
    Handles Button1.Click

        Me.TextBox2.Clear()

    End Sub

    Private Sub Button_Dispose_Click(ByVal sender As Object, ByVal e As EventArgs) _
    Handles Button2.Click

        If Me.KeyLogger IsNot Nothing Then
            Me.KeyLogger.Dispose()
        End If

    End Sub

End Class

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.