Windows Taste sperren

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von VB2008Lover.

    Windows Taste sperren

    Hi liebe Gemeinde,

    diese Thema gibt es schon ewig. Ich habe auch GOOGLE und die Sufu benutzt. Bloß habe ich nur etwas mit einem Registry-Eintrag machen gefunden.
    Oder, dass das Programm abfrägt, ob die Taste gedrückt ist und dann ESC drückt

    1. Frage : Wie kann man Win-R und Win-L so sperren, dass diese auch gesperrt sind, wenn mein Programm keinen Focus mehr hat


    2. Wie kann ich den Taskmanager sperren?


    3. Wie kann ich die Kompination Win-R + --> sperren (Windows + Tab)


    4. Und wie kann ich Alt+Tab sperren



    Diese Themen wird es alle schon geben, es tut mir leid, dass ich das nochmal poste. Als antwort reicht auch ein Link^^


    PS: Das gilt für die Fragen 1 + 2: Soll immer gehen (außer wenn Form nicht an ist)

    Danke schon mal im Voraus, dass ihr euch nochmal die Mühe macht

    PPS: Des mit Win-R und Win-L soll ja mit den sogenannten "HOCKS" gehen (hoffe das ist richtig geschrieben) nach dem Schließen soll die Taste aber wieder gehen

    VB.NET-Quellcode

    1. Option Explicit On
    2. Imports System.Runtime.InteropServices
    3. Public Class Form1
    6. Private Declare Sub keybb_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
    8. Private Const KEYEVENTF_KEYUP = &H2
    10. Private Delegate Function HOOKPROCDelegate(ByVal nCode As Integer, ByVal wParam As IntPtr, ByRef lParam As KBDLLHOOKSTRUCT) As IntPtr
    12. ' dauerhafte Delegaten-Variable erzeugen
    13. Private HookProc As New HOOKPROCDelegate(AddressOf KeyboardHookProc)
    15. Private Declare Unicode Function GetModuleHandleW Lib "kernel32.dll" (ByVal lpModuleName As IntPtr) As IntPtr
    17. ' Die Funktion, um einen globalen Hook setzen zu können:
    18. 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
    20. ' Für das Löschen des Hooks wird diese Funktion verwendet:
    21. Private Declare Unicode Function UnhookWindowsHookEx Lib "user32.dll" (ByVal hhk As IntPtr) As UInteger
    23. 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
    25. Private Const WM_KEYDOWN As Int32 = &H100 ' Konstante für WM_KEYDOWN
    26. Private Const WM_KEYUP As Int32 = &H101 ' Konstante für WM_KEYUP
    27. Private Const HC_ACTION As Integer = 0 ' Konstante für HC_ACTION
    28. Private Const WH_KEYBOARD_LL As Integer = 13 ' Konstante für WH_KEYBOARD_LL
    30. Public PrevWndProc As Integer
    31. Private mHandle As IntPtr
    33. <StructLayout(LayoutKind.Sequential)> Public Structure KBDLLHOOKSTRUCT
    34. Public vkCode As Keys
    35. Public scanCode, flags, time, dwExtraInfo As UInteger
    37. Public Sub New(ByVal key As Keys, ByVal scancod As UInteger, ByVal flagss As UInteger, ByVal zeit As UInteger, ByVal extra As UInteger)
    38. vkCode = key
    39. scanCode = scancod
    40. flags = flagss
    41. time = zeit
    42. dwExtraInfo = extra
    43. End Sub
    44. End Structure
    46. Public Property KeyHookEnable() As Boolean
    47. Get
    48. Return mHandle <> IntPtr.Zero
    49. End Get
    50. Set(ByVal value As Boolean)
    51. If KeyHookEnable = value Then Return
    52. If value Then
    53. mHandle = SetWindowsHookExW(WH_KEYBOARD_LL, HookProc, _
    54. GetModuleHandleW(IntPtr.Zero), 0)
    55. Else
    56. UnhookWindowsHookEx(mHandle)
    57. mHandle = IntPtr.Zero
    58. End If
    59. End Set
    60. End Property
    62. Private Function KeyboardHookProc(ByVal nCode As Integer, ByVal wParam As IntPtr, ByRef lParam As KBDLLHOOKSTRUCT) As IntPtr
    64. Dim fEatKeyStroke As Boolean
    66. If nCode = HC_ACTION Then
    68. Select Case lParam.vkCode
    69. Case Keys.Shift
    70. fEatKeyStroke = True
    71. Case Keys.Alt
    72. fEatKeyStroke = True
    73. Case Keys.Home
    74. fEatKeyStroke = True
    75. Case Keys.Enter
    76. fEatKeyStroke = True
    77. Case Keys.Tab
    78. fEatKeyStroke = True
    79. Case Keys.End
    80. fEatKeyStroke = True
    81. Case Keys.Escape
    82. fEatKeyStroke = True
    83. Case Keys.LWin
    84. fEatKeyStroke = True
    85. Case Keys.RWin
    86. fEatKeyStroke = True
    87. Case Keys.Delete
    88. fEatKeyStroke = True
    89. End Select
    91. If fEatKeyStroke Then
    92. Return New IntPtr(1)
    93. Exit Function
    94. End If
    96. Return CallNextHookEx(mHandle, nCode, wParam, lParam)
    97. End If
    98. End Function
    99. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    102. ' Hook einschalten:
    103. KeyHookEnable = True
    107. Dim oRegKey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
    108. oRegKey.SetValue(My.Application.Info.AssemblyName, System.Windows.Forms.Application.ExecutablePath)
    109. End Sub
    110. Private Sub Form1_Closing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
    112. ' WICHTIG! Hook ausschalten beim Beenden nicht vergessen!!!
    113. KeyHookEnable = False
    114. End Sub


    die probleme hatte ich auch des sperrt alles was du willst auser den Taskmanager. Diuesen code brauch ich au noch

    VB.NET-Quellcode

    1. Dim proc As System.Diagnostics.Process
    2. Dim pList() As Process
    3. pList = Process.GetProcessesByName("taskmgr")
    4. For Each proc In pList
    5. proc.Kill()
    6. Next

    in einen timer rein und wenn der taskmgr startet beendet er sofort

    für die windows tasten habe ich mir eine nicht ganz saubere metode ausgedacht: die explorer.exe killen, mit einer .bat-datei

    jakob1410 schrieb:

    VB.NET-Quellcode

    1. Dim proc As System.Diagnostics.Process
    2. Dim pList() As Process
    3. pList = Process.GetProcessesByName("taskmgr")
    4. For Each proc In pList
    5. proc.Kill()
    6. Next

    in einen timer rein und wenn der taskmgr startet beendet er sofort

    für die windows tasten habe ich mir eine nicht ganz saubere metode ausgedacht: die explorer.exe killen, mit einer .bat-datei


    also das geht bei mir net

Facebook
Telefonspende