Hio all =)
Hier is mein Planer ich weiß es gibt tausende bessere, aber ich wollte einfach mal ein eigenen Scripten
Was er kann?
- Sendet eine Naricht mit ihren gewünschten Inhalt
- Wenn Termin eintreten kann der PC Heruntergefahren, Neugestartet oder Abgemeldet werden
- Wenn Termin eintritt kann ein belieber Sound abgespielt werden
Mängel:
- Man muss den Termine Checker selbst in den Autostart(Systemstart) eintragen
- Es können Maximal nur 3 Termine gesetzt werden
Ich Hoffe er gefällt euch =)
Wenn ihr noch Bugs oder andere Kritik punkte haben solltet, einfach fleißig Posten
Hier mein Script Planer Script
Spoiler anzeigen
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\88425834_6a47f764b6.ico
#AutoIt3Wrapper_Run_Tidy=y
#AutoIt3Wrapper_Run_Obfuscator=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.2.12.1
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]; Script Start - Add your code below here
[/autoit] [autoit][/autoit] [autoit]#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <Date.au3>
#include <DateTimeConstants.au3>
#include <ButtonConstants.au3>
Opt("TrayOnEventMode", 1)
Opt("TrayMenuMode", 1)
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]
[/autoit] [autoit][/autoit] [autoit]$GUI = GUICreate("Planer = 1 Termin", 200, 320, 400, 100)
GUISetBkColor(0x00FF80)
$Datei[0] = GUICtrlCreateMenu("Datei")
$save[0] = GUICtrlCreateMenuItem("Speichern", $Datei[0])
$neuertermin = GUICtrlCreateMenuItem("Zweiter Termin", $Datei[0])
$neuertermin1 = GUICtrlCreateMenuItem("Dritter Termin", $Datei[0])
$open = GUICtrlCreateMenuItem("Öffne Checker", $Datei[0])
$Settings = GUICtrlCreateMenu("Settings")
$Einstellungen = GUICtrlCreateMenuItem("Einstellungen", $Settings)
$Hilfe = GUICtrlCreateMenu("Hilfe")
$Info = GUICtrlCreateMenuItem("Info", $Hilfe)
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)
;groups
GUICtrlCreateGroup("", 5, 5, 190, 95)
GUICtrlCreateGroup("", 5, 95, 190, 200)
TrayCreateItem("Exit")
TrayItemSetOnEvent(-1, "_GUIClose")
TraySetState(1)
GUISetState(@SW_SHOW, $GUI)
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]))
If Not @error Then
Sleep(250)
MsgBox(4096, "Planer Termin 1", "Einstellungen Gespeichert")
EndIf
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
$EinstellungenGUI = GUICreate("Planer Einstellungen", 300, 165, 95, 100)
GUISetBkColor(0x00FF80)
$Datei2 = GUICtrlCreateMenu("Datei")
$save2[0] = GUICtrlCreateMenuItem("Speichern", $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)
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
EndSwitch
WEnd
Case $neuertermin
$2TerminGUI = GUICreate("Planer = 2 Termin", 200, 320, 500, 200)
GUISetBkColor(0x00FF80)
$Datei[1] = GUICtrlCreateMenu("Datei")
$save[1] = GUICtrlCreateMenuItem("Speichern", $Datei[1])
$Settings = GUICtrlCreateMenu("Settings")
$Einstellungen1 = GUICtrlCreateMenuItem("Einstellungen", $Settings)
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)
GUISetState()
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $2TerminGUI)
ExitLoop
Case $save[1]
; 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]))
IniWrite(@ScriptDir & "\Termine.ini", "Sound für Termin 1", "Pfad", GUICtrlRead($settings4[1]))
If Not @error Then
Sleep(250)
MsgBox(4096, "Planer Termin 2", "Einstellungen Gespeichert")
EndIf
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 $Einstellungen1
$EinstellungenGUI2 = GUICreate("Planer Einstellungen für Termin 2", 300, 165, 195, 200)
GUISetBkColor(0x00FF80)
$Datei2 = GUICtrlCreateMenu("Datei")
$save2[1] = GUICtrlCreateMenuItem("Speichern", $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)
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
EndSwitch
WEnd
EndSwitch
WEnd
Case $neuertermin1
$3TerminGUI = GUICreate("Planer = 3 Termin", 200, 320, 600, 300)
GUISetBkColor(0x00FF80)
$Datei[2] = GUICtrlCreateMenu("Datei")
$save[2] = GUICtrlCreateMenuItem("Speichern", $Datei[2])
$Settings = GUICtrlCreateMenu("Settings")
$Einstellungen2 = GUICtrlCreateMenuItem("Einstellungen", $Settings)
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)
GUISetState()
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $3TerminGUI)
ExitLoop
Case $save[2]
; 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]))
If Not @error Then
Sleep(250)
MsgBox(4096, "Planer Termin 3", "Einstellungen Gespeichert")
EndIf
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 $Einstellungen2
$EinstellungenGUI3 = GUICreate("Planer Einstellungen für Termin 3", 300, 165, 295, 300)
GUISetBkColor(0x00FF80)
$Datei3 = GUICtrlCreateMenu("Datei")
$save2[2] = GUICtrlCreateMenuItem("Speichern", $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)
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[1]))
If Not @error Then
Sleep(250)
MsgBox(4096, "Planer", "Einstellungen Gespeichert")
EndIf
EndSwitch
WEnd
EndSwitch
WEnd
EndSwitch
WEnd
Func _GUIClose()
Exit
EndFunc ;==>_GUIClose