Das Ultimative Programmstartetool ^^

    aua -.- mir fällts wie schuppen aus den augen oder wie das heißt -.-

    Ist ja klar ich hab einfach nicht an die 2. Dimension des Buttons Arrays gedacht bzw wusste nicht genau wie ich die anspreche aber jetzt ist alles sonnenklar - besten Dank. Auch wenn ichs nicht wirklich alleine geschafft habe hat mich das doch wieder weitergebracht. Naja aber die Speicherfunktion habe ich immerhin teilweise realisiert xD. Ich werde mich jetzt noch ein wenig ans design machen und daran wie man einzelne Buttons wieder löschen kann ^^


    MfG

    akira2012

    MfG

    akira2012

    ***---____---Wer RechtSCHRAIBfehler findet der darf Sie behalLTEN!---___---***

    Ich habs geschafft und bin fertig. Habe die Speicherfunktion geändert und die Möglichkeit hinzugefügt Programme auch wieder zu löschen. Ich bin zufrieden mit dem Ergebnis und hoffe das jemand es mal testet und mir seine Meinung sagt. Mein Spinnchen ist natürlich als Mitentwickler aufgeführt und nun das Script!:

    Spoiler anzeigen
    [autoit]


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

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

    AutoIt Version: 3.2.2.0
    Author: akira2012 & gtaSpider

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

    Script Function:
    Ein Programm in das man andere Programme eintragen und bequem von dort aus starten kann.

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

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

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

    #include <GUIConstants.au3>
    #include <string.au3>
    #include <array.au3>
    #include <File.au3>

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

    Opt("GuiOnEventMode", 1)

    Global $msg = 0, $buttons[1][2], $left = 10, $top = 40, $liste[16][2], $test[16], $listing, $listing2, $listing3, $listing4, $listing5, $hoch = 50

    $spiele=GUICreate("Das ultimative Programmstartetool ^_^", 375, 420)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
    $search = GUICtrlCreateButton(">>> Programm auswählen <<<", 10, 10, 355, 25)
    GUICtrlSetOnEvent(-1, "_search")
    $delete = GUICtrlCreateButton(">>> Programm entfernen <<<", 10, 380, 355, 25)
    GUICtrlSetOnEvent(-1, "_delete")
    GUISetState()

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

    If FileExists(@ScriptDir &"\Daten.ini") Then
    $liste=IniReadSectionNames(@ScriptDir &"\Daten.ini")

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

    IF $liste="1" Then
    Sleep(50)
    Else

    For $i = 1 to ($liste[0])
    ReDim $buttons[$i + 1][2]
    $buttons[$i][0] = GUICtrlCreateButton("", $left, $top, 85, 85, $BS_ICON)
    $buttons[$i][1] = $liste[$i]
    GUICtrlSetImage(-1, $liste[$i], 0)
    $ttip=IniReadSection(@ScriptDir &"\Daten.ini", $liste[$i])
    If @Error Then
    MsgBox(0, "ERROR", "ERROR")
    Else

    EndIf

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

    GUICtrlSetTip(-1, $ttip[1][1])
    GUICtrlSetOnEvent(-1,"_button")
    If $left = 10 Then
    $left = 100
    ElseIf $left = 100 Then
    $left = 190
    ElseIf $left = 190 Then
    $left = 280
    Else
    $top += 90
    $left = 10
    EndIf
    Next
    EndIf
    EndIf

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

    While 1
    Sleep(100)
    WEnd

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

    Func _back ()

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

    GUIDelete("Programm entfernen")
    GUIDelete($Spiele)
    $left = 10
    $top = 40
    $spiele=GUICreate("Das ultimative Programmstartetool ^_^", 375, 420)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
    $search = GUICtrlCreateButton(">>> Programm auswählen <<<", 10, 10, 355, 25)
    GUICtrlSetOnEvent(-1, "_search")
    $delete = GUICtrlCreateButton(">>> Programm entfernen <<<", 10, 380, 355, 25)
    GUICtrlSetOnEvent(-1, "_delete")
    GUISetState()
    If FileExists(@ScriptDir &"\Daten.ini") Then
    $liste=IniReadSectionNames(@ScriptDir &"\Daten.ini")
    IF $liste = "1" Then
    Else
    For $i = 1 to ($liste[0])
    ReDim $buttons[$i + 1][2]
    $buttons[$i][0] = GUICtrlCreateButton("", $left, $top, 85, 85, $BS_ICON)
    $buttons[$i][1] = $liste[$i]
    GUICtrlSetImage(-1, $liste[$i], 0)
    $ttip=IniReadSection(@ScriptDir &"\Daten.ini", $liste[$i])
    If @Error Then
    MsgBox(0, "ERROR", "ERROR")
    EndIf
    GUICtrlSetTip(-1, $ttip[1][1])
    GUICtrlSetOnEvent(-1,"_button")
    If $left = 10 Then
    $left = 100
    ElseIf $left = 100 Then
    $left = 190
    ElseIf $left = 190 Then
    $left = 280
    Else
    $top += 90
    $left = 10
    EndIf
    Next
    EndIf
    EndIf

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

    EndFunc

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

    Func _button()

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

    Local $found = False
    For $i = 1 To UBound($buttons) - 1
    If $buttons[$i][0] = @GUI_CtrlId Then
    $found = True
    ExitLoop
    EndIf
    Next
    If Not $found Then Return MsgBox(0, "FEHLER!!", "Programm nicht gefunden!")
    Run($buttons[$i][1])

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

    EndFunc ;==>_button


    Func _search()

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

    If UBound($buttons, 1) = 17 Then Return MsgBox(48, "", "Es wurde die Maximale anzahl an Buttons erreicht!")
    ReDim $buttons[UBound($buttons) + 1][2]
    $fileop = FileOpenDialog("Exe auswählen...", "", "EXE Dateien(*.exe)")
    If @error Then Return
    $buttons[UBound($buttons) - 1][0] = GUICtrlCreateButton("", $left, $top, 85, 85, $BS_ICON)
    $tooltip=InputBox("Tooltip festlegen", "Bitte den Programmnamen eingeben.")
    GUICtrlSetTip(-1, $tooltip)
    GUICtrlSetImage(-1, $fileop, 0)
    IniWrite(@ScriptDir &"\Daten.ini", $fileop, "tooltip", $tooltip)
    GUICtrlSetOnEvent(-1,"_button")
    $buttons[UBound($buttons) - 1][1] = $fileop
    If $left = 10 Then
    $left = 100
    ElseIf $left = 100 Then
    $left = 190
    ElseIf $left = 190 Then
    $left = 280
    Else
    $top += 90
    $left = 10
    EndIf

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

    EndFunc ;==>_search

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

    Func _delete ()

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

    $loeschen=GUICreate("Programm entfernen")
    $loeschen2=GUICtrlCreateButton("Entfernen", 300, 350, 80, 25)
    GUICtrlSetOnEvent(-1, "_entfernen")
    GUISetOnEvent($GUI_EVENT_CLOSE, "_exit2")
    $back=GUICtrlCreateButton("Zurück", 20, 350, 80, 25)
    GUICtrlSetOnEvent(-1, "_back")
    $listing2=IniReadSectionNames(@ScriptDir &"\Daten.ini")
    for $x=1 to $listing2[0]
    $hoch=$hoch+10
    Next
    $listing=GUICtrlCreateList("", 10, 10, 380, $hoch)

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

    for $x=1 to $listing2[0]
    GUICtrlSetData($listing, $listing2[$x])
    GUISetState(@sw_show)
    Next

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

    EndFunc

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

    Func _entfernen ()
    $listing5=GUICtrlRead($listing)
    IniDelete(@ScriptDir &"\Daten.ini", $listing5)
    GUICtrlDelete($listing)
    $listing2=""
    $listing2=IniReadSectionNames(@ScriptDir &"\Daten.ini")
    $listing=""
    $listing=GUICtrlCreateList("", 10, 10, 380, $hoch)
    IF $listing2 = "" Then
    MsgBox(0, "Info", "Keine weiteren Programme zum löschen vorhanden.")
    EndIf

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

    IF $listing2="1" Then
    Sleep(50)
    Else

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

    for $x=1 to $listing2[0]
    GUICtrlSetData($listing, $listing2[$x])
    Next
    EndIf

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

    EndFunc

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


    Func _exit ()

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

    Exit

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

    EndFunc ;==>_exit

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

    Func _exit2 ()

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

    GUIDelete("Programm entfernen")

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

    EndFunc

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


    Wenn jemand noch verbesserungsvorschläge hat IMMER HeR DAMIT ^^

    bis dahin verbleibe ich MfG

    akira2012

    MfG

    akira2012

    ***---____---Wer RechtSCHRAIBfehler findet der darf Sie behalLTEN!---___---***