Systemweiten Hotkey registrieren (kein Tastatur Hook)

    • VB.NET

    Es gibt 28 Antworten in diesem Thema. Der letzte Beitrag () ist von VB.neter0101.

      Systemweiten Hotkey registrieren (kein Tastatur Hook)

      Hallo,

      Wichtig:
      Dieser Beispiel Code wurde hier nicht gepostet um Illegale Dinge zu treiben.
      Falls die Moderatoren oder der Administrator dieses Forums bedenken wegen des Codes haben, mögen Sie diesen Beitrag wieder löschen.

      Wie kann ich eine x-beliebige Taste Systemweit abfangen, egal ob meine Anwendung Aktiv ist oder nicht.
      Dies geht über einen sogenannten Tastatur Hook.
      Dabei wird eine Windows-Message abgefangen, ausgewertet und wie wenn nichts geschehen wäre weitergeleitet.
      Beispiel:

      VB.NET-Quellcode

      1. Public Class Form1
      3. Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer, ByVal fsModifier As Integer, ByVal vk As Integer) As Integer
      4. Private Declare Sub UnregisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer)
      5. Private Const Key_NONE As Integer = &H0
      6. Private Const WM_HOTKEY As Integer = &H312
      8. Protected Overrides Sub WndProc(ByRef m As Message)
      9. 'die messages auswerten
      10. If m.Msg = WM_HOTKEY Then
      11. 'hier wird entschieden welcher hotkey es war
      12. 'einfach die übergebene id auswerten
      13. Select Case m.WParam
      14. Case 1
      15. MessageBox.Show("Sie haben die Tab-Taste gedrückt!")
      16. Case 2
      17. MessageBox.Show("Sie haben die 1 gedrückt!")
      18. End Select
      19. End If
      20. MyBase.WndProc(m)
      21. End Sub
      23. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
      24. 'die tab taste wieder freigeben
      25. UnregisterHotKey(Me.Handle, 1)
      26. UnregisterHotKey(Me.Handle, 2)
      27. End Sub
      29. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      30. 'die tab taste abfangen
      31. RegisterHotKey(Me.Handle, 1, Key_NONE, Keys.Tab)
      32. RegisterHotKey(Me.Handle, 2, Key_NONE, Keys.D1)
      33. End Sub
      34. End Class


      EDIT:
      Code um einen zweiten Hotkey erweitert.

      Gruss

      mikeb69

      Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „ErfinderDesRades“ () aus folgendem Grund: Titel korrigiert

      Hi,

      ich habe Probleme mit diesem Code.

      Erstelle ich ein neues Projekt und füge den Code ein funktioniert alles.
      Füge ich den Code aber in mein vorhandenes Projekt ein, reagiert das Programm auf keine Tastenkombination.

      Gibt es irgendeinen Code, der den HotKey sperren könnte oder ähnliches? Bzw. was könnte ein Grund sein, das es nicht funktioniert?

      MfG T1g0r
      wintoolz.de
      • wintoolz.KeyLocker - Programm zum sicheren Verwalten von Passwörten
      • wintoolz.CodeGallery - Datenbank für Codebeispiele veschiedener Programmiersprachen
      • wintoolz.Haushaltsbuch - Dient zum Auflisten der Aktivitäten ihrer Bankkonten

      Benutze auch du Ecosia

      Evtl. könnte es daran liegen, was du damit erreichen willst. Vielleicht hast du eine If-Abfrage drin die alles abwehrt oder nicht ganz durchdacht ist. Setz einen Haltepunkt auf "Select Case m.WParam" in dem WndProc-Sub und dann geh dein vorhandenes Projekt einfach mal an der Stelle mit F8 (Einzelschritt) durch.
      Damit solltest du den Fehler selbst finden.

      Das Problem ist, wenn ich einen Breakpoint bei dem Select Case setze, hält das Programm dort nicht an. Als wäre der Hotkey garnicht registriert...
      wintoolz.de
      • wintoolz.KeyLocker - Programm zum sicheren Verwalten von Passwörten
      • wintoolz.CodeGallery - Datenbank für Codebeispiele veschiedener Programmiersprachen
      • wintoolz.Haushaltsbuch - Dient zum Auflisten der Aktivitäten ihrer Bankkonten

      Benutze auch du Ecosia

      Dann zip mal das Projekt und lad es hoch oder wenigstens den Code der Form (es reichen die vollständigen Subs wo du registrierst, entregistrierst und den Hotkey bearbeitest), denn so kann ich dir auch nicht sagen, woran es liegt.

      Hier ist der Teil zum registrieren des Hotkey:
      Der wichtige Teil ist mit '################### markiert (Zeile 150)
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer, ByVal fsModifier As Integer, ByVal vk As Integer) As Integer
      2. Private Declare Sub UnregisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer)
      3. Private Const Key_NONE As Integer = &H0 'Nichts
      4. Private Const Key_ALT As Integer = &H1 'Alt
      5. Private Const Key_CTRL As Integer = &H2 'Strg
      6. Private Const Key_SHIFT As Integer = &H4 'Shift
      7. Private Const Key_WIN As Integer = &H8 'Win
      8. Private Const WM_HOTKEY As Integer = &H312
      10. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      11. Try
      12. 'Datenbankpfad laden
      13. Dim vDatenbank As String = String.Empty
      14. If Element_Laden("Database") = "StartUp" Then
      15. vDatenbank = IO.Path.Combine(Application.StartupPath, "CodeGallery.db")
      16. Else
      17. vDatenbank = Element_Laden("Database")
      18. End If
      20. myConnection.ConnectionString = "Data Source=" & vDatenbank & ";Version=3;" 'Connection festlegen
      21. myConnectionZusatz.ConnectionString = "Data Source=" & vDatenbank & ";Version=3;" 'Connection festlegen
      23. 'Datenbankkompatibilität prüfen
      24. 'Prüfen ob Versions-Tabelle vorhanden ist
      25. myConnection.Open() 'Connection öffnen
      26. myCommand = New SQLiteCommand("SELECT COUNT(tbl_name) FROM sqlite_master WHERE tbl_name = 'Version'", myConnection) 'Command festlegen
      27. myReader = myCommand.ExecuteReader 'Command ausführen
      28. Dim AppVersion As Integer
      29. If myReader("COUNT(tbl_name)") = 0 Then
      30. AppVersion = 0
      31. Else
      32. myConnectionZusatz.Open() 'Connection öffnen
      33. myCommand = New SQLiteCommand("SELECT * FROM Version", myConnectionZusatz) 'Command festlegen
      34. myReaderZusatz = myCommand.ExecuteReader 'Command ausführen
      35. AppVersion = CInt(myReaderZusatz("Version"))
      36. myReaderZusatz.Close() 'Reader schliesen
      37. myConnectionZusatz.Close() 'Connection schliesen
      38. End If
      39. myReader.Close() 'Reader schliesen
      40. myConnection.Close() 'Connection schliesen
      42. 'Datenbank ändern
      43. If Not AppVersion = 5 Then '5 aktuelle
      44. Call Datenbank_Ändern(AppVersion)
      45. End If
      47. 'Settingskompatibilität prüfen
      48. Dim vVersionStr As String = Element_Laden("Version")
      49. Dim vVersionInt As Integer
      50. vVersionInt = vVersionStr.Replace(".", "")
      51. If Not vVersionInt = 7 Then '7 aktuelle
      52. 'Settings ändern
      53. Dim vSettingVer As Integer
      54. If vVersionStr.ToString.Contains(".") Then
      55. vSettingVer = vVersionInt
      56. Else
      57. vSettingVer = vVersionInt 'Element_Laden("Version")
      58. End If
      59. Call Settings_Ändern(vSettingVer)
      60. End If
      62. 'Alle Inhalte mit NULL durch String.Empty ersetzen
      63. myConnection.Open() 'Connection öffnen
      64. myCommand = New SQLiteCommand("UPDATE Einträge SET Anhang=@Leer WHERE Anhang IS NULL OR Anhang=X'';" & _
      65. "UPDATE Einträge SET Endung=@Leer WHERE Endung IS NULL;" & _
      66. "UPDATE Einträge SET Icon=@Leer WHERE Icon IS NULL OR Icon=X'';" & _
      67. "UPDATE Einträge SET Breakpoints=@Leer WHERE Breakpoints IS NULL;" & _
      68. "UPDATE Einträge SET Tags=@Leer WHERE Tags IS NULL;" & _
      69. "UPDATE Kategorien SET Icon=@Leer WHERE Icon IS NULL OR Icon=X'';" & _
      70. "UPDATE Kategorien SET Parent=@Leer WHERE Parent IS NULL;", myConnection) 'Command festlegen
      71. myCommand.Parameters.AddWithValue("@Leer", String.Empty)
      72. myCommand.ExecuteNonQuery() 'Command ausführen
      73. myConnection.Close() 'Connection schliesen
      75. 'Formgröße und Location laden
      76. 'Location
      77. Dim sLocFull As String = Element_Laden("Location")
      78. Dim aLoc As String() = Split(sLocFull, "; ")
      79. Me.Left = CInt(aLoc(0))
      80. Me.Top = CInt(aLoc(1))
      81. 'Size
      82. Dim sSizeFull As String = Element_Laden("Size")
      83. Dim aSize As String() = Split(sSizeFull, "; ")
      84. Me.Width = CInt(aSize(0))
      85. Me.Height = CInt(aSize(1))
      87. If Element_Laden("Maximum") = True Then
      88. Me.WindowState = FormWindowState.Maximized
      89. Else
      90. Me.WindowState = FormWindowState.Normal
      91. End If
      93. 'Tags anzeigen
      94. Call Tags_Visible()
      96. 'ColumnBreite
      97. tlv_Haupt.Columns(0).AutoResize(ColumnHeaderAutoResizeStyle.HeaderSize)
      98. tlv_Haupt.Columns.Remove(ClmHd_Sprache)
      100. Call Sprachen_Laden(cmb_Sprache, True)
      101. cmb_Sprache.Text = CStr(Element_Laden("Current"))
      103. 'Autobackup
      104. If CBool(Element_Laden("Backup_On")) = True Then
      105. 'Prüfen ob heute schon erstellt
      106. Dim Dateiname As String = Today.Year & Today.Month & Today.Day
      107. 'Nicht erstellt
      108. If Not IO.File.Exists(IO.Path.Combine(CStr(Element_Laden("Backup_Path")), "cg_backup_" & Dateiname & ".cgbkp")) Then
      109. 'Datei kopieren (BGW aufrufen)
      110. bgw_Backup.RunWorkerAsync()
      111. End If
      112. End If
      114. 'Display laden
      115. 'SplitView
      116. CodeEditorControlHaupt.SplitView = CBool(Element_Laden("SV_Visible"))
      117. 'Breakpoint
      118. CodeEditorControlHaupt.ShowGutterMargin = CBool(Element_Laden("BP_Visible"))
      119. Dim Farbteil As String() = Split(CStr(Me.Element_Laden("BP_Color")), ";")
      120. CodeEditorControlHaupt.BreakPointBackColor = Color.FromArgb(Farbteil(0), Farbteil(1), Farbteil(2), Farbteil(3))
      121. 'Liniennummer
      122. CodeEditorControlHaupt.ShowLineNumbers = CBool(Element_Laden("LN_Visible"))
      123. Farbteil = Split(CStr(Me.Element_Laden("LN_Color")), ";")
      124. CodeEditorControlHaupt.LineNumberForeColor = Color.FromArgb(Farbteil(0), Farbteil(1), Farbteil(2), Farbteil(3))
      125. 'Aktive Linie
      126. CodeEditorControlHaupt.HighLightActiveLine = CBool(Element_Laden("AL_Visible"))
      127. Farbteil = Split(CStr(Me.Element_Laden("AL_Color")), ";")
      128. CodeEditorControlHaupt.HighLightedLineColor = Color.FromArgb(Farbteil(0), Farbteil(1), Farbteil(2), Farbteil(3))
      129. 'Menu
      130. mstr_Main.Visible = CBool(Element_Laden("Menu"))
      131. 'Shortcuts laden
      132. Call Shortcuts_laden()
      134. 'Globaler Hotkey registrieren
      135. 'Tasten trennen
      136. 'Dim Tasten As String = frm_Optionen.Shortcut_Laden(Me.Global_HotKey)
      137. 'Dim Einzeltaste As Integer = CInt(AscW(Tasten.Remove(0, Tasten.LastIndexOf("+") + 1)))
      138. 'Dim Sondertaste As Integer = 0
      140. 'If Tasten.Contains("Alt") Then
      141. 'Sondertaste += 1
      142. 'End If
      143. 'If Tasten.Contains("Strg") Then
      144. 'Sondertaste += 2
      145. 'End If
      146. 'If Tasten.Contains("Shift") Then
      147. 'Sondertaste += 4
      148. 'End If
      151. '############################################
      152. '############################################
      153. '############################################
      154. RegisterHotKey(Me.Handle, 1, &H4, Keys.K)
      156. 'Alte Ereignisdatei löschen
      157. IO.File.Delete(IO.Path.Combine(IO.Path.GetTempPath, "cg.Ereignisse.txt"))
      159. 'Dateianhang
      160. ToolTipAnhang.SetToolTip(pic_Anhang, "Kein Anhang vorhanden")
      161. pic_Anhang.Tag = String.Empty
      163. ''Statusbar verwalten
      164. 'If AnzahlItems = 1 Then
      165. ' Me.ToolStripStatusLabel_Anzahl.Text = "Aktuell vorhanden: " & AnzahlItems & " Eintrag"
      166. 'Else
      167. ' Me.ToolStripStatusLabel_Anzahl.Text = "Aktuell vorhanden: " & AnzahlItems & " Einträge"
      168. 'End If
      170. CodeEditorControlHaupt.Select()
      173. Catch UnAccess As UnauthorizedAccessException 'Keine Zugriffsrechte
      174. 'Fehlerbericht
      175. frm_Fehler.Fehler_öffnen("Der Zugriff auf eine Datei wurde verweigert.", UnAccess.Message, UnAccess.StackTrace)
      176. 'Ereignisprotokoll
      177. Me.Fehlerprotokoll_Speichern("Der Zugriff auf eine Datei wurde verweigert", 30000, UnAccess.Message, UnAccess.StackTrace)
      178. Catch NotFound As FileNotFoundException 'Datei nicht gefunden
      179. 'Fehlerbericht
      180. frm_Fehler.Fehler_öffnen("Eine Datei wurde nicht gefunden.", NotFound.Message, NotFound.StackTrace)
      181. 'Ereignisprotokoll
      182. Me.Fehlerprotokoll_Speichern("Eine Datei wurde nicht gefunden", 30000, NotFound.Message, NotFound.StackTrace)
      183. Application.Restart()
      184. Catch ex As Exception 'Alle anderen Fehler
      185. 'Fehlerbericht
      186. frm_Fehler.Fehler_öffnen("Ein allgemeiner Fehler wurde verursacht.", ex.Message, ex.StackTrace)
      187. 'Ereignisprotokoll
      188. Me.Fehlerprotokoll_Speichern("Ein allgemeiner Fehler wurde verursacht", 30000, ex.Message, ex.StackTrace)
      189. End Try
      190. End Sub
      192. Protected Overrides Sub WndProc(ByRef m As Message)
      193. 'die messages auswerten
      194. If m.Msg = WM_HOTKEY Then
      195. 'hier wird entschieden welcher hotkey es war
      196. 'einfach die übergebene id auswerten
      197. Select Case m.WParam
      198. Case 1
      199. MsgBox("test")
      200. End Select
      201. End If
      202. MyBase.WndProc(m)
      203. End Sub


      Hier das freigeben:
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Private Sub Main_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
      2. Try
      3. If CBool(Element_Laden("Close")) = True Then
      4. vBeenden = False
      5. Else
      6. vBeenden = True
      7. End If
      9. If vBeenden = False Then 'Nicht beenden (In Statusleiste schließen)
      10. If CBool(Me.Element_Laden("Close")) = True Then
      11. e.Cancel = True 'Schliesen abbrechen
      12. Me.WindowState = FormWindowState.Minimized 'Minimieren
      13. NotIcn_Main.Visible = True 'Trayicon anzeigen
      14. Me.Visible = False 'Fenster komplett ausblenden
      15. End If
      16. Else 'Beenden
      17. 'Änderung in XML-Datei übernehmen
      18. Dim CurLang As New cls_XML_Change
      19. CurLang.Ändern("/CodeGallery/Language/Current", cmb_Sprache.Text) 'aktuelle Sprache speichern
      21. If Me.WindowState = FormWindowState.Maximized Then
      22. CurLang.Ändern("/CodeGallery/Startoptions/Maximum", True) 'Maximiert?
      23. ElseIf Me.WindowState = FormWindowState.Minimized Then 'Nichts machen wenn minimiert
      25. Else
      26. CurLang.Ändern("/CodeGallery/Startoptions/Maximum", False) 'nicht Maximiert?
      27. CurLang.Ändern("/CodeGallery/Startoptions/Size", Me.Size.Width & "; " & Me.Size.Height) 'Größe speichern
      28. CurLang.Ändern("/CodeGallery/Startoptions/Location", Me.Location.X & "; " & Me.Location.Y) 'Location speichern
      29. End If
      30. '####################################
      31. 'globaler Hotkey wieder freigeben
      32. UnregisterHotKey(Me.Handle, 1)
      33. Application.Exit()
      34. End If
      35. Catch UnAccess As UnauthorizedAccessException 'Keine Zugriffsrechte
      36. MessageBox.Show("Der Zugriff auf eine Datei wurde verweigert:" & vbNewLine & _
      37. UnAccess.Message, "Keine Zugriffsrechte", MessageBoxButtons.OK, MessageBoxIcon.Error)
      38. 'Ereignisprotokoll
      39. Me.Fehlerprotokoll_Speichern("Der Zugriff auf eine Datei wurde verweigert", 30000, UnAccess.Message, UnAccess.StackTrace)
      40. Catch NotFound As FileNotFoundException 'Datei nicht gefunden
      41. MessageBox.Show("Folgende Datei wurde nicht gefunden:" & vbNewLine & _
      42. NotFound.FileName, "Datei nicht gefunden", MessageBoxButtons.OK, MessageBoxIcon.Error)
      43. 'Ereignisprotokoll
      44. Me.Fehlerprotokoll_Speichern("Eine Datei wurde nicht gefunden", 30000, NotFound.Message, NotFound.StackTrace)
      45. Catch ex As Exception 'Alle anderen Fehler
      46. 'Fehlerbericht
      47. frm_Fehler.Fehler_öffnen("Ein allgemeiner Fehler wurde verursacht.", ex.Message, ex.StackTrace)
      48. 'Ereignisprotokoll
      49. Me.Fehlerprotokoll_Speichern("Ein allgemeiner Fehler wurde verursacht", 30000, ex.Message, ex.StackTrace)
      50. End Try
      51. End Sub


      Ich hoffe das hilft weiter.
      wintoolz.de
      • wintoolz.KeyLocker - Programm zum sicheren Verwalten von Passwörten
      • wintoolz.CodeGallery - Datenbank für Codebeispiele veschiedener Programmiersprachen
      • wintoolz.Haushaltsbuch - Dient zum Auflisten der Aktivitäten ihrer Bankkonten

      Benutze auch du Ecosia

      Du hast das ganze in einem Try-Block, wenn jetzt etwas davor failt, dann wird der nicht registriert, genauso wie beim Freigeben (Trifft auf Post 3/Punkt 1). Pack das aus dem Try raus. Und wenn du .Net benutzt dann ist das Call egal

      Danke das du mal drübergeschaut hast, aber an dem Try-Block liegt es nicht. Ich würde mitbekommen wenn das Try fehlschlägt. Da das aber nicht der Fall ist liegts daran nicht.
      Das mit dem Call ist mir bekannt, für mich ist das aber etwas übersichtlicher als ohne.

      Ich werde die nächsten Tage Punkt für Punkt vorgehen und schauen ob ich etwas finde.
      wintoolz.de
      • wintoolz.KeyLocker - Programm zum sicheren Verwalten von Passwörten
      • wintoolz.CodeGallery - Datenbank für Codebeispiele veschiedener Programmiersprachen
      • wintoolz.Haushaltsbuch - Dient zum Auflisten der Aktivitäten ihrer Bankkonten

      Benutze auch du Ecosia

      Moin Mike,
      Ich hab da noch ne frage :D
      und zwar über die Keys methode gibt es keine möglichkeit umlaute zu verwenden oder * siehe unten *
      ich bin auf deinen Thread gekommen und hab gedacht das fragsde jetzt mal den Mike :P

      MfG Tobi

      * Meine Tastatur ist kaputt... sowas wie 'Fragezeichen' geht nicht mehr.

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Tobse101“ ()

      Hallo,

      bin grad ein bischen am Rumspielen mit den Tastatur Hocks.



      Mein Problem ist jetzt, der Hook löst zwar das event beim Tastendruck aus, und erkennt auch die Tasten, aber in dem Programm wo ich die Taste gedrückt habe kommt sie nicht mehr an. Kann also keine eingabe mehr machen.

      Hier mal der Code im Overrides


      VB.NET-Quellcode

      1. Protected Overrides Sub WndProc(ByRef m As Message)
      2. 'die messages auswerten
      3. If m.Msg = WM_HOTKEY Then
      4. 'hier wird entschieden welcher hotkey es war
      5. 'einfach die bergebene id auswertenSelect Case m.WParamCase 1
      6. TextBox1.Text = TextBox1.Text & zeichen(m.WParam)
      7. Case Else
      8. TextBox1.Text = TextBox1.Text & zeichen(m.WParam)
      9. End Select
      10. End IfMyBase.WndProc(m)
      11. End Sub

      Und so werden die Tasten registriert

      VB.NET-Quellcode

      1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      2. 'die tab taste abfangen
      3. '1 -10for i=48 to 57
      4. registerHotKey(Me.Handle, i-47, Key_NONE, i)zeichen(i-47)=cstr(i-48)
      5. next
      6. '11-36For i = 65 To 90RegisterHotKey(Me.Handle, i - 54, Key_NONE, i)
      7. zeichen(i-54)=chr(i)
      8. NextFor i = 97 To 122RegisterHotKey(Me.Handle, i - 60, Key_NONE, i)
      9. zeichen(i-60)=chr(i)
      10. Next
      13. End Sub


      Bevor bei einem jetzt die Alarmglocken läuten, nein das wird kein KeyLogger sondern ist im Moment nur zum rumspielen mit mehreren Tasten und Wörtern.

      Ziel des ganzen ist reaktionen bei der eingabe von Keywörtern zu bekommen.
      Wers genauer wissen will, das ganze soll auf die Feuerwehrleitstelle und mein Programm mit dem Standard Leitstellen programm verknüpfen.
      Wenn jetzt z.B. Brand eingeben wird erfolgt daraus dann eine reaktion usw.

      Vielen Dank schonmal im vorraus

      Dr Snuggles

      du kannst auf Up und Down reagieren, also musst du nur zwischenspeichern ob Strg gedrückt ist und wenn das der Fall ist auf PageUp reagieren...
      Ich wollte auch mal ne total überflüssige Signatur:
      ---Leer---

      Dann funktioniert das aber doch nur wenn man die Tasten in der Reihenfolge drückt, und außerdem wennman einen zeitlichen abstand dazwischen hat...

      vll. verstehe ich dich auch falsch, kannst du mal ein codebeispiel machen?

      Kann man auch irgendwie überprüfen ob eine Taste losgelassen wurde?
      Und ich hab noch ne Frage, wenn ich jetzt groß schreiben will, registriert er die Keys noch nicht mal. Gibts dafür ne Lösung?

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Rinecamo“ ()

      Das abfangen der Tasten funktioniert, aber wenn ich eine Taste gedrückt halte wird diese immer wieder weitergegeben.
      Wie kann ich den Code umbauen das erst beim loslassen reagiert wird? Oder füge ich am besten eine Warte Funktion ein.

      Zufallstaste basierend auf einem Tastaturhook

      Hallo Mike69

      Ich würde gerne eine Zufallstaste auf der Tastatur erstellen. Zum Beispiel wenn ich Z drücke, soll der Taste ein zufälliger Buchstabe zugeordnet werden. Ich dachte, man müsste statt der Messagebox einfach den Wert der windows-Message löschen und einen Beliebigen Wert in die Message einfügen und sie dann weiterleiten. Aber bei mir funktioniert das nicht. Hättest Du vielleicht eine Lösung für das Problem?


      Nobodyy