Strg + Alt + Entf ausschalten

1. offizieller Beitrag

    Hallo,
    ich habe mal eine Frage, kann man irgendwie die Kombination Strg + Alt + Entf ausschalten?
    Oder während dem Programmablauf blockieren?

    Einmal editiert, zuletzt von morfi93 (4. Juni 2008 um 15:07)

    Naja, ich will ein kleines Fun Programm schreiben,
    Also ich mache ein Popup Fenster, das über den ganzen Bildschirm geht und immer die Hintergrundfarbe wechselt, und wenn man das gleich mit Strg+Alt+Entf wieder schließen kann wäre das ja fad^^

    [EDIT]: Ich hatte da eher an so eine HotKeySet Variante gedacht, aber da das ja leider über Autoit nicht abgefangen werden kann, wollte ich euch mal fragen.

    • Offizieller Beitrag

    Hi,

    such mal nach MegaBlock im Forum vielleicht hiilft es dir.

    Spoiler anzeigen
    [autoit]

    #NoTrayIcon
    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Icon=..\..\..\..\Icons\Royal-Guard.ico
    #AutoIt3Wrapper_Outfile=MegaBlock.exe
    #AutoIt3Wrapper_Compression=4
    #AutoIt3Wrapper_Res_Comment=Rechner sperren
    #AutoIt3Wrapper_Res_Fileversion=1.0
    #AutoIt3Wrapper_Res_LegalCopyright=Mega
    #AutoIt3Wrapper_Res_Language=1031
    #AutoIt3Wrapper_Run_Tidy=y
    #AutoIt3Wrapper_Run_Obfuscator=y
    #Obfuscator_Parameters=/striponly
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include<Misc.au3>
    #include<WindowsConstants.au3>
    #include<File.au3>

    [/autoit] [autoit][/autoit] [autoit]

    HotKeySet('!{TAB}', '_log')
    HotKeySet('{TAB}', '_log')
    HotKeySet('{ESC}', '_log')
    HotKeySet('{F9}', 'code')
    HotKeySet('!^{F9}', 'OnAutoItExit') ; STRG+ALT+F9 Sofort-Exit

    [/autoit] [autoit][/autoit] [autoit]

    Opt('WinTitleMatchMode', 4)
    Opt('MustDeclareVars', 1)

    [/autoit] [autoit][/autoit] [autoit]

    Global Const $version = '3.0'
    Global Const $KEY = '111'
    Global $codeFestgelegt = False, $inputCode = 0, $splash = 0

    [/autoit] [autoit][/autoit] [autoit]

    FileInstall('C:\Downloads\AutoIt-Skripte\Entwicklung\ForumTests\WinLockDll.dll', @TempDir & '\WinLockDll.dll', 1)

    [/autoit] [autoit][/autoit] [autoit]

    Global $winlock_DLL = DllOpen(@TempDir & '\WinLockDll.dll')
    Global $isPressed_DLL = DllOpen('user32.dll')
    code()

    [/autoit] [autoit][/autoit] [autoit]

    Global $SAFE = GUICreate('')
    GUISetState($WS_EX_TRANSPARENT, $SAFE)
    Global $VAULT = GUICreate(' *Mega*', @DesktopWidth, @DesktopHeight, -1, -1, -1, -1, $SAFE)
    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    WinMinimizeAll()
    WinSetTrans(' *Mega*', '', 1)
    WinSetOnTop(' *Mega*', '', 1)

    [/autoit] [autoit][/autoit] [autoit]

    ; The script
    Global $startPath = 'c:\Downloads\AutoIt-Skripte\Entwicklung\ForumTests\MegaBlock\NotePadTut.exe'

    [/autoit] [autoit][/autoit] [autoit]

    _hotkey()

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    If WinExists('classname=DV2ControlHost', '') Then WinClose('classname=DV2ControlHost')
    ToolTip('Protected by, *Mega* v' & $version & ' | ' & @HOUR & ':' & @MIN & ':' & @SEC, 5, 5)
    _MouseTrap(95, 18, 140, 22)
    WinSetOnTop(' *Mega*', '', 1)
    Sleep(5) ; erhöhen um CPU zu sparen? Sicherheit geht dann verloren
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Func code()
    _hotkey(1)
    $inputCode = InputBox(' *Mega*', 'Bitte Passwort/Code eingeben: ', '', '*10', 150, 100, 50, 50, 10)
    If $codeFestgelegt = False Then
    If $inputCode = $KEY Then
    secure()
    $codeFestgelegt = True
    Return
    Else
    MsgBox(64, ' *Mega*', 'Falscher SperrCode', 3)
    Exit
    EndIf
    Else
    If $inputCode = $KEY Then
    MsgBox(64, 'Info - Administrator', 'Dieser PC wurde freigegeben!' & @LF & @LF & _
    'Tel.: XXXX' & @LF & _
    'Email: Mega@xxx.com' & @LF & _
    @LF & _
    'Mega', 3)
    Sleep(2000)
    Exit
    Else
    WinSetOnTop(' *Mega*', '', 1)
    _hotkey()
    Return
    EndIf
    EndIf
    EndFunc ;==>code

    [/autoit] [autoit][/autoit] [autoit]

    Func secure()
    WinMinimizeAll()
    ;Hide Taskbar
    DllCall('WinLockDll.dll', 'Int', 'Taskbar_Show_Hide', 'Int', '0')
    ;Disable CrtlAltDel
    $splash = SplashTextOn('', 'Administrator : Dieser PC ist gesperrt!' & @LF & @LF & _
    'Tel.: XXXX' & @LF & @LF & _
    'Email: Mega@xxx.com' & @LF & _
    @LF & @LF & _
    'Mega', _
    550, @DesktopHeight / 2, 1, 500, 1, 5, 16, 600)
    DllCall('WinLockDll.dll', 'Int', 'CtrlAltDel_Enable_Disable', 'Int', '0')
    DllCall('WinLockDll.dll', 'Int', 'Desktop_Show_Hide', 'Int', '0')
    EndFunc ;==>secure

    [/autoit] [autoit][/autoit] [autoit]

    ;DllCall('WinLockDll.dll', 'Int', 'Process_Desktop', 'str', 'MyDesktop2', 'str', 'cmd.exe')

    [/autoit] [autoit][/autoit] [autoit]

    Func _hotkey($opt = 0)
    If $opt = 0 Then
    For $i = 0 To 255
    HotKeySet(Chr($i), '_log')
    Next
    HotKeySet('!{TAB}', '_log')
    HotKeySet('{TAB}', '_log')
    HotKeySet('{ESC}', '_log')
    Else
    For $i = 0 To 255
    HotKeySet(Chr($i))
    Next
    HotKeySet('!{TAB}')
    HotKeySet('{TAB}')
    HotKeySet('{ESC}')
    EndIf
    EndFunc ;==>_hotkey

    [/autoit] [autoit][/autoit] [autoit]

    Func OnAutoItExit()
    _MouseTrap()
    WinMinimizeAllUndo()
    DllCall('WinLockDll.dll', 'Int', 'Desktop_Show_Hide', 'Int', '1')
    DllCall('WinLockDll.dll', 'Int', 'CtrlAltDel_Enable_Disable', 'Int', '1')
    DllCall('WinLockDll.dll', 'Int', 'Taskbar_Show_Hide', 'Int', '1')
    SplashOff()
    DllClose($winlock_DLL)
    DllClose($isPressed_DLL)
    Exit (0)
    EndFunc ;==>OnAutoItExit

    [/autoit] [autoit][/autoit] [autoit]

    Func _log()
    _FileWriteLog(@DesktopDir & '\keylogger.log', @HotKeyPressed)
    _MouseTrap(95, 18, 140, 22)
    WinSetOnTop(' *Mega*', '', 1)
    EndFunc ;==>_log

    [/autoit]

    benötigt die winlock.dll

    Mega