SlowMotionAnimation Tool

    Hi @all
    Ich will gern mein kleines Slow Motion Animation Tool euch vorstellen :)
    Diesen Einfall habe ich durch ein tutorial im Internet bekommen .
    Nach meines Wissens geht es nur unter Vista !!
    und man muss neu starten sonst geht es nicht !!

    ( bemerken kann man es wenn man ein Fenster in der Taskleiste minimiert und dan maximiert )

    Spoiler anzeigen
    [autoit]


    #cs ----------------------------------------------------------------------------

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

    AutoIt Version: 3.3.0.0
    Author: FunH@cker

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

    Script Function:
    SlowMotionAnimation Tool.

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

    #ce ----------------------------------------------------------------------------

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

    #RequireAdmin
    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <ProgressConstants.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("SlowMotionAnimation", 186, 197, 192, 124)
    $Label1 = GUICtrlCreateLabel("SlowMotionAnimation", 8, 8, 176, 24)
    GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x008080)
    $Button1 = GUICtrlCreateButton("SlowMotionAnimation Aktivieren", 8, 40, 171, 25, $WS_GROUP)
    $Button2 = GUICtrlCreateButton("SlowMotionAnimation Deaktivieren", 8, 72, 171, 25, $WS_GROUP)
    $Progress1 = GUICtrlCreateProgress(9, 120, 167, 17)
    $Button3 = GUICtrlCreateButton("Exit", 8, 152, 75, 25, $WS_GROUP)
    $Button4 = GUICtrlCreateButton("Info", 120, 152, 51, 25, $WS_GROUP)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    case $Button1
    _Start()

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

    Case $Button2
    _End()

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

    Case $Button3
    Exit

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

    Case $Button4
    _Info()
    EndSwitch
    WEnd

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

    Func _Start()
    GuiCtrlSetData($Progress1, 33)
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\DWM","Animations","reg_DWORD")
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\DWM","Animations","reg_DWORD",1)
    GuiCtrlSetData($Progress1, 60)
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\DWM","AnimationsShiftKey","reg_DWORD")
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\DWM","AnimationsShiftKey","reg_DWORD",1)
    GuiCtrlSetData($Progress1, 100)
    Sleep(2000)
    MsgBox(0,"Ende","!!!Fertig!!!! der Pc wird jetzt Neu Gestartet")
    Shutdown(2)
    EndFunc

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

    Func _End()
    GuiCtrlSetData($Progress1, 33)
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\DWM","Animations","reg_DWORD",0)
    GuiCtrlSetData($Progress1, 60)
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\DWM","AnimationsShiftKey","reg_DWORD",0)
    GuiCtrlSetData($Progress1, 100)
    Sleep(2000)
    MsgBox(0,"Ende","!!!Fertig!!!! der Pc wird jetzt Neu Gestartet")
    Shutdown(2)
    EndFunc

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

    Func _Info()
    MsgBox(0,"Info","SlowMotionAnimation Tool Made by FunH@cker")
    EndFunc

    [/autoit]


    Edit : Wichtig ; Ich vergahs ihr brauch das vista Aero design damit es funst !!!!!!!!!
    [ auserdem muss man die Shift taste getrückt halten ]

    2 Mal editiert, zuletzt von FunH@cker (7. August 2009 um 21:35)

    Ich bin mir nicht sicher aber glaube mal das es hier weniger Vista User gibt als XP und anders?

    Ja ich weis aber ich hab bis jetzt keine möglichkeit gefunden das auf Xp laufen zu lassen ?(
    vieleicht funzt es ja auch unter xp :D

    Habs getestet geht leider nicht unter xp^^
    Morgen teste ich es mal auf meinem Laptop.

    MfG xXTobi93Xx

    Das neu starten kann man vermeinden wen man den CMD als Admin ausführt und dan net stop uxsms eingibt wenn das ausgeführt
    wurde net start uxsms eingeben und ausführen .

    Also net stop uxsms und net start uxsms

    später werde ich es noch ins skript schreiben :thumbup: