Hotkeymanager Version 0.1

    Hi,
    Ich habe vor ein paar Wochen mit Auoit angefangen und wollte jtzt mein ertses Programm persäntieren.
    Man kann verschiedene programme aus wählen sowie verschiedene Shutdowm Modis. Und für alles kann man Hotkeys auswählen.
    Ich biete es erstmal als .exe Datei an und vielleicht stell ich dann auch das scritp rein!!

    Ich freue mich über Verbesserungs Vorschläge

    Spoiler anzeigen
    Code
    Folgende Updates
1.Infogui
2.Einstellungen
    Spoiler anzeigen
    Code
    Bekannt Bugs bis jetzt:
Bei dem shutdown klappen die Hotkeys nicht( Wird gleich bearbeitet

    Source Code:

    Spoiler anzeigen
    [autoit]

    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <GUIConstants.au3>
    #include <ComboConstants.au3>
    DirCreate("Files")
    FileInstall("header.jpg", "Files\lala.DATA")

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

    $i1 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "1", "")
    $i2 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "2", "")
    $i3 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "3", "")
    $i4 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "4", "")
    $i5 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "5", "")
    $i6 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Shutdown", "1", "")
    $i7 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Shutdown", "2", "")
    $i8 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "1", "")
    $i9 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "2", "")
    $i10 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "3", "")
    $i11 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "4", "")
    $i12 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "5", "")
    $i13 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "6", "")
    $i14 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "7", "")

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

    #Region ### START Koda GUI section ### Form=C:\Users\Franz\Desktop\Hotkey\Hotkeymanager.kxf
    $Hotkeymanager = GUICreate("Hotkeymanager", 431, 600, 193, 125)
    GUISetFont(12, 400, 0, "Comic Sans MS")
    GUISetBkColor(0x3399FF)
    $m1 = GUICtrlCreateMenu("Datei")
    $mi1 = GUICtrlCreateMenuItem("Speichern", $m1)
    $header = GUICtrlCreatePic("\Files\lala.DATA", 0, 0, 430, 100, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
    $Programm = GUICtrlCreateLabel("Programmverzeichnis", 24, 136, 156, 27)
    GUICtrlSetColor(-1, 0xFF0000)
    $Hotkey = GUICtrlCreateLabel("Hotkey", 280, 136, 57, 27)
    GUICtrlSetColor(-1, 0xFF0000)
    $p1 = GUICtrlCreateInput($i1, 24, 184, 100, 31)
    GUICtrlSetColor(-1, 0xFF0000)
    $p2 = GUICtrlCreateInput($i2, 24, 234, 100, 31)
    GUICtrlSetColor(-1, 0xFF0000)
    $p3 = GUICtrlCreateInput($i3, 24, 284, 100, 31)
    GUICtrlSetColor(-1, 0xFF0000)
    $p4 = GUICtrlCreateInput($i4, 24, 334, 100, 31)
    GUICtrlSetColor(-1, 0xFF0000)
    $p5 = GUICtrlCreateInput($i5, 24, 384, 100, 31)
    GUICtrlSetColor(-1, 0xFF0000)
    $h1 = GUICtrlCreateInput($i8, 254, 184, 100, 31)
    GUICtrlSetColor(-1, 0xFF0000)
    $h2 = GUICtrlCreateInput($i9, 254, 234, 100, 31)
    GUICtrlSetColor(-1, 0xFF0000)
    $h3 = GUICtrlCreateInput($i10, 254, 284, 100, 31)
    GUICtrlSetColor(-1, 0xFF0000)
    $h4 = GUICtrlCreateInput($i11, 254, 334, 100, 31)
    GUICtrlSetColor(-1, 0xFF0000)
    $h5 = GUICtrlCreateInput($i12, 254, 384, 100, 31)
    GUICtrlSetColor(-1, 0xFF0000)
    $h6 = GUICtrlCreateInput($i13, 254, 434, 100, 31)
    GUICtrlSetColor(-1, 0xFF0000)
    $h7 = GUICtrlCreateInput($i14, 254, 484, 100, 31)
    GUICtrlSetColor(-1, 0xFF0000)
    $Button2 = GUICtrlCreateButton("...", 144, 184, 41, 33, 0)
    GUICtrlSetColor(-1, 0xFF0000)
    $Button3 = GUICtrlCreateButton("...", 144, 234, 41, 33, 0)
    GUICtrlSetColor(-1, 0xFF0000)
    $Button4 = GUICtrlCreateButton("...", 144, 284, 41, 33, 0)
    GUICtrlSetColor(-1, 0xFF0000)
    $Button5 = GUICtrlCreateButton("...", 143, 334, 41, 33, 0)
    GUICtrlSetColor(-1, 0xFF0000)
    $Button6 = GUICtrlCreateButton("...", 144, 384, 41, 33, 0)
    GUICtrlSetColor(-1, 0xFF0000)
    $Combo1 = GUICtrlCreateCombo("Herunterfahren", 24, 434, 153)
    GUICtrlSetData(-1, "Energie sparen|Neu starten", $i6)
    $Combo2 = GUICtrlCreateCombo("Herunterfahren", 24, 484, 153)
    GUICtrlSetData(-1, "Energie sparen|Neu starten", $i7)
    GUISetState(@SW_SHOW)
    Opt("GUIOnEventMode", 1)
    GUICtrlSetOnEvent($mi1, "_speichern")
    GUICtrlSetOnEvent($Button2, "_fileopen1")
    GUICtrlSetOnEvent($Button3, "_fileopen2")
    GUICtrlSetOnEvent($Button4, "_fileopen3")
    GUICtrlSetOnEvent($Button5, "_fileopen4")
    GUICtrlSetOnEvent($Button6, "_fileopen5")
    GUISetOnEvent($GUI_EVENT_CLOSE, "_beenden")

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

    #EndRegion ### END Koda GUI section ###

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

    Func start1()
    Run($i1)
    EndFunc ;==>start1

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

    Func start2()
    Run($i2)
    EndFunc ;==>start2

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

    Func start3()
    Run($i3)
    EndFunc ;==>start3

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

    Func start4()
    Run($i4)
    EndFunc ;==>start4

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

    Func start5()
    Run($i5)
    EndFunc ;==>start5

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

    Func computer1()
    $i6 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Computer", "1", "")
    Shutdown($i6)
    EndFunc ;==>computer1

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

    While 1
    Sleep(1)
    HotKeySet($i8, "start1")
    HotKeySet($i9, "start2")
    HotKeySet($i10, "start3")
    HotKeySet($i11, "start4")
    HotKeySet($i12, "start5")
    HotKeySet($i13, "computer1")
    WEnd
    Func _fileopen1()
    $f1 = FileOpenDialog("Anwendung auswählen", @DesktopDir, "Anwendungen(*.exe*)")
    GUICtrlSetData($p1, $f1)
    EndFunc ;==>_fileopen1
    Func _fileopen2()
    $f2 = FileOpenDialog("Anwendung auswählen", @DesktopDir, "Anwendungen(*.exe*)")
    GUICtrlSetData($p2, $f2)
    EndFunc ;==>_fileopen2
    Func _fileopen3()
    $f3 = FileOpenDialog("Anwendung auswählen", @DesktopDir, "Anwendungen(*.exe*)")
    GUICtrlSetData($p3, $f3)
    EndFunc ;==>_fileopen3
    Func _fileopen4()
    $f4 = FileOpenDialog("Anwendung auswählen", @DesktopDir, "Anwendungen(*.exe*)")
    GUICtrlSetData($p4, $f4)
    EndFunc ;==>_fileopen4
    Func _fileopen5()
    $f5 = FileOpenDialog("Anwendung auswählen", @DesktopDir, "Anwendungen(*.exe*)")
    GUICtrlSetData($p5, $f5)
    EndFunc ;==>_fileopen5

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

    Func _speichern()
    $m1 = GUICtrlRead($Combo1)
    If $m1 = "Herunterfahren" Then
    IniWrite(@ScriptDir & "\Files\Klasse.ini", "Shutdown", "1", "Herunterfahren")
    ElseIf $m1 = "Energie sparen" Then
    IniWrite(@ScriptDir & "\Files\Klasse.ini", "Shutdown", "1", "Energie sparen")
    ElseIf $m1 = "Neu starten" Then
    IniWrite(@ScriptDir & "\Files\Klasse.ini", "Shutdown", "1", "Neu starten")
    Else
    MsgBox(64, "Error", "Wähle bitte etwas aus der Liste aus!")
    Return
    EndIf
    $m2 = GUICtrlRead($Combo2)
    If $m2 = "Herunterfahren" Then
    IniWrite(@ScriptDir & "\Files\Klasse.ini", "Shutdown", "2", "Herunterfahren")
    ElseIf $m2 = "Energie sparen" Then
    IniWrite(@ScriptDir & "\Files\Klasse.ini", "Shutdown", "2", "Energie sparen")
    ElseIf $m2 = "Neu starten" Then
    IniWrite(@ScriptDir & "\Files\Klasse.ini", "Shutdown", "2", "Neu starten")
    Else
    MsgBox(64, "Error", "Wähle bitte etwas aus der Liste aus!")
    Return
    EndIf
    IniWrite(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "1", GUICtrlRead($p1))
    IniWrite(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "2", GUICtrlRead($p2))
    IniWrite(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "3", GUICtrlRead($p3))
    IniWrite(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "4", GUICtrlRead($p4))
    IniWrite(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "5", GUICtrlRead($p5))
    IniWrite(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "1", GUICtrlRead($h1))
    IniWrite(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "2", GUICtrlRead($h2))
    IniWrite(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "3", GUICtrlRead($h3))
    IniWrite(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "4", GUICtrlRead($h4))
    IniWrite(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "5", GUICtrlRead($h5))
    IniWrite(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "6", GUICtrlRead($h6))
    IniWrite(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "7", GUICtrlRead($h7))
    $i1 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "1", "")
    GUICtrlSetData($p1, $i1)
    $i2 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "2", "")
    GUICtrlSetData($p2, $i2)
    $i3 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "3", "")
    GUICtrlSetData($p3, $i3)
    $i4 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "4", "")
    GUICtrlSetData($p4, $i4)
    $i5 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "5", "")
    GUICtrlSetData($p5, $i5)
    $i8 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "1", "")
    GUICtrlSetData($h1, $i8)
    $i9 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "2", "")
    GUICtrlSetData($h2, $i9)
    $i10 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "3", "")
    GUICtrlSetData($h3, $i10)
    $i11 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "4", "")
    GUICtrlSetData($h4, $i11)
    $i12 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "5", "")
    GUICtrlSetData($h5, $i12)
    $i13 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "6", "")
    GUICtrlSetData($h6, $i13)
    $i14 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "7", "")
    GUICtrlSetData($h7, $i14)
    EndFunc ;==>_speichern

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

    Func _beenden()
    Exit
    EndFunc ;==>_beenden

    [/autoit]

    3 Mal editiert, zuletzt von franjob (23. Juli 2009 um 10:54)

    Ich glaube , das es noch keiner runter geladen hat.Ich würde es auch nicht machen.
    Man weiß ja nie was du in die .exe reingepackt hast. z.B

    _InetGetSource
    ShellExecute
    damit kan man schon böse sachen machen.
    Du hast es ja auf Rapidshare hochgeladen dort kannst du ja gucken wie viele es schon gedownlaodet haben, wenn du ein Sammler-Account hast.

    Wollte ich nur mal sagen ;) Weil ich das gleiche immer habe , drum poste ich auch immer die Source mit.
    Hoffe konnte helfen xD

    Ich will aber die source nciht so gerne posten!!
    Aber wenn du meinst mach ich dies mal!!

    wie wüdest du des denn machen. Es käuft doch so!!
    Wie meinst du das mit for shcleifen??