GuiCtrlCreateDate mit GuiCtrlSetdata Problem

ScripterDrîzzt

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

Raupi

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

**Schnuffel**

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

Raupi

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]

ScripterDrîzzt

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]

ScripterDrîzzt

sieht keiner durch oda was?

Raupi

Habe dein Problem gelöst.

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.

ScripterDrîzzt

danke diir sowas in der art dachte ich mir schon xDDD