GuiCtrlCreateDate mit GuiCtrlSetdata Problem

1. offizieller Beitrag

    Hio all =)

    Also ich wollte mein Datum und Uhrzeit

    [autoit]

    $date = GUICtrlCreateDate("", 10, 40, 180, 20, $DTS_SHORTDATEFORMAT)
    $zeit = GUICtrlCreateDate("", 116, 70, 70, 20, $DTS_TIMEFORMAT)

    [/autoit]

    Mit Guictrlsetdata eine Neue Uhrzeit und Datum zuteilen die in einer Ini stehen

    [autoit]

    GUICtrlSetData($date, IniRead(@ScriptDir & "\Termine.ini", "Termin 1", "Datum", ""))
    GUICtrlSetData($zeit, IniRead(@ScriptDir & "\Termine.ini", "Termin 1", "Uhrzeit", ""))

    [/autoit]

    Aba so funst das i-wie nich ^^
    Hoffe auf Hilfe und THX shconma ^^

    • Offizieller Beitrag

    Lad doch mal deine Ini hoch, damit man weiß in welchem Format du speicherst. Oder besser gleich noch das Script.

    Edit: wer keine Ahnung hat soll den Babbel halten. Also mache ich das ;)

    MfG Schnuffel

    "Sarkasmus ist die niedrigste Form des Witzes, aber die höchste Form der Intelligenz."
    Val McDermid

    ein paar Infos ...

    Wer mehr als "nur" Hilfe benötigt, kann sich gern im Forum "Programmieranfragen" an uns wenden. Wir helfen in allen Fällen, die die Forenregeln zulassen.

    Für schnelle Hilfe benötigen wir ein ! lauffähiges ! Script, dass wir als Demonstration des Problems testen können. Wer von uns erwartet ein Teilscript erstmal lauffähig zu bekommen, der hat
    1. keine wirkliche Not
    2. keinen Respekt vor Menschen die ihm in ihrer Freizeit Ihre Hilfe anbieten
    3. oder ist einfach nur faul und meint wir coden das für ihn

    In solchen Fällen erlaube ich mir, die Anfrage einfach zu ignorieren. ;)

    • Offizieller Beitrag

    Beispiel 3 hat aber nichts mit dem setzen der Daten zu tun. Oder hast du ein anderes Beispiel als ich? Schnuffel

    Spoiler anzeigen
    [autoit]

    Func Example3()
    Local $date, $DTM_SETFORMAT_, $style

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

    GUICreate("My GUI get date", 200, 200, 800, 200)
    $date = GUICtrlCreateDate("1953/04/25", 10, 10, 185, 20)

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

    ; to select a specific default format
    $DTM_SETFORMAT_ = 0x1032
    $style = "yyyy/MM/dd HH:mm:s"
    GUICtrlSendMsg($date, $DTM_SETFORMAT_, 0, $style)

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

    GUISetState()
    While GUIGetMsg() <> $GUI_EVENT_CLOSE
    WEnd

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

    MsgBox(0, "Time", GUICtrlRead($date))
    EndFunc ;==>Example3

    [/autoit]

    sry das ich es erst jetz hochgeladen hatte war dann gestern ich mehr da ^^

    Hier die Sorce(is von meinen Planer und is sehr unordntlich gestaltet^^, hoffe ihr seht da durch =))

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <DateTimeConstants.au3>
    Opt("TrayOnEventMode", 1)
    Opt("TrayMenuMode", 1)

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

    Global $date[3], $zeit[3], $ttk[3], $nName[3], $nEreignis[3], $nExtra[3], $Datei[3], $save[3], $save2[3], $settings1[3], $settings2[3], $settings3[3], $settings4[3], $Sound[3], $Einstellungen[3]

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

    $GUI = GUICreate("Planer", 200, 340, 400, 100)
    GUISetBkColor(0x00FF80)
    GUICtrlCreateTab(0, 300, 200, 30)

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

    $Datei[0] = GUICtrlCreateMenu("Datei")
    $save[0] = GUICtrlCreateMenuItem("Speichern", $Datei[0])
    $Load = GUICtrlCreateMenuItem("Laden", $Datei[0])
    $open = GUICtrlCreateMenuItem("Öffne Checker", $Datei[0])
    $Settings = GUICtrlCreateMenu("Settings")
    $Einstellungen[0] = GUICtrlCreateMenuItem("Einstellungen für 1. Termin", $Settings)
    $Einstellungen[1] = GUICtrlCreateMenuItem("Einstellungen für 2. Termin", $Settings)
    $Einstellungen[2] = GUICtrlCreateMenuItem("Einstellungen für 3. Termin", $Settings)
    $Checker = GUICtrlCreateMenu("Checker in Auto Start", $Settings)
    $CheckerASH = GUICtrlCreateMenuItem("Checker in Systemstart Hinzufügen", $Checker)
    $CheckerASE = GUICtrlCreateMenuItem("Checker aus dem Systemstart entfernen", $Checker)
    $Hilfe = GUICtrlCreateMenu("Hilfe")
    $Info = GUICtrlCreateMenuItem("Info", $Hilfe)

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

    $Tab1 = GUICtrlCreateTabItem("1. Termin")
    GUICtrlCreateLabel("Bitte Wählen Sie ein Datum aus :", 25, 20)
    $date[0] = GUICtrlCreateDate("", 10, 40, 180, 20, $DTS_SHORTDATEFORMAT)
    GUICtrlCreateLabel("Uhrzeit wann Erinnern", 10, 73)
    $zeit[0] = GUICtrlCreateDate("", 116, 70, 70, 20, $DTS_TIMEFORMAT)
    GUICtrlCreateLabel("Tätigkeit = ", 20, 120)
    $ttk[0] = GUICtrlCreateCombo("auswählen...", 75, 117, 100)
    GUICtrlSetData(-1, "Nachricht|anderes")
    $nName[0] = GUICtrlCreateInput("", 30, 150, 140, 20)
    $nEreignis[0] = GUICtrlCreateInput("", 30, 180, 140, 20)
    $nExtra[0] = GUICtrlCreateInput("", 30, 210, 140, 70)
    GUICtrlCreateGroup("", 5, 5, 190, 95)
    GUICtrlCreateGroup("", 5, 95, 190, 200)

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

    $Tab2 = GUICtrlCreateTabItem("2. Termin")
    GUICtrlCreateLabel("Bitte Wählen Sie ein Datum aus :", 25, 20)
    $date[1] = GUICtrlCreateDate("", 10, 40, 180, 20, $DTS_SHORTDATEFORMAT)
    GUICtrlCreateLabel("Uhrzeit wann Erinnern", 10, 73)
    $zeit[1] = GUICtrlCreateDate("", 116, 70, 70, 20, $DTS_TIMEFORMAT)
    GUICtrlCreateLabel("Tätigkeit = ", 20, 120)
    $ttk[1] = GUICtrlCreateCombo("auswählen...", 75, 117, 100)
    GUICtrlSetData(-1, "Nachricht|anderes")
    $nName[1] = GUICtrlCreateInput("", 30, 150, 140, 20)
    $nEreignis[1] = GUICtrlCreateInput("", 30, 180, 140, 20)
    $nExtra[1] = GUICtrlCreateInput("", 30, 210, 140, 70)
    GUICtrlCreateGroup("", 5, 5, 190, 95)
    GUICtrlCreateGroup("", 5, 95, 190, 200)

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

    $Tab3 = GUICtrlCreateTabItem("3. Termin")
    GUICtrlCreateLabel("Bitte Wählen Sie ein Datum aus :", 25, 20)
    $date[2] = GUICtrlCreateDate("", 10, 40, 180, 20, $DTS_SHORTDATEFORMAT)
    GUICtrlCreateLabel("Uhrzeit wann Erinnern", 10, 73)
    $zeit[2] = GUICtrlCreateDate("", 116, 70, 70, 20, $DTS_TIMEFORMAT)
    GUICtrlCreateLabel("Tätigkeit = ", 20, 120)
    $ttk[2] = GUICtrlCreateCombo("auswählen...", 75, 117, 100)
    GUICtrlSetData(-1, "Nachricht|anderes")
    $nName[2] = GUICtrlCreateInput("", 30, 150, 140, 20)
    $nEreignis[2] = GUICtrlCreateInput("", 30, 180, 140, 20)
    $nExtra[2] = GUICtrlCreateInput("", 30, 210, 140, 70)
    GUICtrlCreateGroup("", 5, 5, 190, 95)
    GUICtrlCreateGroup("", 5, 95, 190, 200)

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

    $Tab4 = GUICtrlCreateTabItem("Termine")
    $ListView = GUICtrlCreateListView("Wann", 5, 5, 190, 290)
    $list = GUICtrlGetHandle($ListView)
    $Tzeit = _GUICtrlListView_AddColumn($list, "Zeit", 60)
    $was = _GUICtrlListView_AddColumn($list, "Info", 100)

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

    TrayCreateItem("Exit")
    TrayItemSetOnEvent(-1, "_GUIClose")
    TraySetState(1)

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

    $state = GUICtrlSetState($CheckerASE, $GUI_DISABLE)

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

    GUISetState(@SW_SHOW, $GUI)

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

    AdlibEnable("_SetTermine", 3000)
    ;Auto Load
    _SetTermine()
    _SetMenu()
    _EinstLoadGui1()
    _EinstLoadGui2()
    _EinstLoadGui3()
    ;End Auto Load

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $save[0]
    ; 1 Termin
    If Not $date[0] = "" Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 1", "Datum", GUICtrlRead($date[0]))
    If Not $zeit[0] = "" Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 1", "Uhrzeit", GUICtrlRead($zeit[0]))
    If Not $ttk[0] = "" Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 1", "Was?", GUICtrlRead($ttk[0]))
    If Not $nName[0] = "" Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 1", "Name", GUICtrlRead($nName[0]))
    If Not $nEreignis[0] = "" Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 1", "Ereignis", GUICtrlRead($nEreignis[0]))
    If Not $nExtra[0] = "" Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 1", "Extra Angaben", GUICtrlRead($nExtra[0]))
    ; 2 Termin
    If Not $date[1] = "" Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 2", "Datum", GUICtrlRead($date[1]))
    If Not $zeit[1] = "" Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 2", "Uhrzeit", GUICtrlRead($zeit[1]))
    If Not $ttk[1] = "" Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 2", "Was?", GUICtrlRead($ttk[1]))
    If Not $nName[1] = "" Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 2", "Name", GUICtrlRead($nName[1]))
    If Not $nEreignis[1] = "" Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 2", "Ereignis", GUICtrlRead($nEreignis[1]))
    ; 3 Termin
    If Not $date[2] = "" Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 3", "Datum", GUICtrlRead($date[2]))
    If Not $zeit[2] = "" Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 3", "Uhrzeit", GUICtrlRead($zeit[2]))
    If Not $ttk[2] = "" Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 3", "Was?", GUICtrlRead($ttk[2]))
    If Not $nName[2] = "" Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 3", "Name", GUICtrlRead($nName[2]))
    If Not $nEreignis[2] = "" Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 3", "Ereignis", GUICtrlRead($nEreignis[2]))
    If Not $nExtra[2] = "" Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 3", "Extra Angaben", GUICtrlRead($nExtra[2]))
    ;menu
    If Not @error Then
    Sleep(250)
    MsgBox(4096, "Planer Termine", "Einstellungen Gespeichert")
    EndIf
    Case $Load
    ;1 Termin
    GUICtrlSetData($date[0], IniRead(@ScriptDir & "\Termine.ini", "Termin 1", "Datum", ""))
    GUICtrlSetData($zeit[0], IniRead(@ScriptDir & "\Termine.ini", "Termin 1", "Uhrzeit", ""))
    GUICtrlSetData($ttk[0], IniRead(@ScriptDir & "\Termine.ini", "Termin 1", "Was?", ""))
    GUICtrlSetData($nName[0], IniRead(@ScriptDir & "\Termine.ini", "Termin 1", "Name", ""))
    GUICtrlSetData($nEreignis[0], IniRead(@ScriptDir & "\Termine.ini", "Termin 1", "Ereignis", ""))
    GUICtrlSetData($nExtra[0], IniRead(@ScriptDir & "\Termine.ini", "Termin 1", "Extra Angaben", ""))
    ;2 Termin
    GUICtrlSetData($date[1], IniRead(@ScriptDir & "\Termine.ini", "Termin 2", "Datum", ""))
    GUICtrlSetData($zeit[1], IniRead(@ScriptDir & "\Termine.ini", "Termin 2", "Uhrzeit", ""))
    GUICtrlSetData($ttk[1], IniRead(@ScriptDir & "\Termine.ini", "Termin 2", "Was?", ""))
    GUICtrlSetData($nName[1], IniRead(@ScriptDir & "\Termine.ini", "Termin 2", "Name", ""))
    GUICtrlSetData($nEreignis[1], IniRead(@ScriptDir & "\Termine.ini", "Termin 2", "Ereignis", ""))
    GUICtrlSetData($nExtra[1], IniRead(@ScriptDir & "\Termine.ini", "Termin 2", "Extra Angaben", ""))
    ;3 Termin
    GUICtrlSetData($date[2], IniRead(@ScriptDir & "\Termine.ini", "Termin 3", "Datum", ""))
    GUICtrlSetData($zeit[2], IniRead(@ScriptDir & "\Termine.ini", "Termin 3", "Uhrzeit", ""))
    GUICtrlSetData($ttk[2], IniRead(@ScriptDir & "\Termine.ini", "Termin 3", "Was?", ""))
    GUICtrlSetData($nName[2], IniRead(@ScriptDir & "\Termine.ini", "Termin 3", "Name", ""))
    GUICtrlSetData($nEreignis[2], IniRead(@ScriptDir & "\Termine.ini", "Termin 3", "Ereignis", ""))
    GUICtrlSetData($nExtra[2], IniRead(@ScriptDir & "\Termine.ini", "Termin 3", "Extra Angaben", ""))
    Case $CheckerASE
    IniWrite(@ScriptDir & "\Termine.ini", "Checker", "Status", "Ist im Auto Start = aktiv")
    If RegRead("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Termine Checker") = @ScriptDir & "\Termine Checker.exe" Then
    RegDelete("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Termine Checker")
    Else
    RegWrite("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Termine Checker", "REG_SZ", @ScriptDir & "\Termine Checker.exe")
    EndIf
    GUICtrlSetState($CheckerASH, $GUI_ENABLE)
    GUICtrlSetState($CheckerASE, $GUI_DISABLE)
    Case $CheckerASH
    IniWrite(@ScriptDir & "\Termine.ini", "Checker", "Status", "Ist im Auto Start = aktiv")
    If RegRead("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Termine Checker") = @ScriptDir & "\Termine Checker.exe" Then
    RegDelete("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Termine Checker")
    Else
    RegWrite("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Termine Checker", "REG_SZ", @ScriptDir & "\Termine Checker.exe")
    EndIf
    GUICtrlSetState($CheckerASE, $GUI_ENABLE)
    GUICtrlSetState($CheckerASH, $GUI_DISABLE)
    Case $open
    $file = FileOpenDialog("Wählen Sie bitte den Termin Checker aus", @ScriptDir, "Alle(*.*)")
    ShellExecute($file)
    Case $Info
    MsgBox(4096, "Planer Hilfe", "1. Damit der Planer arbeiten kann muss zuerst der 'Termine Checker' in den autostart hinzugefügt werden damit er Ihre Termine abrufen kann." & (@CRLF) & "2. Wenn ihr Termin eintritt erhalten Sie eine Naricht mit den festgelegten Infos bei 'Tätigkeit auswählen'." & (@CRLF) & "3. Unter 'Einstellungen' können sie weitere Tätigkeiten des Planers vornhemen." & (@CRLF) & "4. Wenn das 'Planer EInstellungen'-Fenster offen ist können sie keine Funktionen bei dem 'Planer' ausführen, deshalb schließen Sie das 'Planer Einstellungen'-Fenster, um bei den 'Planer'-Fenster weiterzuarbeiten." & (@CRLF) & "" & (@CRLF) & "Ich hoffe er gefällt euch =)" & (@CRLF) & "" & (@CRLF) & "Mady by ScripterDrîzzt from : http://www.autoit.de")
    Case $GUI_EVENT_CLOSE
    Exit
    Case $ttk[0]
    If GUICtrlRead($ttk[0]) = "auswählen..." Then
    GUICtrlSetData($nName[0], "")
    GUICtrlSetData($nEreignis[0], "")
    GUICtrlSetData($nExtra[0], "")
    EndIf
    If GUICtrlRead($ttk[0]) = "Nachricht" Then
    GUICtrlSetData($nName[0], "")
    GUICtrlSetData($nEreignis[0], "")
    GUICtrlSetData($nExtra[0], "")
    GUICtrlSetData($nName[0], "Name der Person")
    GUICtrlSetData($nEreignis[0], "Ereignis")
    GUICtrlSetData($nExtra[0], "Extra angaben")
    EndIf
    If GUICtrlRead($ttk[0]) = "anderes" Then
    GUICtrlSetData($nName[0], "")
    GUICtrlSetData($nEreignis[0], "")
    GUICtrlSetData($nExtra[0], "")
    GUICtrlSetData($nName[0], "Geben Sie etwas an")
    GUICtrlSetData($nEreignis[0], "Geben Sie etwas an")
    GUICtrlSetData($nExtra[0], "Geben Sie etwas an")
    EndIf
    Case $Einstellungen[0]
    $EinstellungenGUI = GUICreate("Planer Einstellungen für Termin 1", 300, 165, 95, 100)
    GUISetBkColor(0x00FF80)
    $Datei2 = GUICtrlCreateMenu("Datei")
    $save2[0] = GUICtrlCreateMenuItem("Speichern", $Datei2)
    $LoadEin1 = GUICtrlCreateMenuItem("Laden", $Datei2)
    GUICtrlCreateLabel("Maximal, bitte nur 1 Häckchen in den 3 Boxen setzen", 15, 10)
    GUICtrlSetColor(-1, 0x000080)
    $settings1[0] = GUICtrlCreateCheckbox("", 15, 28)
    GUICtrlCreateLabel("Wenn Termin eintretet PC Herunterfahren?", 35, 32)
    $settings2[0] = GUICtrlCreateCheckbox("", 15, 48)
    GUICtrlCreateLabel("Wenn Termin eintretet Neustarten?", 35, 52)
    $settings3[0] = GUICtrlCreateCheckbox("", 15, 66)
    GUICtrlCreateLabel("Wenn Termin eintretet Benutzer vom PC abmelden?", 35, 72)
    $settings4[0] = GUICtrlCreateInput("", 15, 110, 240, 20)
    $Sound[0] = GUICtrlCreateButton("...", 255, 110, 35, 20)
    GUICtrlCreateLabel("Wenn Termin eintretet ein Sound abspielen? Falls Ja dann :", 10, 92)
    GUICtrlCreateGroup("", 5, 0, 290, 90)
    GUICtrlCreateGroup("", 5, 0, 290, 140)
    GUISetState(@SW_SHOW, $EinstellungenGUI)
    _EinstLoadGui1()
    While 1
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    GUISetState(@SW_HIDE, $EinstellungenGUI)
    ExitLoop
    Case $Sound[0]
    $pfad = FileOpenDialog("Bitte ein Sound wählen !", @MyDocumentsDir, "Alle(*.*)", 1)
    If @error Then
    MsgBox(4096, "", "Keine Datei(en) ausgewählt")
    Else
    $pfad = StringReplace($pfad, "|", @CRLF)
    GUICtrlSetData($settings4[0], $pfad)
    EndIf
    Case $save2[0]
    If GUICtrlRead($settings1[0]) = 1 Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 1", "PC Shutdown", GUICtrlRead($settings1[0]))
    If GUICtrlRead($settings1[0]) = 4 Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 1", "PC Shutdown", GUICtrlRead($settings1[0]))
    If GUICtrlRead($settings2[0]) = 1 Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 1", "PC Restart", GUICtrlRead($settings2[0]))
    If GUICtrlRead($settings2[0]) = 4 Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 1", "PC Restart", GUICtrlRead($settings2[0]))
    If GUICtrlRead($settings3[0]) = 1 Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 1", "Abmelden", GUICtrlRead($settings3[0]))
    If GUICtrlRead($settings3[0]) = 4 Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 1", "Abmelden", GUICtrlRead($settings3[0]))
    IniWrite(@ScriptDir & "\Termine.ini", "Sound für Termin 1", "Pfad", GUICtrlRead($settings4[0]))
    If Not @error Then
    Sleep(250)
    MsgBox(4096, "Planer", "Einstellungen Gespeichert")
    EndIf
    Case $LoadEin1
    _EinstLoadGui1()
    EndSwitch
    WEnd
    Case $ttk[1]
    If GUICtrlRead($ttk[1]) = "auswählen..." Then
    GUICtrlSetData($nName[1], "")
    GUICtrlSetData($nEreignis[1], "")
    GUICtrlSetData($nExtra[1], "")
    EndIf
    If GUICtrlRead($ttk[1]) = "Nachricht" Then
    GUICtrlSetData($nName[1], "")
    GUICtrlSetData($nEreignis[1], "")
    GUICtrlSetData($nExtra[1], "")
    GUICtrlSetData($nName[1], "Name der Person")
    GUICtrlSetData($nEreignis[1], "Ereignis")
    GUICtrlSetData($nExtra[1], "Extra angaben")
    EndIf
    If GUICtrlRead($ttk[1]) = "anderes" Then
    GUICtrlSetData($nName[1], "")
    GUICtrlSetData($nEreignis[1], "")
    GUICtrlSetData($nExtra[1], "")
    GUICtrlSetData($nName[1], "Geben Sie etwas an")
    GUICtrlSetData($nEreignis[1], "Geben Sie etwas an")
    GUICtrlSetData($nExtra[1], "Geben Sie etwas an")
    EndIf
    Case $Einstellungen[1]
    $EinstellungenGUI2 = GUICreate("Planer Einstellungen für Termin 2", 300, 165, 95, 100)
    GUISetBkColor(0x00FF80)
    $Datei2 = GUICtrlCreateMenu("Datei")
    $save2[1] = GUICtrlCreateMenuItem("Speichern", $Datei2)
    $LoadEin2 = GUICtrlCreateMenuItem("Laden", $Datei2)
    GUICtrlCreateLabel("Maximal, bitte nur 1 Häckchen in den 3 Boxen setzen", 15, 10)
    GUICtrlSetColor(-1, 0x000080)
    $settings1[1] = GUICtrlCreateCheckbox("", 15, 28)
    GUICtrlCreateLabel("Wenn Termin eintretet PC Herunterfahren?", 35, 32)
    $settings2[1] = GUICtrlCreateCheckbox("", 15, 48)
    GUICtrlCreateLabel("Wenn Termin eintretet Neustarten?", 35, 52)
    $settings3[1] = GUICtrlCreateCheckbox("", 15, 66)
    GUICtrlCreateLabel("Wenn Termin eintretet Benutzer vom PC abmelden?", 35, 72)
    $settings4[1] = GUICtrlCreateInput("", 15, 110, 240, 20)
    $Sound[1] = GUICtrlCreateButton("...", 255, 110, 35, 20)
    GUICtrlCreateLabel("Wenn Termin eintretet ein Sound abspielen? Falls Ja dann :", 10, 92)
    GUICtrlCreateGroup("", 5, 0, 290, 90)
    GUICtrlCreateGroup("", 5, 0, 290, 140)
    GUISetState(@SW_SHOW, $EinstellungenGUI2)
    _EinstLoadGui2()
    While 1
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    GUISetState(@SW_HIDE, $EinstellungenGUI2)
    ExitLoop
    Case $Sound[1]
    $pfad = FileOpenDialog("Bitte ein Sound wählen !", @MyDocumentsDir, "Alle(*.*)", 1)
    If @error Then
    MsgBox(4096, "", "Keine Datei(en) ausgewählt")
    Else
    $pfad = StringReplace($pfad, "|", @CRLF)
    GUICtrlSetData($settings4[1], $pfad)
    EndIf
    Case $save2[1]
    If GUICtrlRead($settings1[1]) = 1 Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 2", "PC Shutdown", GUICtrlRead($settings1[1]))
    If GUICtrlRead($settings1[1]) = 4 Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 2", "PC Shutdown", GUICtrlRead($settings1[1]))
    If GUICtrlRead($settings2[1]) = 1 Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 2", "PC Restart", GUICtrlRead($settings2[1]))
    If GUICtrlRead($settings2[1]) = 4 Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 2", "PC Restart", GUICtrlRead($settings2[1]))
    If GUICtrlRead($settings3[1]) = 1 Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 2", "Abmelden", GUICtrlRead($settings3[1]))
    If GUICtrlRead($settings3[1]) = 4 Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 2", "Abmelden", GUICtrlRead($settings3[1]))
    IniWrite(@ScriptDir & "\Termine.ini", "Sound für Termin 2", "Pfad", GUICtrlRead($settings4[1]))
    If Not @error Then
    Sleep(250)
    MsgBox(4096, "Planer", "Einstellungen Gespeichert")
    EndIf
    Case $LoadEin2
    _EinstLoadGui2()
    EndSwitch
    WEnd
    Case $ttk[2]
    If GUICtrlRead($ttk[2]) = "auswählen..." Then
    GUICtrlSetData($nName[2], "")
    GUICtrlSetData($nEreignis[2], "")
    GUICtrlSetData($nExtra[2], "")
    EndIf
    If GUICtrlRead($ttk[2]) = "Nachricht" Then
    GUICtrlSetData($nName[2], "")
    GUICtrlSetData($nEreignis[2], "")
    GUICtrlSetData($nExtra[2], "")
    GUICtrlSetData($nName[2], "Name der Person")
    GUICtrlSetData($nEreignis[2], "Ereignis")
    GUICtrlSetData($nExtra[2], "Extra angaben")
    EndIf
    If GUICtrlRead($ttk[2]) = "anderes" Then
    GUICtrlSetData($nName[2], "")
    GUICtrlSetData($nEreignis[2], "")
    GUICtrlSetData($nExtra[2], "")
    GUICtrlSetData($nName[2], "Geben Sie etwas an")
    GUICtrlSetData($nEreignis[2], "Geben Sie etwas an")
    GUICtrlSetData($nExtra[2], "Geben Sie etwas an")
    EndIf
    Case $Einstellungen[2]
    $EinstellungenGUI3 = GUICreate("Planer Einstellungen für Termin 3", 300, 165, 95, 100)
    GUISetBkColor(0x00FF80)
    $Datei3 = GUICtrlCreateMenu("Datei")
    $save2[2] = GUICtrlCreateMenuItem("Speichern", $Datei3)
    $LoadEin3 = GUICtrlCreateMenuItem("Laden", $Datei3)
    GUICtrlCreateLabel("Maximal, bitte nur 1 Häckchen in den 3 Boxen setzen", 15, 10)
    GUICtrlSetColor(-1, 0x000080)
    $settings1[2] = GUICtrlCreateCheckbox("", 15, 28)
    GUICtrlCreateLabel("Wenn Termin eintretet PC Herunterfahren?", 35, 32)
    $settings2[2] = GUICtrlCreateCheckbox("", 15, 48)
    GUICtrlCreateLabel("Wenn Termin eintretet Neustarten?", 35, 52)
    $settings3[2] = GUICtrlCreateCheckbox("", 15, 66)
    GUICtrlCreateLabel("Wenn Termin eintretet Benutzer vom PC abmelden?", 35, 72)
    $settings4[2] = GUICtrlCreateInput("", 15, 110, 240, 20)
    $Sound[2] = GUICtrlCreateButton("...", 255, 110, 35, 20)
    GUICtrlCreateLabel("Wenn Termin eintretet ein Sound abspielen? Falls Ja dann :", 10, 92)
    GUICtrlCreateGroup("", 5, 0, 290, 90)
    GUICtrlCreateGroup("", 5, 0, 290, 140)
    GUISetState(@SW_SHOW, $EinstellungenGUI3)
    _EinstLoadGui3()
    While 1
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    GUISetState(@SW_HIDE, $EinstellungenGUI3)
    ExitLoop
    Case $Sound[2]
    $pfad = FileOpenDialog("Bitte ein Sound wählen !", @MyDocumentsDir, "Alle(*.*)", 1)
    If @error Then
    MsgBox(4096, "", "Keine Datei(en) ausgewählt")
    Else
    $pfad = StringReplace($pfad, "|", @CRLF)
    GUICtrlSetData($settings4[2], $pfad)
    EndIf
    Case $save2[2]
    If GUICtrlRead($settings1[2]) = 1 Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 3", "PC Shutdown", GUICtrlRead($settings1[2]))
    If GUICtrlRead($settings1[2]) = 4 Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 3", "PC Shutdown", GUICtrlRead($settings1[2]))
    If GUICtrlRead($settings2[2]) = 1 Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 3", "PC Restart", GUICtrlRead($settings2[2]))
    If GUICtrlRead($settings2[2]) = 4 Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 3", "PC Restart", GUICtrlRead($settings2[2]))
    If GUICtrlRead($settings3[2]) = 1 Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 3", "Abmelden", GUICtrlRead($settings3[2]))
    If GUICtrlRead($settings3[2]) = 4 Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 3", "Abmelden", GUICtrlRead($settings3[2]))
    IniWrite(@ScriptDir & "\Termine.ini", "Sound für Termin 3", "Pfad", GUICtrlRead($settings4[2]))
    If Not @error Then
    Sleep(250)
    MsgBox(4096, "Planer", "Einstellungen Gespeichert")
    EndIf
    Case $LoadEin3
    _EinstLoadGui3()
    EndSwitch
    WEnd
    EndSwitch
    WEnd

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

    Func _SetTermine()
    _GUICtrlListView_DeleteAllItems($list)
    $TsetZeit1 = IniRead(@ScriptDir & "\Termine.ini", "Termin 1", "Uhrzeit", "")
    $TsetWas1 = IniRead(@ScriptDir & "\Termine.ini", "Termin 1", "Was?", "")
    If $TsetWas1 <> "auswählen..." Then
    _GUICtrlListView_AddItem($list, IniRead(@ScriptDir & "\Termine.ini", "Termin 1", "Datum", ""), _GUICtrlListView_GetItemCount($list) + 999)
    _GUICtrlListView_AddSubItem($list, _GUICtrlListView_GetItemCount($list) - 1, $TsetZeit1, 1)
    _GUICtrlListView_AddSubItem($list, _GUICtrlListView_GetItemCount($list) - 1, $TsetWas1, 2)
    EndIf
    $TsetZeit2 = IniRead(@ScriptDir & "\Termine.ini", "Termin 2", "Uhrzeit", "")
    $TsetWas2 = IniRead(@ScriptDir & "\Termine.ini", "Termin 2", "Was?", "")
    If $TsetWas2 <> "auswählen..." Then
    _GUICtrlListView_AddItem($list, IniRead(@ScriptDir & "\Termine.ini", "Termin 2", "Datum", ""), _GUICtrlListView_GetItemCount($list) + 999)
    _GUICtrlListView_AddSubItem($list, _GUICtrlListView_GetItemCount($list) - 1, $TsetZeit2, 1)
    _GUICtrlListView_AddSubItem($list, _GUICtrlListView_GetItemCount($list) - 1, $TsetWas2, 2)
    EndIf
    $TsetZeit3 = IniRead(@ScriptDir & "\Termine.ini", "Termin 3", "Uhrzeit", "")
    $TsetWas3 = IniRead(@ScriptDir & "\Termine.ini", "Termin 3", "Was?", "")
    If $TsetWas3 <> "auswählen..." Then
    _GUICtrlListView_AddItem($list, IniRead(@ScriptDir & "\Termine.ini", "Termin 3", "Datum", ""), _GUICtrlListView_GetItemCount($list) + 999)
    _GUICtrlListView_AddSubItem($list, _GUICtrlListView_GetItemCount($list) - 1, $TsetZeit3, 1)
    _GUICtrlListView_AddSubItem($list, _GUICtrlListView_GetItemCount($list) - 1, $TsetWas3, 2)
    EndIf
    EndFunc ;==>_SetTermine

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

    Func _SetMenu()
    $ReadAutoStart = IniRead(@ScriptDir & "\Termine.ini", "Checker", " Status", " Nicht Vorhanden")
    If $ReadAutoStart = "Ist im Auto Start = aktiv" Then
    GUICtrlSetState($CheckerASH, $GUI_DISABLE)
    GUICtrlSetState($CheckerASE, $GUI_ENABLE)
    EndIf
    EndFunc ;==>_SetMenu

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

    Func _EinstLoadGui1()
    GUICtrlSetState($settings1[0], IniRead(@ScriptDir & "\Termine.ini", "Termin 1", "PC Shutdown", ""))
    GUICtrlSetState($settings2[0], IniRead(@ScriptDir & "\Termine.ini", "Termin 1", "PC Restart", ""))
    GUICtrlSetState($settings3[0], IniRead(@ScriptDir & "\Termine.ini", "Termin 1", "Abmelden", ""))
    GUICtrlSetData($settings4[0], IniRead(@ScriptDir & "\Termine.ini", "Sound für Termin 1", "Pfad", "Kein Sound ausgewählt"))
    EndFunc ;==>_EinstLoadGui1

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

    Func _EinstLoadGui2()
    GUICtrlSetState($settings1[1], IniRead(@ScriptDir & "\Termine.ini", "Termin 2", "PC Shutdown", ""))
    GUICtrlSetState($settings2[1], IniRead(@ScriptDir & "\Termine.ini", "Termin 2", "PC Restart", ""))
    GUICtrlSetState($settings3[1], IniRead(@ScriptDir & "\Termine.ini", "Termin 2", "Abmelden", ""))
    GUICtrlSetData($settings4[1], IniRead(@ScriptDir & "\Termine.ini", "Sound für Termin 2", "Pfad", "Kein Sound ausgewählt"))
    EndFunc ;==>_EinstLoadGui2

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

    Func _EinstLoadGui3()
    GUICtrlSetState($settings1[2], IniRead(@ScriptDir & "\Termine.ini", "Termin 3", "PC Shutdown", ""))
    GUICtrlSetState($settings2[2], IniRead(@ScriptDir & "\Termine.ini", "Termin 3", "PC Restart", ""))
    GUICtrlSetState($settings3[2], IniRead(@ScriptDir & "\Termine.ini", "Termin 3", "Abmelden", ""))
    GUICtrlSetData($settings4[2], IniRead(@ScriptDir & "\Termine.ini", "Sound für Termin 3", "Pfad", "Kein Sound ausgewählt"))
    EndFunc ;==>_EinstLoadGui3

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

    Func _GUIClose()
    Exit
    EndFunc ;==>_GUIClose

    [/autoit]
    • Offizieller Beitrag

    Habe dein Problem gelöst. :D

    Spoiler anzeigen
    [autoit]

    #include <DateTimeConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <Array.au3>
    #include <GuiListView.au3>
    Opt("TrayOnEventMode", 1)
    Opt("TrayMenuMode", 1)

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

    Global $date[3], $zeit[3], $ttk[3], $nName[3], $nEreignis[3], $nExtra[3], $Datei[3], $save[3], $save2[3], $settings1[3], $settings2[3], $settings3[3], $settings4[3], $Sound[3], $Einstellungen[3]

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

    $GUI = GUICreate("Planer", 200, 340, 400, 100)
    GUISetBkColor(0x00FF80)
    GUICtrlCreateTab(0, 300, 200, 30)

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

    $Datei[0] = GUICtrlCreateMenu("Datei")
    $save[0] = GUICtrlCreateMenuItem("Speichern", $Datei[0])
    $Load = GUICtrlCreateMenuItem("Laden", $Datei[0])
    $open = GUICtrlCreateMenuItem("Öffne Checker", $Datei[0])
    $Settings = GUICtrlCreateMenu("Settings")
    $Einstellungen[0] = GUICtrlCreateMenuItem("Einstellungen für 1. Termin", $Settings)
    $Einstellungen[1] = GUICtrlCreateMenuItem("Einstellungen für 2. Termin", $Settings)
    $Einstellungen[2] = GUICtrlCreateMenuItem("Einstellungen für 3. Termin", $Settings)
    $Checker = GUICtrlCreateMenu("Checker in Auto Start", $Settings)
    $CheckerASH = GUICtrlCreateMenuItem("Checker in Systemstart Hinzufügen", $Checker)
    $CheckerASE = GUICtrlCreateMenuItem("Checker aus dem Systemstart entfernen", $Checker)
    $Hilfe = GUICtrlCreateMenu("Hilfe")
    $Info = GUICtrlCreateMenuItem("Info", $Hilfe)

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

    $Tab1 = GUICtrlCreateTabItem("1. Termin")
    GUICtrlCreateLabel("Bitte Wählen Sie ein Datum aus :", 25, 20)
    $date[0] = GUICtrlCreateDate("", 10, 40, 180, 20, $DTS_SHORTDATEFORMAT)
    GUICtrlCreateLabel("Uhrzeit wann Erinnern", 10, 73)
    $zeit[0] = GUICtrlCreateDate("", 116, 70, 70, 20, $DTS_TIMEFORMAT)
    GUICtrlCreateLabel("Tätigkeit = ", 20, 120)
    $ttk[0] = GUICtrlCreateCombo("auswählen...", 75, 117, 100)
    GUICtrlSetData(-1, "Nachricht|anderes")
    $nName[0] = GUICtrlCreateInput("", 30, 150, 140, 20)
    $nEreignis[0] = GUICtrlCreateInput("", 30, 180, 140, 20)
    $nExtra[0] = GUICtrlCreateInput("", 30, 210, 140, 70)
    GUICtrlCreateGroup("", 5, 5, 190, 95)
    GUICtrlCreateGroup("", 5, 95, 190, 200)

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

    $Tab2 = GUICtrlCreateTabItem("2. Termin")
    GUICtrlCreateLabel("Bitte Wählen Sie ein Datum aus :", 25, 20)
    $date[1] = GUICtrlCreateDate("", 10, 40, 180, 20, $DTS_SHORTDATEFORMAT)
    GUICtrlCreateLabel("Uhrzeit wann Erinnern", 10, 73)
    $zeit[1] = GUICtrlCreateDate("", 116, 70, 70, 20, $DTS_TIMEFORMAT)
    GUICtrlCreateLabel("Tätigkeit = ", 20, 120)
    $ttk[1] = GUICtrlCreateCombo("auswählen...", 75, 117, 100)
    GUICtrlSetData(-1, "Nachricht|anderes")
    $nName[1] = GUICtrlCreateInput("", 30, 150, 140, 20)
    $nEreignis[1] = GUICtrlCreateInput("", 30, 180, 140, 20)
    $nExtra[1] = GUICtrlCreateInput("", 30, 210, 140, 70)
    GUICtrlCreateGroup("", 5, 5, 190, 95)
    GUICtrlCreateGroup("", 5, 95, 190, 200)

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

    $Tab3 = GUICtrlCreateTabItem("3. Termin")
    GUICtrlCreateLabel("Bitte Wählen Sie ein Datum aus :", 25, 20)
    $date[2] = GUICtrlCreateDate("", 10, 40, 180, 20, $DTS_SHORTDATEFORMAT)
    GUICtrlCreateLabel("Uhrzeit wann Erinnern", 10, 73)
    $zeit[2] = GUICtrlCreateDate("", 116, 70, 70, 20, $DTS_TIMEFORMAT)
    GUICtrlCreateLabel("Tätigkeit = ", 20, 120)
    $ttk[2] = GUICtrlCreateCombo("auswählen...", 75, 117, 100)
    GUICtrlSetData(-1, "Nachricht|anderes")
    $nName[2] = GUICtrlCreateInput("", 30, 150, 140, 20)
    $nEreignis[2] = GUICtrlCreateInput("", 30, 180, 140, 20)
    $nExtra[2] = GUICtrlCreateInput("", 30, 210, 140, 70)
    GUICtrlCreateGroup("", 5, 5, 190, 95)
    GUICtrlCreateGroup("", 5, 95, 190, 200)

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

    $Tab4 = GUICtrlCreateTabItem("Termine")
    $ListView = GUICtrlCreateListView("Wann", 5, 5, 190, 290)
    $list = GUICtrlGetHandle($ListView)
    $Tzeit = _GUICtrlListView_AddColumn($list, "Zeit", 60)
    $was = _GUICtrlListView_AddColumn($list, "Info", 100)

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

    TrayCreateItem("Exit")
    TrayItemSetOnEvent(-1, "_GUIClose")
    TraySetState(1)

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

    $state = GUICtrlSetState($CheckerASE, $GUI_DISABLE)

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

    GUISetState(@SW_SHOW, $GUI)

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

    AdlibEnable("_SetTermine", 3000)
    ;Auto Load
    _SetTermine()
    _SetMenu()
    _EinstLoadGui1()
    _EinstLoadGui2()
    _EinstLoadGui3()
    ;End Auto Load

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $save[0]
    ; 1 Termin
    If Not $date[0] = "" Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 1", "Datum", GUICtrlRead($date[0]))
    If Not $zeit[0] = "" Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 1", "Uhrzeit", GUICtrlRead($zeit[0]))
    If Not $ttk[0] = "" Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 1", "Was?", GUICtrlRead($ttk[0]))
    If Not $nName[0] = "" Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 1", "Name", GUICtrlRead($nName[0]))
    If Not $nEreignis[0] = "" Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 1", "Ereignis", GUICtrlRead($nEreignis[0]))
    If Not $nExtra[0] = "" Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 1", "Extra Angaben", GUICtrlRead($nExtra[0]))
    ; 2 Termin
    If Not $date[1] = "" Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 2", "Datum", GUICtrlRead($date[1]))
    If Not $zeit[1] = "" Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 2", "Uhrzeit", GUICtrlRead($zeit[1]))
    If Not $ttk[1] = "" Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 2", "Was?", GUICtrlRead($ttk[1]))
    If Not $nName[1] = "" Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 2", "Name", GUICtrlRead($nName[1]))
    If Not $nEreignis[1] = "" Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 2", "Ereignis", GUICtrlRead($nEreignis[1]))
    ; 3 Termin
    If Not $date[2] = "" Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 3", "Datum", GUICtrlRead($date[2]))
    If Not $zeit[2] = "" Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 3", "Uhrzeit", GUICtrlRead($zeit[2]))
    If Not $ttk[2] = "" Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 3", "Was?", GUICtrlRead($ttk[2]))
    If Not $nName[2] = "" Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 3", "Name", GUICtrlRead($nName[2]))
    If Not $nEreignis[2] = "" Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 3", "Ereignis", GUICtrlRead($nEreignis[2]))
    If Not $nExtra[2] = "" Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 3", "Extra Angaben", GUICtrlRead($nExtra[2]))
    ;menu
    If Not @error Then
    Sleep(250)
    MsgBox(4096, "Planer Termine", "Einstellungen Gespeichert")
    EndIf
    Case $Load
    ;1 Termin
    GUICtrlSetData($date[0], _DateConvert(IniRead(@ScriptDir & "\Termine.ini", "Termin 1", "Datum", "")))
    GUICtrlSetData($zeit[0], "2008/01/01 " & IniRead(@ScriptDir & "\Termine.ini", "Termin 1", "Uhrzeit", ""))
    MsgBox(0, "", "2009/8/30 " & IniRead(@ScriptDir & "\Termine.ini", "Termin 1", "Uhrzeit", ""))
    GUICtrlSetData($ttk[0], IniRead(@ScriptDir & "\Termine.ini", "Termin 1", "Was?", ""))
    GUICtrlSetData($nName[0], IniRead(@ScriptDir & "\Termine.ini", "Termin 1", "Name", ""))
    GUICtrlSetData($nEreignis[0], IniRead(@ScriptDir & "\Termine.ini", "Termin 1", "Ereignis", ""))
    GUICtrlSetData($nExtra[0], IniRead(@ScriptDir & "\Termine.ini", "Termin 1", "Extra Angaben", ""))
    ;2 Termin
    GUICtrlSetData($date[1], _DateConvert(IniRead(@ScriptDir & "\Termine.ini", "Termin 2", "Datum", "")))
    GUICtrlSetData($zeit[1], "2008/01/01 " & IniRead(@ScriptDir & "\Termine.ini", "Termin 2", "Uhrzeit", ""))
    GUICtrlSetData($ttk[1], IniRead(@ScriptDir & "\Termine.ini", "Termin 2", "Was?", ""))
    GUICtrlSetData($nName[1], IniRead(@ScriptDir & "\Termine.ini", "Termin 2", "Name", ""))
    GUICtrlSetData($nEreignis[1], IniRead(@ScriptDir & "\Termine.ini", "Termin 2", "Ereignis", ""))
    GUICtrlSetData($nExtra[1], IniRead(@ScriptDir & "\Termine.ini", "Termin 2", "Extra Angaben", ""))
    ;3 Termin
    GUICtrlSetData($date[2], _DateConvert(IniRead(@ScriptDir & "\Termine.ini", "Termin 3", "Datum", "")))
    GUICtrlSetData($zeit[2], "2008/01/01 " & IniRead(@ScriptDir & "\Termine.ini", "Termin 3", "Uhrzeit", ""))
    GUICtrlSetData($ttk[2], IniRead(@ScriptDir & "\Termine.ini", "Termin 3", "Was?", ""))
    GUICtrlSetData($nName[2], IniRead(@ScriptDir & "\Termine.ini", "Termin 3", "Name", ""))
    GUICtrlSetData($nEreignis[2], IniRead(@ScriptDir & "\Termine.ini", "Termin 3", "Ereignis", ""))
    GUICtrlSetData($nExtra[2], IniRead(@ScriptDir & "\Termine.ini", "Termin 3", "Extra Angaben", ""))
    Case $CheckerASE
    IniWrite(@ScriptDir & "\Termine.ini", "Checker", "Status", "Ist im Auto Start = aktiv")
    If RegRead("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Termine Checker") = @ScriptDir & "\Termine Checker.exe" Then
    RegDelete("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Termine Checker")
    Else
    RegWrite("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Termine Checker", "REG_SZ", @ScriptDir & "\Termine Checker.exe")
    EndIf
    GUICtrlSetState($CheckerASH, $GUI_ENABLE)
    GUICtrlSetState($CheckerASE, $GUI_DISABLE)
    Case $CheckerASH
    IniWrite(@ScriptDir & "\Termine.ini", "Checker", "Status", "Ist im Auto Start = aktiv")
    If RegRead("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Termine Checker") = @ScriptDir & "\Termine Checker.exe" Then
    RegDelete("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Termine Checker")
    Else
    RegWrite("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Termine Checker", "REG_SZ", @ScriptDir & "\Termine Checker.exe")
    EndIf
    GUICtrlSetState($CheckerASE, $GUI_ENABLE)
    GUICtrlSetState($CheckerASH, $GUI_DISABLE)
    Case $open
    $file = FileOpenDialog("Wählen Sie bitte den Termin Checker aus", @ScriptDir, "Alle(*.*)")
    ShellExecute($file)
    Case $Info
    MsgBox(4096, "Planer Hilfe", "1. Damit der Planer arbeiten kann muss zuerst der 'Termine Checker' in den autostart hinzugefügt werden damit er Ihre Termine abrufen kann." & (@CRLF) & "2. Wenn ihr Termin eintritt erhalten Sie eine Naricht mit den festgelegten Infos bei 'Tätigkeit auswählen'." & (@CRLF) & "3. Unter 'Einstellungen' können sie weitere Tätigkeiten des Planers vornhemen." & (@CRLF) & "4. Wenn das 'Planer EInstellungen'-Fenster offen ist können sie keine Funktionen bei dem 'Planer' ausführen, deshalb schließen Sie das 'Planer Einstellungen'-Fenster, um bei den 'Planer'-Fenster weiterzuarbeiten." & (@CRLF) & "" & (@CRLF) & "Ich hoffe er gefällt euch =)" & (@CRLF) & "" & (@CRLF) & "Mady by ScripterDrîzzt from : http://www.autoit.de")
    Case $GUI_EVENT_CLOSE
    Exit
    Case $ttk[0]
    If GUICtrlRead($ttk[0]) = "auswählen..." Then
    GUICtrlSetData($nName[0], "")
    GUICtrlSetData($nEreignis[0], "")
    GUICtrlSetData($nExtra[0], "")
    EndIf
    If GUICtrlRead($ttk[0]) = "Nachricht" Then
    GUICtrlSetData($nName[0], "")
    GUICtrlSetData($nEreignis[0], "")
    GUICtrlSetData($nExtra[0], "")
    GUICtrlSetData($nName[0], "Name der Person")
    GUICtrlSetData($nEreignis[0], "Ereignis")
    GUICtrlSetData($nExtra[0], "Extra angaben")
    EndIf
    If GUICtrlRead($ttk[0]) = "anderes" Then
    GUICtrlSetData($nName[0], "")
    GUICtrlSetData($nEreignis[0], "")
    GUICtrlSetData($nExtra[0], "")
    GUICtrlSetData($nName[0], "Geben Sie etwas an")
    GUICtrlSetData($nEreignis[0], "Geben Sie etwas an")
    GUICtrlSetData($nExtra[0], "Geben Sie etwas an")
    EndIf
    Case $Einstellungen[0]
    $EinstellungenGUI = GUICreate("Planer Einstellungen für Termin 1", 300, 165, 95, 100)
    GUISetBkColor(0x00FF80)
    $Datei2 = GUICtrlCreateMenu("Datei")
    $save2[0] = GUICtrlCreateMenuItem("Speichern", $Datei2)
    $LoadEin1 = GUICtrlCreateMenuItem("Laden", $Datei2)
    GUICtrlCreateLabel("Maximal, bitte nur 1 Häckchen in den 3 Boxen setzen", 15, 10)
    GUICtrlSetColor(-1, 0x000080)
    $settings1[0] = GUICtrlCreateCheckbox("", 15, 28)
    GUICtrlCreateLabel("Wenn Termin eintretet PC Herunterfahren?", 35, 32)
    $settings2[0] = GUICtrlCreateCheckbox("", 15, 48)
    GUICtrlCreateLabel("Wenn Termin eintretet Neustarten?", 35, 52)
    $settings3[0] = GUICtrlCreateCheckbox("", 15, 66)
    GUICtrlCreateLabel("Wenn Termin eintretet Benutzer vom PC abmelden?", 35, 72)
    $settings4[0] = GUICtrlCreateInput("", 15, 110, 240, 20)
    $Sound[0] = GUICtrlCreateButton("...", 255, 110, 35, 20)
    GUICtrlCreateLabel("Wenn Termin eintretet ein Sound abspielen? Falls Ja dann :", 10, 92)
    GUICtrlCreateGroup("", 5, 0, 290, 90)
    GUICtrlCreateGroup("", 5, 0, 290, 140)
    GUISetState(@SW_SHOW, $EinstellungenGUI)
    _EinstLoadGui1()
    While 1
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    GUISetState(@SW_HIDE, $EinstellungenGUI)
    ExitLoop
    Case $Sound[0]
    $pfad = FileOpenDialog("Bitte ein Sound wählen !", @MyDocumentsDir, "Alle(*.*)", 1)
    If @error Then
    MsgBox(4096, "", "Keine Datei(en) ausgewählt")
    Else
    $pfad = StringReplace($pfad, "|", @CRLF)
    GUICtrlSetData($settings4[0], $pfad)
    EndIf
    Case $save2[0]
    If GUICtrlRead($settings1[0]) = 1 Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 1", "PC Shutdown", GUICtrlRead($settings1[0]))
    If GUICtrlRead($settings1[0]) = 4 Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 1", "PC Shutdown", GUICtrlRead($settings1[0]))
    If GUICtrlRead($settings2[0]) = 1 Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 1", "PC Restart", GUICtrlRead($settings2[0]))
    If GUICtrlRead($settings2[0]) = 4 Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 1", "PC Restart", GUICtrlRead($settings2[0]))
    If GUICtrlRead($settings3[0]) = 1 Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 1", "Abmelden", GUICtrlRead($settings3[0]))
    If GUICtrlRead($settings3[0]) = 4 Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 1", "Abmelden", GUICtrlRead($settings3[0]))
    IniWrite(@ScriptDir & "\Termine.ini", "Sound für Termin 1", "Pfad", GUICtrlRead($settings4[0]))
    If Not @error Then
    Sleep(250)
    MsgBox(4096, "Planer", "Einstellungen Gespeichert")
    EndIf
    Case $LoadEin1
    _EinstLoadGui1()
    EndSwitch
    WEnd
    Case $ttk[1]
    If GUICtrlRead($ttk[1]) = "auswählen..." Then
    GUICtrlSetData($nName[1], "")
    GUICtrlSetData($nEreignis[1], "")
    GUICtrlSetData($nExtra[1], "")
    EndIf
    If GUICtrlRead($ttk[1]) = "Nachricht" Then
    GUICtrlSetData($nName[1], "")
    GUICtrlSetData($nEreignis[1], "")
    GUICtrlSetData($nExtra[1], "")
    GUICtrlSetData($nName[1], "Name der Person")
    GUICtrlSetData($nEreignis[1], "Ereignis")
    GUICtrlSetData($nExtra[1], "Extra angaben")
    EndIf
    If GUICtrlRead($ttk[1]) = "anderes" Then
    GUICtrlSetData($nName[1], "")
    GUICtrlSetData($nEreignis[1], "")
    GUICtrlSetData($nExtra[1], "")
    GUICtrlSetData($nName[1], "Geben Sie etwas an")
    GUICtrlSetData($nEreignis[1], "Geben Sie etwas an")
    GUICtrlSetData($nExtra[1], "Geben Sie etwas an")
    EndIf
    Case $Einstellungen[1]
    $EinstellungenGUI2 = GUICreate("Planer Einstellungen für Termin 2", 300, 165, 95, 100)
    GUISetBkColor(0x00FF80)
    $Datei2 = GUICtrlCreateMenu("Datei")
    $save2[1] = GUICtrlCreateMenuItem("Speichern", $Datei2)
    $LoadEin2 = GUICtrlCreateMenuItem("Laden", $Datei2)
    GUICtrlCreateLabel("Maximal, bitte nur 1 Häckchen in den 3 Boxen setzen", 15, 10)
    GUICtrlSetColor(-1, 0x000080)
    $settings1[1] = GUICtrlCreateCheckbox("", 15, 28)
    GUICtrlCreateLabel("Wenn Termin eintretet PC Herunterfahren?", 35, 32)
    $settings2[1] = GUICtrlCreateCheckbox("", 15, 48)
    GUICtrlCreateLabel("Wenn Termin eintretet Neustarten?", 35, 52)
    $settings3[1] = GUICtrlCreateCheckbox("", 15, 66)
    GUICtrlCreateLabel("Wenn Termin eintretet Benutzer vom PC abmelden?", 35, 72)
    $settings4[1] = GUICtrlCreateInput("", 15, 110, 240, 20)
    $Sound[1] = GUICtrlCreateButton("...", 255, 110, 35, 20)
    GUICtrlCreateLabel("Wenn Termin eintretet ein Sound abspielen? Falls Ja dann :", 10, 92)
    GUICtrlCreateGroup("", 5, 0, 290, 90)
    GUICtrlCreateGroup("", 5, 0, 290, 140)
    GUISetState(@SW_SHOW, $EinstellungenGUI2)
    _EinstLoadGui2()
    While 1
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    GUISetState(@SW_HIDE, $EinstellungenGUI2)
    ExitLoop
    Case $Sound[1]
    $pfad = FileOpenDialog("Bitte ein Sound wählen !", @MyDocumentsDir, "Alle(*.*)", 1)
    If @error Then
    MsgBox(4096, "", "Keine Datei(en) ausgewählt")
    Else
    $pfad = StringReplace($pfad, "|", @CRLF)
    GUICtrlSetData($settings4[1], $pfad)
    EndIf
    Case $save2[1]
    If GUICtrlRead($settings1[1]) = 1 Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 2", "PC Shutdown", GUICtrlRead($settings1[1]))
    If GUICtrlRead($settings1[1]) = 4 Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 2", "PC Shutdown", GUICtrlRead($settings1[1]))
    If GUICtrlRead($settings2[1]) = 1 Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 2", "PC Restart", GUICtrlRead($settings2[1]))
    If GUICtrlRead($settings2[1]) = 4 Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 2", "PC Restart", GUICtrlRead($settings2[1]))
    If GUICtrlRead($settings3[1]) = 1 Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 2", "Abmelden", GUICtrlRead($settings3[1]))
    If GUICtrlRead($settings3[1]) = 4 Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 2", "Abmelden", GUICtrlRead($settings3[1]))
    IniWrite(@ScriptDir & "\Termine.ini", "Sound für Termin 2", "Pfad", GUICtrlRead($settings4[1]))
    If Not @error Then
    Sleep(250)
    MsgBox(4096, "Planer", "Einstellungen Gespeichert")
    EndIf
    Case $LoadEin2
    _EinstLoadGui2()
    EndSwitch
    WEnd
    Case $ttk[2]
    If GUICtrlRead($ttk[2]) = "auswählen..." Then
    GUICtrlSetData($nName[2], "")
    GUICtrlSetData($nEreignis[2], "")
    GUICtrlSetData($nExtra[2], "")
    EndIf
    If GUICtrlRead($ttk[2]) = "Nachricht" Then
    GUICtrlSetData($nName[2], "")
    GUICtrlSetData($nEreignis[2], "")
    GUICtrlSetData($nExtra[2], "")
    GUICtrlSetData($nName[2], "Name der Person")
    GUICtrlSetData($nEreignis[2], "Ereignis")
    GUICtrlSetData($nExtra[2], "Extra angaben")
    EndIf
    If GUICtrlRead($ttk[2]) = "anderes" Then
    GUICtrlSetData($nName[2], "")
    GUICtrlSetData($nEreignis[2], "")
    GUICtrlSetData($nExtra[2], "")
    GUICtrlSetData($nName[2], "Geben Sie etwas an")
    GUICtrlSetData($nEreignis[2], "Geben Sie etwas an")
    GUICtrlSetData($nExtra[2], "Geben Sie etwas an")
    EndIf
    Case $Einstellungen[2]
    $EinstellungenGUI3 = GUICreate("Planer Einstellungen für Termin 3", 300, 165, 95, 100)
    GUISetBkColor(0x00FF80)
    $Datei3 = GUICtrlCreateMenu("Datei")
    $save2[2] = GUICtrlCreateMenuItem("Speichern", $Datei3)
    $LoadEin3 = GUICtrlCreateMenuItem("Laden", $Datei3)
    GUICtrlCreateLabel("Maximal, bitte nur 1 Häckchen in den 3 Boxen setzen", 15, 10)
    GUICtrlSetColor(-1, 0x000080)
    $settings1[2] = GUICtrlCreateCheckbox("", 15, 28)
    GUICtrlCreateLabel("Wenn Termin eintretet PC Herunterfahren?", 35, 32)
    $settings2[2] = GUICtrlCreateCheckbox("", 15, 48)
    GUICtrlCreateLabel("Wenn Termin eintretet Neustarten?", 35, 52)
    $settings3[2] = GUICtrlCreateCheckbox("", 15, 66)
    GUICtrlCreateLabel("Wenn Termin eintretet Benutzer vom PC abmelden?", 35, 72)
    $settings4[2] = GUICtrlCreateInput("", 15, 110, 240, 20)
    $Sound[2] = GUICtrlCreateButton("...", 255, 110, 35, 20)
    GUICtrlCreateLabel("Wenn Termin eintretet ein Sound abspielen? Falls Ja dann :", 10, 92)
    GUICtrlCreateGroup("", 5, 0, 290, 90)
    GUICtrlCreateGroup("", 5, 0, 290, 140)
    GUISetState(@SW_SHOW, $EinstellungenGUI3)
    _EinstLoadGui3()
    While 1
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    GUISetState(@SW_HIDE, $EinstellungenGUI3)
    ExitLoop
    Case $Sound[2]
    $pfad = FileOpenDialog("Bitte ein Sound wählen !", @MyDocumentsDir, "Alle(*.*)", 1)
    If @error Then
    MsgBox(4096, "", "Keine Datei(en) ausgewählt")
    Else
    $pfad = StringReplace($pfad, "|", @CRLF)
    GUICtrlSetData($settings4[2], $pfad)
    EndIf
    Case $save2[2]
    If GUICtrlRead($settings1[2]) = 1 Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 3", "PC Shutdown", GUICtrlRead($settings1[2]))
    If GUICtrlRead($settings1[2]) = 4 Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 3", "PC Shutdown", GUICtrlRead($settings1[2]))
    If GUICtrlRead($settings2[2]) = 1 Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 3", "PC Restart", GUICtrlRead($settings2[2]))
    If GUICtrlRead($settings2[2]) = 4 Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 3", "PC Restart", GUICtrlRead($settings2[2]))
    If GUICtrlRead($settings3[2]) = 1 Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 3", "Abmelden", GUICtrlRead($settings3[2]))
    If GUICtrlRead($settings3[2]) = 4 Then IniWrite(@ScriptDir & "\Termine.ini", "Termin 3", "Abmelden", GUICtrlRead($settings3[2]))
    IniWrite(@ScriptDir & "\Termine.ini", "Sound für Termin 3", "Pfad", GUICtrlRead($settings4[2]))
    If Not @error Then
    Sleep(250)
    MsgBox(4096, "Planer", "Einstellungen Gespeichert")
    EndIf
    Case $LoadEin3
    _EinstLoadGui3()
    EndSwitch
    WEnd
    EndSwitch
    WEnd

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

    Func _SetTermine()
    _GUICtrlListView_DeleteAllItems($list)
    $TsetZeit1 = IniRead(@ScriptDir & "\Termine.ini", "Termin 1", "Uhrzeit", "")
    $TsetWas1 = IniRead(@ScriptDir & "\Termine.ini", "Termin 1", "Was?", "")
    If $TsetWas1 <> "auswählen..." Then
    _GUICtrlListView_AddItem($list, IniRead(@ScriptDir & "\Termine.ini", "Termin 1", "Datum", ""), _GUICtrlListView_GetItemCount($list) + 999)
    _GUICtrlListView_AddSubItem($list, _GUICtrlListView_GetItemCount($list) - 1, $TsetZeit1, 1)
    _GUICtrlListView_AddSubItem($list, _GUICtrlListView_GetItemCount($list) - 1, $TsetWas1, 2)
    EndIf
    $TsetZeit2 = IniRead(@ScriptDir & "\Termine.ini", "Termin 2", "Uhrzeit", "")
    $TsetWas2 = IniRead(@ScriptDir & "\Termine.ini", "Termin 2", "Was?", "")
    If $TsetWas2 <> "auswählen..." Then
    _GUICtrlListView_AddItem($list, IniRead(@ScriptDir & "\Termine.ini", "Termin 2", "Datum", ""), _GUICtrlListView_GetItemCount($list) + 999)
    _GUICtrlListView_AddSubItem($list, _GUICtrlListView_GetItemCount($list) - 1, $TsetZeit2, 1)
    _GUICtrlListView_AddSubItem($list, _GUICtrlListView_GetItemCount($list) - 1, $TsetWas2, 2)
    EndIf
    $TsetZeit3 = IniRead(@ScriptDir & "\Termine.ini", "Termin 3", "Uhrzeit", "")
    $TsetWas3 = IniRead(@ScriptDir & "\Termine.ini", "Termin 3", "Was?", "")
    If $TsetWas3 <> "auswählen..." Then
    _GUICtrlListView_AddItem($list, IniRead(@ScriptDir & "\Termine.ini", "Termin 3", "Datum", ""), _GUICtrlListView_GetItemCount($list) + 999)
    _GUICtrlListView_AddSubItem($list, _GUICtrlListView_GetItemCount($list) - 1, $TsetZeit3, 1)
    _GUICtrlListView_AddSubItem($list, _GUICtrlListView_GetItemCount($list) - 1, $TsetWas3, 2)
    EndIf
    EndFunc ;==>_SetTermine

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

    Func _SetMenu()
    $ReadAutoStart = IniRead(@ScriptDir & "\Termine.ini", "Checker", " Status", " Nicht Vorhanden")
    If $ReadAutoStart = "Ist im Auto Start = aktiv" Then
    GUICtrlSetState($CheckerASH, $GUI_DISABLE)
    GUICtrlSetState($CheckerASE, $GUI_ENABLE)
    EndIf
    EndFunc ;==>_SetMenu

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

    Func _EinstLoadGui1()
    GUICtrlSetState($settings1[0], IniRead(@ScriptDir & "\Termine.ini", "Termin 1", "PC Shutdown", ""))
    GUICtrlSetState($settings2[0], IniRead(@ScriptDir & "\Termine.ini", "Termin 1", "PC Restart", ""))
    GUICtrlSetState($settings3[0], IniRead(@ScriptDir & "\Termine.ini", "Termin 1", "Abmelden", ""))
    GUICtrlSetData($settings4[0], IniRead(@ScriptDir & "\Termine.ini", "Sound für Termin 1", "Pfad", "Kein Sound ausgewählt"))
    EndFunc ;==>_EinstLoadGui1

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

    Func _EinstLoadGui2()
    GUICtrlSetState($settings1[1], IniRead(@ScriptDir & "\Termine.ini", "Termin 2", "PC Shutdown", ""))
    GUICtrlSetState($settings2[1], IniRead(@ScriptDir & "\Termine.ini", "Termin 2", "PC Restart", ""))
    GUICtrlSetState($settings3[1], IniRead(@ScriptDir & "\Termine.ini", "Termin 2", "Abmelden", ""))
    GUICtrlSetData($settings4[1], IniRead(@ScriptDir & "\Termine.ini", "Sound für Termin 2", "Pfad", "Kein Sound ausgewählt"))
    EndFunc ;==>_EinstLoadGui2

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

    Func _EinstLoadGui3()
    GUICtrlSetState($settings1[2], IniRead(@ScriptDir & "\Termine.ini", "Termin 3", "PC Shutdown", ""))
    GUICtrlSetState($settings2[2], IniRead(@ScriptDir & "\Termine.ini", "Termin 3", "PC Restart", ""))
    GUICtrlSetState($settings3[2], IniRead(@ScriptDir & "\Termine.ini", "Termin 3", "Abmelden", ""))
    GUICtrlSetData($settings4[2], IniRead(@ScriptDir & "\Termine.ini", "Sound für Termin 3", "Pfad", "Kein Sound ausgewählt"))
    EndFunc ;==>_EinstLoadGui3

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

    Func _GUIClose()
    Exit
    EndFunc ;==>_GUIClose

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

    Func _DateConvert($date)
    Local $aTemp, $sTempDate
    $aTemp = StringSplit($date, ".")
    If $aTemp[0] < 3 Then Return
    $sTempDate = $aTemp[3] & "/" & $aTemp[2] & "/" & $aTemp[1]
    Return $sTempDate
    EndFunc ;==>_DateConvert

    [/autoit]


    Das ganze lag am Datumsformat. In der Ini wird z.b. 20.10.2009 gespeichet aber GUICtrlCreateDate möchet 2009/10/20 (JJJJ/MM/TT) haben.
    Bei der Zeit will es auch das Datum haben. Welches Datum ist dabei egal, du liest sowieso nur die Zeit aus. ;)


    Edit. Irgendwie kotzt mich das Forum gerade an. Hab den Beitag 6 mal gesendet und der Blöde Server mag mich net.Ständig Fehlermeldungen. Deshalb Doppelpost.