Tasten Systemweit Sperren

    • VB.NET

    Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von xpecidy.

      Tasten Systemweit Sperren

      Hey,

      habe gedacht, dass ich meinen umgeschriebenen Code hier poste, da viele Leute nach so etwas suchen.
      Mit dessen hilfe ist es möglich, Tasten vor dem Betriebssystem abzufangen. Bevor das OS etwas mitbekommt,
      werden die Tasten verschluckt, sodass das OS nie etwas mitbekommt.

      VB.NET-Quellcode

      1. Imports System.Runtime.InteropServices
      3. Public Class Form1
      5. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      6. 'Hooks einschalten
      7. KeyHookEnable = True
      8. End Sub
      9. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
      10. 'Hooks ausschalten
      11. KeyHookEnable = False
      12. End Sub
      14. 'Deklaration von API´s, Variablen und Konstanten
      15. Private Declare Unicode Function SetWindowsHookExW Lib "user32.dll" (ByVal idHook As Integer, ByVal lpfn As HOOKPROCDelegate, ByVal hMod As IntPtr, ByVal dwThreadId As UInteger) As IntPtr
      16. Private Declare Unicode Function CallNextHookEx Lib "user32.dll" (ByVal hhk As IntPtr, ByVal nCode As Integer, ByVal wParam As IntPtr, ByRef lParam As KBDLLHOOKSTRUCT) As IntPtr
      17. Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
      18. Private Delegate Function HOOKPROCDelegate(ByVal nCode As Integer, ByVal wParam As IntPtr, ByRef lParam As KBDLLHOOKSTRUCT) As IntPtr
      19. Private Declare Unicode Function GetModuleHandleW Lib "kernel32.dll" (ByVal lpModuleName As IntPtr) As IntPtr
      20. Private Declare Unicode Function UnhookWindowsHookEx Lib "user32.dll" (ByVal hhk As IntPtr) As UInteger
      21. Private HookProc As New HOOKPROCDelegate(AddressOf KeyboardHookProc)
      22. Private Const WH_KEYBOARD_LL As Integer = 13
      23. Private Const WM_KEYDOWN As Int32 = &H100
      24. Private Const WM_KEYUP As Int32 = &H101
      25. Private Const HC_ACTION As Integer = 0
      26. Private Const KEYEVENTF_KEYUP = &H2
      27. Private PrevWndProc As Integer
      28. Private mHandle As IntPtr
      30. <StructLayout(LayoutKind.Sequential)> Public Structure KBDLLHOOKSTRUCT
      31. Public vkCode As Keys
      32. Public scanCode, flags, time, dwExtraInfo As UInteger
      34. Public Sub New(ByVal key As Keys, ByVal scancod As UInteger, ByVal flagss As UInteger, ByVal zeit As UInteger, ByVal extra As UInteger)
      35. vkCode = key
      36. scanCode = scancod
      37. flags = flagss
      38. time = zeit
      39. dwExtraInfo = extra
      40. End Sub
      41. End Structure
      43. 'Hook Ein/Ausschalten
      44. Private Property KeyHookEnable() As Boolean
      45. Get
      46. Return mHandle <> IntPtr.Zero
      47. End Get
      48. Set(ByVal value As Boolean)
      49. If KeyHookEnable = value Then Return
      50. If value Then
      51. mHandle = SetWindowsHookExW(WH_KEYBOARD_LL, HookProc, _
      52. GetModuleHandleW(IntPtr.Zero), 0)
      53. Else
      54. UnhookWindowsHookEx(mHandle)
      55. mHandle = IntPtr.Zero
      56. End If
      57. End Set
      58. End Property
      60. Private Function KeyboardHookProc(ByVal nCode As Integer, ByVal wParam As IntPtr, ByRef lParam As KBDLLHOOKSTRUCT) As IntPtr
      61. Dim fEatKeyStroke As Boolean
      62. If nCode = HC_ACTION Then
      63. Select Case lParam.vkCode
      64. 'Hier wird die Taste vor dem Betriebssystem abgefangen und "untergeschluckt"
      65. 'Alt Taste wird abgefangen...
      66. Case Keys.Alt
      67. '...und in den Müll geschmissen :P
      68. fEatKeyStroke = True
      69. Case Keys.LWin
      70. fEatKeyStroke = True
      71. Case Keys.RWin
      72. fEatKeyStroke = True
      73. End Select
      74. If fEatKeyStroke Then
      75. Return New IntPtr(1)
      76. Exit Function
      77. End If
      78. Return CallNextHookEx(mHandle, nCode, wParam, lParam)
      79. End If
      80. End Function
      82. End Class



      Ich hoffe ich habe euch damit geholfen.

      LG

      MB-Tech

      Das kann sein. Immerhin gibt es auch Schadenssoftware, die so etwas eventuell gebrauchen kann.
      Doch ich dachte bei meinem Post eher daran, dass dieses Verfahren eher für Desktop Sperren etc. zu gebrauchen wäre.

      Wenn die Moderatoren mein Tutorial für Kritisch befinden, dann sollen sie es bitte löschen.

      LG

      Danke!!!!!!!!
      DIese ganzen mist Youtube Tutorials alles funktioniert nicht, ABER DAS VON DIR GEHT!

      Aber einen Fehler habe ich gefunden:

      Quellcode

      1. Imports System.Runtime.InteropServices


      NICHT:

      Quellcode

      1. Imports System.Runtime.InteropService


      Der code abeitet 1A! :thumbsup:

      irgendwie, klappt es bei mir nicht, alle Tastendrücke funktionieren noch, ich kann überall schreiben, es gehen Kombinationen...

      was mache ich falsch?
      ich habe einfach eine Form genommen, den Code hineinkopiert zum ausprobieren, und sie gestartet -> nix

      aber die Idee find ich geil, ich blicks bloß no net

      Gruß Vitox

      Vitox schrieb:

      irgendwie, klappt es bei mir nicht, alle Tastendrücke funktionieren noch, ich kann überall schreiben, es gehen Kombinationen...

      was mache ich falsch?
      ich habe einfach eine Form genommen, den Code hineinkopiert zum ausprobieren, und sie gestartet -> nix

      aber die Idee find ich geil, ich blicks bloß no net

      Gruß Vitox

      Moin!

      Guck dir mal diesesn Post an:

      [VB 2008] Tasten Systemweit Sperren

      Bekommst du eine Warnung oder einen Fehler?

      Vitox schrieb:

      irgendwie, klappt es bei mir nicht, alle Tastendrücke funktionieren noch, ich kann überall schreiben, es gehen Kombinationen...

      was mache ich falsch?
      ich habe einfach eine Form genommen, den Code hineinkopiert zum ausprobieren, und sie gestartet -> nix

      aber die Idee find ich geil, ich blicks bloß no net

      Gruß Vitox

      Tja, wann man einfach nur reinkopiert, passiert natürlich nichts.
      Du musst auch noch an der Stelle im Programm, wo du die Tasten sperren willst
      - in deinem Fall warscheinlich das Load() Ereignis -
      die Anweisung : KeyHookEnable = True einsetzen!
      Ohne Aufruf passiert halt nix :rolleyes: ....

      Hallo in die Runde,

      ich grabe mal den alten Thread aus. :)
      Ist es auch möglich, alternative Tasten zu senden? Also wenn ich die "2" drücke (und auch gedrückt lasse), dass dem aktiven Programm eine "1" geschickt wird (entweder 1x oder solange wie die taste gedrückt ist)?
      Ich habe mit sendkeys herumprobiert (2 auf fEatKey = True und dann Sendkeys.send("1"). Da werden dann aber zum Beispiel zwei einsen geschickt (wenn man die 2 drückt und wieder loslässt). Auch habe ich versucht die lParam von Keys.D1 auf Keys.D2 zu ändern, was leider keinen Erfolg brachte... hat jemand eine Idee/einen Tipp? :)

      VIelen Dank.
      :!: Danke an alle, die ihr Wissen freiwillig teilen und stets so kompetent & höflich sind :!:

    Facebook
    Telefonspende