Systemweiten Hotkey registrieren (kein Tastatur Hook)

PauleOfficial · 8. August 2012, 19:43

Hallo Mike,
Erstmal danke für den Code hat mir sehr geholfen

Aber: Ich nutze das ganze für GTA bzw möchte es dafür nutzen.
Ich lasse das ganze über ne Case laufen wie im beispiel
Drinne steht dann

VB.NET-Quellcode

TextBox1.Text = "Aktuelle Wanteds" SendKeys.Send("t") SendKeys.Send("/ow") SendKeys.Send("{Enter}")

habe das ganze auf einem Windows xp Rechner installiert. Wenn ich dort die Befehle getestet habe (im Editor den Text anzeigen lassen ging alles). Aber auf Windows 7 führt er einige befehle nach drücken der richtigen taste immer wieder aus.
Weißt du wodran das liegen kann
Gruß Paule

befunky · 29. Dezember 2012, 04:27

Hallo,

wie kann ich diese Methode nutzen um 2 Tasten, wie Strg und A abzufragen?

Quellcode

RegisterHotKey(Me.Handle, 2, Key_NONE, Keys.ControlKey + Keys.A)

so gehts nicht

Greetz

BeFunky

jvbsl · 29. Dezember 2012, 12:39

für ControlKeys musst du Key_NONE ersetzen, die Konstanten musst du wohl im Internet gucken oder z.B. hier:
[VB.NET] Systemweiten Hotkey registrieren (kein Tastatur Hook)

~blaze~ · 28. April 2013, 22:24

Hi
habe mal eine vereinfachende Bedienung dafür geschrieben, auch wenn der Code dafür komplizierter ist. Alles was der Code tut ist, RegisterHotKey und UnregisterHotKey zu kapseln und über IDisposable die HotKeys zu verwalten, statt über die id. Zusätzlich gibt's noch eine weitere Klasse, die die Bedienung aus dem Code heraus vereinfachen soll.

Spoiler anzeigen

VB.NET-Quellcode

Imports System.Runtime.InteropServices
Imports System.ComponentModel
Friend Class NativeMethods
#Region "Modifiers"
'API-Deklarationen
<DllImport("user32")> _
Private Shared Function RegisterHotKey(ByVal handle As IntPtr, ByVal id As Integer, ByVal modifiers As ModifierKeys, ByVal vkey As Keys) As Boolean
End Function
<DllImport("user32")> _
Private Shared Function UnregisterHotKey(ByVal handle As IntPtr, ByVal id As Integer) As Boolean
End Function
'Wrappen die API-Aufrufe eleganter
Public Shared Function RegisterHotkey(ByVal window As IWin32Window, ByVal keyData As Keys) As IDisposable
Return RegisterHotkey(window, ModifierKeys.None, keyData)
End Function
Public Shared Function RegisterHotKey(ByVal window As IWin32Window, ByVal modifiers As ModifierKeys, ByVal keyData As Keys) As IDisposable
Static idv As Integer = 0
Dim cid As Integer = Threading.Interlocked.Increment(idv) - 1 'Threadsicher inkrementieren und den alten Wert als Hotkey-ID verwenden
Dim handle As IntPtr = If(window Is Nothing, IntPtr.Zero, window.Handle)
'Bei Fehlschlag Fehler ausgeben
If Not RegisterHotKey(handle, cid, modifiers Or MapKeyModifiers(keyData), keyData And Keys.KeyCode) Then
ThrowLastWin32Error()
End If
'Handle registrieren, das bei einem IDisposable.Dispose-Aufruf den Hotkey wieder freigibt
Return New DelegateDisposable(Sub()
If Not UnregisterHotKey(handle, cid) Then
ThrowLastWin32Error()
End If
End Sub)
End Function
'ModifierKeys in Keys abbilden und umgekehrt, Keys enthaelt nicht alle benoetigten Modifizierer
Public Shared Function MapKeyModifiers(ByVal modifiers As Keys) As ModifierKeys
Dim md As ModifierKeys = ModifierKeys.None
If (modifiers And Keys.Alt) = Keys.Alt Then md = md Or ModifierKeys.Alt
If (modifiers And Keys.Control) = Keys.Control Then md = md Or ModifierKeys.Control
If (modifiers And Keys.Shift) = Keys.Shift Then md = md Or ModifierKeys.Shift
Return md
End Function
Public Shared Function MapModifierKeys(ByVal modifiers As ModifierKeys) As Keys
Dim md As Keys = Keys.None
If (modifiers And ModifierKeys.Alt) = ModifierKeys.Alt Then md = md Or Keys.Alt
If (modifiers And ModifierKeys.Control) = ModifierKeys.Control Then md = md Or Keys.Control
If (modifiers And ModifierKeys.Shift) = ModifierKeys.Shift Then md = md Or Keys.Shift
Return md
End Function
Private Shared Sub ThrowLastWin32Error()
Throw New Win32Exception(Marshal.GetLastWin32Error())
End Sub
#End Region
End Class
'Moegliche Hotkey-Modifizierer
Public Enum ModifierKeys
None = 0
Alt = 1
Control = 2
Shift = 4
Windows = 8
NoRepeat = &H4000
End Enum
Public Class HotkeyHandler
Implements IDisposable
'Tritt ein, sobald ein registrierter Hotkey aufgerufen wird
Public Event HotkeyPressed As EventHandler(Of KeyEventArgs)
'ordnet Hotkeys ihrem Handle zu (wird zur Bereitstellung und Freigabe von RegisterHotKey benoetigt, sodass
'mehrfache Besetzungen zu einem einzigen Handle pro HotkeyHandler-Instanz gruppiert werden)
Private _values As IDictionary(Of HotkeyDescription, HotkeyHandle)
Private _window As IWin32Window 'Das Control, das die Informationen empfaengt oder Nothing, sofern direkt an die Nachrichtenschleife weitergeleitet werden soll
Private _disposed As Boolean
Private _count As Integer
Private _filter As HotkeyFilter
Public Sub New()
Me.New(Nothing)
End Sub
Public Sub New(ByVal window As IWin32Window)
_values = New Dictionary(Of HotkeyDescription, HotkeyHandle)()
_window = window
_filter = New HotkeyFilter(Me)
End Sub
Public Function RegisterHotkey(ByVal hotkey As Keys) As IDisposable
Return RegisterHotkey(hotkey, ModifierKeys.None)
End Function
'Registriert den angegebenen Hotkey mit den angegebenen Modifizierern
Public Function RegisterHotkey(ByVal hotkey As Keys, ByVal modifiers As ModifierKeys) As IDisposable
If _disposed Then Throw New ObjectDisposedException(Me.GetType().Name)
Dim descr As New HotkeyDescription(hotkey And Keys.KeyCode, modifiers Or NativeMethods.MapKeyModifiers(hotkey))
Dim handle As HotkeyHandle = Nothing
If Not _values.TryGetValue(descr, handle) Then
handle = New HotkeyHandle(NativeMethods.RegisterHotKey(_window, descr.Modifiers, descr.Keys))
_values.Add(descr, handle)
End If
_filter.Enabled = True 'Nachrichtenfilter erst dann aktivieren, wenn Hotkeys verfuegbar sind
_count += 1
Return New DelegateDisposable(Sub()
If Not handle.Release() Then _values.Remove(descr)
_count -= 1
If _count = 0 Then _filter.Enabled = False 'Nachrichtenfilter freigeben, wenn nicht mehr benoetigt
End Sub)
End Function
'Uebertraegt den Hotkey und fuehrt ihn aus
Private Sub SendKey(ByVal description As HotkeyDescription)
OnHotkeyPressed(New KeyEventArgs(NativeMethods.MapModifierKeys(description.Modifiers) Or description.Keys))
End Sub
'Ruft das HotkeyPressed-Ereignis auf, sobald ein Hotkey gedrueckt wurde
Protected Overridable Sub OnHotkeyPressed(ByVal e As KeyEventArgs)
RaiseEvent HotkeyPressed(Me, e)
End Sub
Protected Overridable Sub Dispose(ByVal disposing As Boolean)
If Not Me._disposed Then
'alle Handles freigeben
For Each k As HotkeyHandle In _values.Values
k.Delete()
Next
_filter.Dispose()
End If
Me._disposed = True
End Sub
'Bei fehlendem Dispose-Aufruf trotzdem freigeben
Protected Overrides Sub Finalize()
Dispose(False)
MyBase.Finalize()
End Sub
Public Sub Dispose() Implements IDisposable.Dispose
Dispose(True)
GC.SuppressFinalize(Me)
End Sub
'Beschreibung der Hotkeys und Modifizierern
Private Structure HotkeyDescription
Private _keys As Keys
Private _modifiers As ModifierKeys
Public Sub New(ByVal keys As Keys, ByVal modifiers As ModifierKeys)
_keys = keys
_modifiers = modifiers
End Sub
Public ReadOnly Property Keys As Keys
Get
Return _keys
End Get
End Property
Public ReadOnly Property Modifiers As ModifierKeys
Get
Return _modifiers
End Get
End Property
Public Overrides Function GetHashCode() As Integer
Return _keys.GetHashCode() Xor _modifiers.GetHashCode()
End Function
Public Overrides Function Equals(ByVal obj As Object) As Boolean
Return obj IsNot Nothing AndAlso TypeOf obj Is HotkeyDescription AndAlso Equals(DirectCast(obj, HotkeyDescription))
End Function
Public Overloads Function Equals(ByVal value As HotkeyDescription) As Boolean
Return value.Modifiers = Modifiers AndAlso value.Keys = Keys
End Function
End Structure
Private NotInheritable Class HotkeyHandle
Private _count As Integer
Private _handle As IDisposable
Public Sub New(ByVal handle As IDisposable)
_handle = handle
End Sub
Public Sub Allocate() 'Hotkey registrieren
System.Threading.Interlocked.Increment(_count)
End Sub
'Hotkey wieder freigeben und zurueckgeben, ob das Freigeben dazu gefuehrt hat, dass der Hotkey geloescht wird
Public Function Release() As Boolean
Dim cv As Integer = System.Threading.Interlocked.Decrement(_count)
If cv < 0 Then
_count = 0
Throw New InvalidOperationException("Cannot release unallocated hotkey handle.")
ElseIf cv = 0 Then
Delete()
Return False
End If
Return True
End Function
'Hotkey vollstaendig freigeben (entweder, da alle Anforderungen wieder freigegeben wurden oder, weil das Handle geschlossen wurde)
Public Sub Delete()
_handle.Dispose()
End Sub
End Class
'hoert die Nachrichtenschleife ab und informiert den HotkeyHandler ueber auftretende WM_HOTKEY-Ereignisse
Private NotInheritable Class HotkeyFilter
Implements IMessageFilter
Implements IDisposable
Private Const WM_HOTKEY As Integer = &H312
Private _disposed, _enabled As Boolean
Private _handler As HotkeyHandler
Public Sub New(ByVal handler As HotkeyHandler)
_handler = handler
End Sub
Public Function PreFilterMessage(ByRef m As System.Windows.Forms.Message) As Boolean Implements System.Windows.Forms.IMessageFilter.PreFilterMessage
If m.Msg = WM_HOTKEY AndAlso m.HWnd = If(_handler._window Is Nothing, IntPtr.Zero, _handler._window.Handle) Then
Dim cv As Integer = m.LParam.ToInt32()
_handler.SendKey(New HotkeyDescription(CType((cv >> 16) And &HFFFF, Keys), CType(cv And &HFFFF, ModifierKeys)))
End If
Return False
End Function
Public Property Enabled As Boolean
Get
Return _enabled
End Get
Set(ByVal value As Boolean)
If _disposed Then Throw New ObjectDisposedException(Me.GetType().Name)
If _enabled <> value Then
_enabled = value
If value Then
Application.AddMessageFilter(Me)
Else
Application.RemoveMessageFilter(Me)
End If
End If
End Set
End Property
Public Sub Dispose() Implements IDisposable.Dispose
If Not _disposed Then
Enabled = False
_disposed = True
End If
End Sub
End Class
End Class
'eine einfache IDisposable-Implementierung, die bei Dispose den angegebenen Delegaten aufruft. Ungeeignet fuer Finalisierung
Friend Class DelegateDisposable
Implements IDisposable
Private _disposed As Boolean
Private _handler As Action
Public Sub New(ByVal handler As Action)
_handler = handler
End Sub
Public Sub Dispose() Implements IDisposable.Dispose
If Not _disposed Then
_disposed = True
_handler()
_handler = Nothing
End If
End Sub
End Class

Der HotKeyHandler vereinfacht entsprechend die Bedienung:

VB.NET-Quellcode

Private WithEvents _hotkeyHandler As HotkeyHandler
Private _stepCounter As Integer
Private Sub Form_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
_hotkeyHandler.Dispose() 'wieder freigeben, sobald die Form geschlossen wird (sollte auch durch Finalisierung freigegeben werden)
End Sub
Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
_hotkeyHandler = New HotkeyHandler(Me)
_hotkeyHandler.RegisterHotkey(Keys.Control Or Keys.W) 'Hotkey Strg+W registrieren
_hotkeyHandler.RegisterHotkey(Keys.Control Or Keys.S) 'Hotkey Strg+S registrieren
End Sub
Private Sub _hotkeyHandler_HotkeyPressed(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles _hotkeyHandler.HotkeyPressed
'irgendwie auf Strg+W und Strg+S reagieren, Verwendung hier nat. unglaublich sinnvoll
If e.KeyData = (Keys.Control Or Keys.W) Then
_stepCounter += 1
ElseIf e.KeyData = (Keys.Control Or Keys.S) Then
_stepCounter -= 1
End If
_stepCounterDisplay.Text = _stepCounter.ToString() '_stepCounterDisplay waere ein Label
End Sub

Gruß
~blaze~

VincentTB · 16. Juli 2013, 20:27

Hallo, hier das ganze mal für WPF:

VB.NET-Quellcode

Imports System.Windows.Interop
Imports System.Windows.Forms
Imports System.Runtime.InteropServices
Class MainWindow
<DllImport("User32.dll")> _
Private Shared Function RegisterHotKey(<[In]> hWnd As IntPtr, <[In]> id As Integer, <[In]> fsModifiers As UInteger, <[In]> vk As UInteger) As Boolean
End Function
<DllImport("User32.dll")> _
Private Shared Function UnregisterHotKey(<[In]> hWnd As IntPtr, <[In]> id As Integer) As Boolean
End Function
Private _source As HwndSource
Private Const HOTKEY_ID As Integer = 9000
Private Const HOTKEY_2ID As Integer = 9001
Protected Overrides Sub OnSourceInitialized(e As EventArgs)
MyBase.OnSourceInitialized(e)
Dim helper = New WindowInteropHelper(Me)
_source = HwndSource.FromHwnd(helper.Handle)
_source.AddHook(AddressOf HwndHook)
RegisterHotKey()
End Sub
Protected Overrides Sub OnClosed(e As EventArgs)
_source.RemoveHook(AddressOf HwndHook)
_source = Nothing
UnregisterHotKey()
MyBase.OnClosed(e)
End Sub
Private Sub RegisterHotKey()
Dim helper = New WindowInteropHelper(Me)
Const VK_F10 As UInteger = &H79
Const VK_BACK As UInteger = 8
If Not RegisterHotKey(helper.Handle, HOTKEY_ID, Nothing, VK_F10) Then
'Fehler
End If
If Not RegisterHotKey(helper.Handle, HOTKEY_2ID, Nothing, VK_BACK) Then
'Fehler
End If
End Sub
Private Sub UnregisterHotKey()
Dim helper = New WindowInteropHelper(Me)
UnregisterHotKey(helper.Handle, HOTKEY_ID)
End Sub
Private Function HwndHook(hwnd As IntPtr, msg As Integer, wParam As IntPtr, lParam As IntPtr, ByRef handled As Boolean) As IntPtr
Const WM_HOTKEY As Integer = &H312
Select Case msg
Case WM_HOTKEY
Select Case wParam.ToInt32()
Case HOTKEY_ID
OnHotKeyPressed()
handled = True
Case HOTKEY_2ID
OnHotKey2Pressed()
handled = True
End Select
Exit Select
End Select
Return IntPtr.Zero
End Function
Private Sub OnHotKey2Pressed()
MessageBox.Show("Back wurde gedrückt")
End Sub
Private Sub OnHotKeyPressed()
MessageBox.Show("F10 wurde gedrückt")
End Sub
End Class

Keine Ahnung, ob das einfach geht, aber so geht es.
Hier findet ihr alle Keys: msdn.microsoft.com/en-us/library/ms927178.aspx

mcbo · 2. Juli 2014, 19:18

Hi,

ich würde gerne die Taste "Druck|S-Abf" für eine Screenshot / Support-Funktion,
in meiner Anwendung verwenden.

Leider bekomme ich diese Taste nicht in Deinen Code eingebunden. :whistling:

VB.NET-Quellcode

RegisterHotKey(Me.Handle, 3, Key_NONE, Keys.Print)
RegisterHotKey(Me.Handle, 4, Key_NONE, Keys.PrintScreen)

Kann mir hier jemand helfen?

Gruß

Marcel

zn-gong · 27. Juli 2014, 22:57

Wie kann ich diese Systemweiten Änderungen auch wieder rückgängig machen??

Artentus · 27. Juli 2014, 23:05

Schau dir mal lieber das hier an, ist besserer Code und rückgängig machen ist schon dabei:
RegisterHotKey-Wrapper

VB.neter0101 · 12. April 2020, 13:12

Ich habe den Code mal in C# überführt, vielleicht ist das hilfreich für den ein oder anderen:

C#-Quellcode

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Runtime.InteropServices;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;
namespace KeysAbfangenVonForm
{
public partial class Form1 : Form
{
[DllImport("user32.dll")]
private static extern int RegisterHotKey(IntPtr hWnd, int id, int fsModifier, int vk);
[DllImport("user32.dll")]
private static extern bool UnregisterHotKey(IntPtr hWnd, int id);
private const int Key_NONE = 0x0000;
private const int WM_HOTKEY = 0x312;
protected override void WndProc(ref Message m)
{
// die messages auswerten
if (m.Msg == WM_HOTKEY)
{
// hier wird entschieden welcher hotkey es war
// einfach die übergebene id auswerten
switch (m.WParam.ToInt32())
{
case 1:
{
MessageBox.Show("Sie haben die Tab-Taste gedrückt!");
break;
}
case 2:
{
MessageBox.Show("Sie haben die 1 gedrückt!");
break;
}
}
}
base.WndProc(ref m);
}
public Form1()
{
InitializeComponent();
}
private void Form1_Load(object sender, EventArgs e)
{
// die tab taste abfangen
RegisterHotKey(this.Handle, 1, Key_NONE, 0x9); // Tab Code (HEX)
RegisterHotKey(this.Handle, 2, Key_NONE, 0x31); // D1 (Taste 1) Code (HEX)
// Wichtige Ressource:
// https://docs.microsoft.com/de-de/dotnet/api/system.windows.forms.keys?view=netframework-4.8
}
private void Form1_FormClosing(object sender, FormClosingEventArgs e)
{
UnregisterHotKey(this.Handle, 1);
UnregisterHotKey(this.Handle, 2);
}
}
}

Systemweiten Hotkey registrieren (kein Tastatur Hook)

VB.NET-Quellcode

Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

C#-Quellcode

Benutzer online 1

Ähnliche Themen

14 Benutzer haben hier geschrieben