KeyboardHook - Können Spiele die Weitergabe von Tastendrücken unterbinden?

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von rwCapt.

    KeyboardHook - Können Spiele die Weitergabe von Tastendrücken unterbinden?

    Hallo zusammen,

    das Thema KeyHook ist wohl teils brisant, da es missbraucht werden kann, um damit unschöne Programme zu schreiben ... ich möchte hiermit versichern, dass ich das nicht vor habe.

    Mein Problemchen ist nämlich folgendes: Meine CPU ist in die Jahre gekommen und wenn ich Spiele wie GTA offen habe und der PC meint, den GTA-Prozess zu himmeln ("Keine Rückmeldung" wird wohl im Task-Manager stehen), dann friert das Spiel ein und dank des Vollbild-Modus kann ich den Task-Manager nicht öffnen, um den Prozess zu killen.
    Somit habe ich mir gedacht, dass ich mir mal wieder VS herunter lade, auch um zu gucken, wie viel von VB.Net hängen geblieben ist. Den Code für das Abfangen des Tastaturdrucks habe ich mir im Internet zusammen gesucht, genauso den für das Beenden des Prozesses. Das Programm läuft einwandfrei, wenn ich F1 drücke, dann wird der GTA-Prozess beendet. Nur ist mir folgendes aufgefallen: Öffne ich GTA dann noch mal wieder, so kann mein Programm anscheinend die Keys nicht mehr abfangen. Starte ich mein "selbst geschriebenes" Programm neu, dann geht das jedoch wieder (F1 killt dann wieder den GTA-Prozess).
    Die Abfrage des Tastendrucks erfolgt über SetWindowsHookEx. Dieses ist mit dem, "das da zu gehört", in einer eigenen Klasse untergeordnet, das die zwei Events KeyDown und KeyUp ausgibt.
    Ständig das kleine Programm neu zu starten, wenn ich GTA gestartet habe, muss nicht sein. Meine Frage ist nun, wie man wieder die Tastaturabfrage durchführen kann, wenn ein Spiel wie GTA den Fokus neu bekommen hat. Was ich vermute ist, dass GTA auch Hooks registriert und mein KeyboardProc dann zweitrangig wird, wenn das neu gestartete GTA den Fokus hat.

    Gruß Michael

    Yo,

    ich denke einen KeyboardHook brauchst du nicht. Die KeyboardEvents(bzw. die Messages) sollten auch nach dem beenden von GTA noch in deiner App ankommen, evtl. hast du in deinem Code was übersehen, was dieses fehlerhafte Verhalten verursacht. Ohne den Code zu sehen, kann ich nur vermuten. Aber anstatt eines Hooks sollte evtl. ein Hotkey reichen, (RegisterHotkey) oder mit GetAsyncKeyState pollen.
    Die Natur ist bekanntermaßen knallhart, sie sortiert aus was sich nicht bewährt hat.(Harald Lesch, 2021)

    Demnach müssten wir bald dran sein...

    Also der Code ist der hier.
    Ich probiere nochmal, ob das einfache KeyDown-Event über die Form funktioniert.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    3. Public Class Form1
    4. Dim Procs As New List(Of Process)
    5. Private WithEvents kbHook As New KeyboardHook
    7. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    8. Me.Visible = False
    9. End Sub
    11. Private Sub kbHook__KeyDown(Key As Keys) Handles kbHook.KeyDown
    12. If Key.ToString = "F1" Then
    13. Debug.WriteLine(Key.ToString)
    14. Try
    15. Procs.AddRange(Process.GetProcessesByName("GTA5"))
    16. For Each Proc As Process In Procs.ToArray()
    17. Proc.Kill()
    18. Next
    19. Catch ex As Exception
    20. End Try
    21. ElseIf Key.ToString = "F2" Then
    22. Application.Restart()
    23. Application.Exit()
    24. ElseIf Key.ToString = "F3" Then
    25. Application.Exit()
    26. End If
    27. End Sub
    28. End Class
    30. Public Class KeyboardHook
    31. <DllImport("User32.dll", CharSet:=CharSet.Auto, CallingConvention:=CallingConvention.StdCall)>
    32. Private Overloads Shared Function SetWindowsHookEx(ByVal idHook As Integer, ByVal HookProc As KBDLLHookProc, ByVal hInstance As IntPtr, ByVal wParam As Integer) As Integer
    33. End Function
    34. <DllImport("User32.dll", CharSet:=CharSet.Auto, CallingConvention:=CallingConvention.StdCall)>
    35. Private Overloads Shared Function CallNextHookEx(ByVal idHook As Integer, ByVal nCode As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Integer
    36. End Function
    37. <DllImport("User32.dll", CharSet:=CharSet.Auto, CallingConvention:=CallingConvention.StdCall)>
    38. Private Overloads Shared Function UnhookWindowsHookEx(ByVal idHook As Integer) As Boolean
    39. End Function
    41. <StructLayout(LayoutKind.Sequential)>
    42. Private Structure KBDLLHOOKSTRUCT
    43. Public vkCode As UInt32
    44. Public scanCode As UInt32
    45. Public flags As KBDLLHOOKSTRUCTFlags
    46. Public time As UInt32
    47. Public dwExtraInfo As UIntPtr
    48. End Structure
    50. <Flags()>
    51. Private Enum KBDLLHOOKSTRUCTFlags As UInt32
    52. LLKHF_EXTENDED = &H1
    53. LLKHF_INJECTED = &H10
    54. LLKHF_ALTDOWN = &H20
    55. LLKHF_UP = &H80
    56. End Enum
    58. Public Shared Event KeyDown(ByVal Key As Keys)
    59. Public Shared Event KeyUp(ByVal Key As Keys)
    61. Private Const WH_KEYBOARD_LL As Integer = 13
    62. Private Const HC_ACTION As Integer = 0
    63. Private Const WM_KEYDOWN = &H100
    64. Private Const WM_KEYUP = &H101
    65. Private Const WM_SYSKEYDOWN = &H104
    66. Private Const WM_SYSKEYUP = &H105
    68. Private Delegate Function KBDLLHookProc(ByVal nCode As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Integer
    70. Private KBDLLHookProcDelegate As KBDLLHookProc = New KBDLLHookProc(AddressOf KeyboardProc)
    71. Private HHookID As IntPtr = IntPtr.Zero
    73. Private Function KeyboardProc(ByVal nCode As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Integer
    74. If (nCode = HC_ACTION) Then
    75. Dim struct As KBDLLHOOKSTRUCT
    76. Select Case wParam
    77. Case WM_KEYDOWN, WM_SYSKEYDOWN
    78. RaiseEvent KeyDown(CType(CType(Marshal.PtrToStructure(lParam, struct.GetType()), KBDLLHOOKSTRUCT).vkCode, Keys))
    79. Case WM_KEYUP, WM_SYSKEYUP
    80. RaiseEvent KeyUp(CType(CType(Marshal.PtrToStructure(lParam, struct.GetType()), KBDLLHOOKSTRUCT).vkCode, Keys))
    81. End Select
    82. End If
    83. Return CallNextHookEx(IntPtr.Zero, nCode, wParam, lParam)
    84. End Function
    86. Public Sub New()
    87. HHookID = SetWindowsHookEx(WH_KEYBOARD_LL, KBDLLHookProcDelegate, System.Runtime.InteropServices.Marshal.GetHINSTANCE(System.Reflection.Assembly.GetExecutingAssembly.GetModules()(0)).ToInt32, 0)
    88. If HHookID = IntPtr.Zero Then
    89. Throw New Exception("Could not set keyboard hook")
    90. End If
    91. End Sub
    93. Protected Overrides Sub Finalize()
    94. If Not HHookID = IntPtr.Zero Then
    95. UnhookWindowsHookEx(HHookID)
    96. End If
    97. MyBase.Finalize()
    98. End Sub
    99. End Class

Facebook
Telefonspende