Taskmanager sperren

1. offizieller Beitrag

    folgendes, ich hab volgendes script, was sich wie ein bildschirmschoner übern destop legt, nun will ich dass sich der taskmanager sperrt, (soweit hab ichs auch schon hinbekommen) aber nach der tastenkombi die das script schließt, soll sich der taskmanager wieder endsperren ^^ vllt. versteht ja einer was ich meine.

    [autoit]

    #NoTrayIcon
    #include <GUIConstants.au3>
    #Include <Constants.au3>
    sleep(2000)

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

    ;TASKMANAGER SPERREN!

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

    $GUI = GuiCreate("Rahmen",@DesktopWidth,@DesktopHeight,0,0,$WS_POPUP,BitOR($WS_EX_TOPMOST,$WS_EX_TOOLWINDOW))
    $colour1 = 0x000000
    $colour2 = 0x006EFF
    $colour3 = 0x51009E
    WinSetTrans("Rahmen","",150)
    $Rahmen = GUICtrlCreateLabel('',0,0,@DesktopWidth,@DesktopHeight,$SS_SUNKEN)
    GUISetState(@SW_SHOW,$GUI)

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

    HotKeySet("{ESC}","_exit")

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

    Func _exit()
    GUIDelete($GUI)
    Exit
    EndFunc

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

    While 1
    GUICtrlSetBkColor($Rahmen,$colour1)
    sleep(100000000000000000)
    GUICtrlSetBkColor($Rahmen,$colour2)
    sleep(100000000000000000)
    GUICtrlSetBkColor($Rahmen,$colour3)
    sleep(100000000000000000)

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

    WEnd

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

    ;TASKMANAgER ENDSPERREN

    [/autoit]

    MfG ReAVeR

    Edit Spider: Titel von "unknow/kein plan^^" in "Taskmanager sperren" umgewandelt

    Einmal editiert, zuletzt von GtaSpider (7. September 2008 um 13:52)

    sowas vielleicht?????

    [autoit]

    HotKeySet("{ESC}","esc")
    While 1
    If ProcessExists("taskmgr.exe") Then
    ProcessClose("taskmgr.exe")
    EndIf
    WEnd
    Func esc()
    Exit
    EndFunc

    [/autoit]

    So:

    [autoit]

    ;===============================================================================
    ; Function Name: _DisEnableTaskManager([$DISABLE=1])
    ; Description:: TaskManager per Registry sperren / entsperren
    ; Parameter(s): $DISABLE Standard 1 ==> sperren (0 entsperren)
    ; Return Value(s): Erfolg 1
    ; Fehler 0 SetError 1 Schlüssel kann nicht geöffnet werden
    ; 2 Hauptschlüssel kann nicht geöffnet werden
    ; 3 Fernverbindung zur Registry nicht möglich
    ; -1 angefragter Wert kann nicht geöffnet werden
    ; -2 Werttyp nicht unterstützt
    ; Author(s): BugFix ([email='bugfix@autoit.de'][/email])
    ;===============================================================================

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

    _DisEnableTaskManager(1)
    Sleep(10000)
    _DisEnableTaskManager(0)

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

    Func _DisEnableTaskManager($DISABLE=1)
    If $DISABLE <> 0 Then $DISABLE = 1
    Local $key = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System"
    Local $val = "DisableTaskMgr"
    RegWrite($key, $val, "REG_DWORD", $DISABLE)
    If @error Then
    Return SetError(@error, 0, 0)
    Else
    Return 1
    EndIf
    EndFunc ;==>_DisEnableTaskManager

    [/autoit]