Hi
Und schon wieder eine Frage 
Hab leider noch kein Script dazu, da ich erstmal gucken will, wie kopliziert das wird...
Also, vereinfacht:
Ich will, dass das script das Datum prüft und eine Meldung abgibt, wenn ein Datum, das man vorher eingegeben hat erreicht ist.
Also z.B.
Ich starte das script, stelle ein, das es am 10.05.2009 eine Meldung abgeben soll.
So, hoffe das mir da einer helfen kann, die Hilfe kann es leider net^^
MfG
Is nicht so schwer.
#include <Date.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]$iDateCalc = _DateDiff( 's',"2009/02/16 22:13:00",_NowCalc())
If $iDateCalc >0 then MsgBox( 4096, "Info", "Datum ist bereits erreicht/verstrichen " )
If $iDateCalc <0 then MsgBox( 4096, "Info", "Datum wird erst noch erreicht " )
schau mal den scriptcode von Moz an ihr der link
ich probiers gleich mal aus, danke schonmal für die antworten.
Ok, ich merk, das dauert etwas, bis ich das ganze script umgeschrieben hab.
Wenns fertig is, dürfte es ein ganz nettes Prog sein
Hab jetzt ein geeignetes script dafür gefunden, in das ich es einbauen will.
Doch es scheint schwirigkeiten zu geben.
Offensichtlich ist mir ein fehler im script unterlaufen.
Es wird aber keine fehlermeldung angezeigt.
Vllt kann sich einer der erfahrenen das script mal angucken.
#include <IE.au3>
#include <GUIConstantsEx.au3>
#include <Date.au3>
$dir = @ScriptDir
Local $save1, $save2, $save3, $load1, $load2, $load3, $open1, $open2, $open3, $CoCh, $CoHex, $CoSave, $leit, $ns, $msg
[/autoit] [autoit][/autoit] [autoit]GUICreate ("To-Do Checkbox", 750, 520)
Opt ("GUICoordMode", 1)
; Abschnitt 1
$input1 = GUICtrlCreateInput ("", 10, 30, 580)
GUICtrlSetLimit ($input1, 100, -1)
; Abschnitt 2
$input2 = GUICtrlCreateInput ("", 10, 90, 580)
GUICtrlSetLimit ($input1, 100, -1)
; Abschnitt 3
$input3 = GUICtrlCreateInput ("", 10, 150, 580)
GUICtrlSetLimit ($input1, 100, -1)
; Datumseingabe
$dateLabel = GUICtrlCreateLabel ("Erinnerungsdatum eingeben", 120, 440, 150)
$dateInputJ = GUICtrlCreateInput ("Jahr", 120, 460, 40)
GUICtrlSetLimit (-1, 4, 0)
$dateInputM = GUICtrlCreateInput ("Monat", 170, 460, 40)
GUICtrlSetLimit (-1, 2, 0)
$dateInputT = GUICtrlCreateInput ("Tag", 220, 460, 40)
GUICtrlSetLimit (-1, 2, 0)
$dateSave = GUICtrlCreateButton ("Save", 270, 458, 50)
$dateOpen = GUICtrlCreateButton ("Open", 330, 458, 50)
$dateReadJ = FileReadLine ($dir & "\Datum.txt")
$dateReadM = FileReadLine ($dir & "\Datum.txt")
$dateReadT = FileReadLine ($dir & "\Datum.txt")
$iDateCalc = _DateDiff( "d", _nowDate(), $dateReadJ & "/" & $dateReadM & "/" & $dateReadT)
If $iDateCalc > 0 then
MsgBox (4096, "Info", "Datum ist erreicht")
FileDelete ($dir, "\Datum")
EndIf
; Datumsanzeige
GUICtrlCreateLabel ("Es ist der: " & _NowDate(), 120, 490, 200)
; Abschnitt 1
$save1 = GUICtrlCreateButton ("Save", 10, 60, 50)
$load1 = GUICtrlCreateButton ("Load", 70, 60, 50)
$open1 = GUICtrlCreateButton ("Open", 130, 60, 50)
; Abschnitt 2
$save2 = GUICtrlCreateButton ("Save", 10, 120, 50)
$load2 = GUICtrlCreateButton ("Load", 70, 120, 50)
$open2 = GUICtrlCreateButton ("Open", 130, 120, 50)
; Abschnitt 3
$save3 = GUICtrlCreateButton ("Save", 10, 180, 50)
$load3 = GUICtrlCreateButton ("Load", 70, 180, 50)
$open3 = GUICtrlCreateButton ("Open", 130, 180, 50)
; Close
$close = GUICtrlCreateButton ("Exit", 10, 458, 50)
; Color Input
$CoIn = GUICtrlCreateInput ("", 120, 390, 100)
GUICtrlSetLimit ($CoIn, 8, -1)
GUICtrlCreateLabel ("Farbe als RGB-Code eingeben.", 120, 370, 200, 14)
$CoCh = GUICtrlCreateButton ("Farbe ändern", 230, 390, 80)
$CoHex = GUICtrlCreateButton ("Farbpalette", 320, 390, 70)
$CoSave = GUICtrlCreateButton ("Farbe speichern", 400, 390, 100)
If FileExists ($dir & "\farbliste.txt") Then
$co = FileRead ($dir & "\farbliste.txt")
GUISetBkColor ($co)
EndIf
; Neu starten
$ns = GUICtrlCreateButton ("Neustart", 580, 390, 70)
; Anleitung
$leit = GUICtrlCreateButton ("Anleitung", 660, 390, 80)
; Checkboxen
GUICtrlCreateCheckbox ("", 10, 220, 20, 50) ; #1
GUICtrlCreateLabel ("_____________________________________________________________________________________________________________________", 35, 241, 755)
GUICtrlCreateCheckbox ("", 10, 260, 20, 50) ; #2
GUICtrlCreateLabel ("_____________________________________________________________________________________________________________________", 35, 281, 755)
GUICtrlCreateCheckbox ("", 10, 300, 20, 50) ; #3
GUICtrlCreateLabel ("_____________________________________________________________________________________________________________________", 35, 321, 755)
; Buttonfunktionen
GUISetState ()
While 1
$msg = GUIGetMsg ()
Select
; Save 1 __________________________________________________________________________________________________________________________________________
Case $msg = $save1
If FileExists ($dir & "\Liste1.txt") Then
MsgBox (64, "", "Liste 1 wird überschrieben!")
FileDelete ($dir & "\Liste1.txt")
$text1 = GUIctrlread ($input1, 3)
$liste1 = FileOpen ($dir & "\liste1.txt", 1)
If $liste1 = -1 Then
MsgBox(16, "Error", "Datei kann nicht verändert werden!")
Exit
EndIf
FileWrite ($liste1, $text1)
Else
$text1 = GUIctrlread ($input1, 3)
$liste1 = FileOpen ($dir & "\Liste1.txt", 1)
If $liste1 = -1 Then
MsgBox(16, "Error", "Datei kann nicht verändert werden!")
Exit
EndIf
FileWrite ($liste1, $text1)
EndIf
; Save 2 _______________________________________________________________________________
Case $msg = $save2
If FileExists ($dir & "\Liste2.txt") Then
MsgBox (64, "", "Liste 2 wird überschrieben!")
FileDelete ($dir & "\Liste2.txt")
$text2 = GUIctrlread ($input2, 3)
$liste2 = FileOpen ($dir & "\liste2.txt", 1)
If $liste2 = -1 Then
MsgBox(16, "Error", "Datei kann nicht verändert werden!")
Exit
EndIf
FileWrite ($liste2, $text2)
Else
$text2 = GUIctrlread ($input2, 3)
$liste2 = FileOpen ($dir & "\Liste2.txt", 1)
If $liste2 = -1 Then
MsgBox(16, "Error", "Datei kann nicht verändert werden!")
Exit
EndIf
FileWrite ($liste2, $text2)
EndIf
; Save 3 _______________________________________________________________________________
Case $msg = $save3
If FileExists ($dir & "\Liste3.txt") Then
MsgBox (64, "", "Liste 3 wird überschrieben!")
FileDelete ($dir & "\Liste3.txt")
$text3 = GUIctrlread ($input3, 3)
$liste3 = FileOpen ($dir & "\liste3.txt", 1)
If $liste3 = -1 Then
MsgBox(16, "Error", "Datei kann nicht verändert werden!")
Exit
EndIf
FileWrite ($liste3, $text3)
Else
$text3 = GUIctrlread ($input1, 3)
$liste3 = FileOpen ($dir & "\Liste3.txt", 1)
If $liste1 = -1 Then
MsgBox(16, "Error", "Datei kann nicht verändert werden!")
Exit
EndIf
FileWrite ($liste3, $text3)
EndIf
; Opening 1 __________________________________________________________________________________________________________________________________________
Case $msg = $open1
If FileExists ($dir & "\liste1.txt") Then
ShellExecute ($dir & "\liste1.txt")
Else
MsgBox (16, "Error", "Datei nicht gefunden!")
EndIf
; Opening 2 _______________________________________________________________________________
Case $msg = $open2
If FileExists ($dir & "\liste2.txt") Then
ShellExecute ($dir & "\liste2.txt")
Else
MsgBox (16, "Error", "Datei nicht gefunden!")
EndIf
; Opening 3 _______________________________________________________________________________
Case $msg = $open3
If FileExists ($dir & "\liste3.txt") Then
ShellExecute ($dir & "\liste3.txt")
Else
MsgBox (16, "Error", "Datei nicht gefunden!")
EndIf
; Load 1 __________________________________________________________________________________________________________________________________________
Case $msg = $load1
IF FileExists ($dir & "\liste1.txt") Then
$out1 = FileRead ($dir & "\liste1.txt")
GUICtrlCreateLabel ($out1, 35, 238, 560, 15)
Else
MsgBox (16, "Error", "Datei nicht gefunden!")
EndIf
; Load 2 _______________________________________________________________________________
Case $msg = $load2
IF FileExists ($dir & "\liste2.txt") Then
$out2 = FileRead ($dir & "\liste2.txt")
GUICtrlCreateLabel ($out2, 35, 278, 560, 15)
Else
MsgBox (16, "Error", "Datei nicht gefunden!")
EndIf
; Load 3 _______________________________________________________________________________
Case $msg = $load3
IF FileExists ($dir & "\liste3.txt") Then
$out3 = FileRead ($dir & "\liste3.txt")
GUICtrlCreateLabel ($out3, 35, 318, 560, 15)
Else
MsgBox (16, "Error", "Datei nicht gefunden!")
EndIf
; Color __________________________________________________________________________________________________________________________________________
Case $msg = $CoCh
$CoRead = GUICtrlRead ($CoIn, 1)
GUISetBkColor ($CoRead)
; Color _______________________________________________________________________________
Case $msg = $CoHex
Run ($dir & "\HEX_Color_List.exe")
; Color _______________________________________________________________________________
Case $msg = $CoSave
If FileExists ($dir & "\Farbliste.txt") Then
MsgBox (64, "", "Farbliste wird überschrieben!")
FileDelete ($dir & "\Farbliste.txt")
$Co1 = GUIctrlread ($CoIn, 3)
$CoLi1 = FileOpen ($dir & "\Farbliste.txt", 1)
If $CoLi1 = -1 Then
MsgBox(16, "Error", "Datei kann nicht verändert werden!")
Exit
EndIf
FileWrite ($CoLi1, $Co1)
Else
$Co1 = GUIctrlread ($CoIn, 3)
$CoLi1 = FileOpen ($dir & "\Farbliste.txt", 1)
If $CoLi1 = -1 Then
MsgBox(16, "Error", "Datei kann nicht verändert werden!")
Exit
EndIf
FileWrite ($CoLi1, $Co1)
EndIf
; Anleitung __________________________________________________________________________________________________________________________________________
Case $msg = $leit
MsgBox (64, "Anleitung", "Save: Speichere einen beliebigen Text." & @CRLF & @CRLF & "Load: Zeigt den gespeicherten Text unten neben einer Checkbox an." & @CRLF & @CRLF & "Open: Öffnet das gespeicherte File." & @CRLF & @CRLF & "Farbe ändern: Ändert die Hintergrundfarbe." & @CRLF & @CRLF & "Farbpalette: Öffnet eine Liste mit Farbcodes." & @CRLF &@CRLF & "Farbe speichern: Speichert den eingegeben Farbcode in einem File (6 Zahlen)." & @CRLF & @CRLF & "Nach einer Änderung muss das Programm neu gestartet werden!" & @CRLF & @CRLF & "Mit freundlicher Unterstützung von http://www.autoit.de" & @CRLF & @CRLF & "Die Farbtabelle wurde von BuxFix (SuperMod) bereitgestellt.")
; NeuStart __________________________________________________________________________________________________________________________________________
Case $msg = $ns
Run ($dir & "\NewStart.exe")
Exit
; Exit __________________________________________________________________________________________________________________________________________
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Close
Exit
; Datum __________________________________________________________________________________________________________________________________________
Case $msg = $dateSave
If FileExists ($dir & "\Datum.txt") Then
MsgBox (64, "", "Datumsliste wird überschrieben!")
FileDelete ($dir & "\Datum.txt")
$dateOutJ = GUICtrlRead ($dateInputJ, 1)
$dateOutM = GUICtrlRead ($dateInputM, 1)
$dateOutT = GUICtrlRead ($dateInputT, 1)
$DateListe = FileOpen ($dir & "\Datum.txt", 1)
If $DateListe = -1 Then
MsgBox(16, "Error", "Datei kann nicht verändert werden!")
Exit
EndIf
FileWriteLine ($dateListe, $dateOutJ)
FileWriteLine ($dateListe, $dateOutM)
FileWriteLine ($dateListe, $dateOutT)
Else
$dateOutJ = GUICtrlRead ($dateInputJ, 1)
$dateOutM = GUICtrlRead ($dateInputM, 1)
$dateOutT = GUICtrlRead ($dateInputT, 1)
$DateListe = FileOpen ($dir & "\Datum.txt", 1)
If $DateListe = -1 Then
MsgBox(16, "Error", "Datei kann nicht verändert werden!")
Exit
EndIf
FileWriteLine ($dateListe, $dateOutJ)
FileWriteLine ($dateListe, $dateOutM)
FileWriteLine ($dateListe, $dateOutT)
EndIf
Case $msg = $DateOpen
If FileExists ($dir & "\Datum.txt") Then
ShellExecute ($dir & "\Datum.txt")
Else
MsgBox (16, "Error", "Datei nicht gefunden!")
EndIf
EndSelect
WEnd
Ich erklär schnell den Fehler:
Ich habe zum Test mal das heutige datum eingegeben. Also 2009/02/16
So, nun müsste sich eigl. beim neustart des Scriptseine MsgBox kommen.
Es passiert aber nichts, das Programm wird nur gaz normal weiter ausgeführt...
EDIT!:
Ah ok, hat sich erledigt, muss statt dem < ein = machen.
Hier in Zeile 40:
[autoit]FileDelete ($dir & "\Datum")
[/autoit]
Anstatt
FileDelete ($dir, "\Datum")
[/autoit]Habe es dir mal Funktiontüchtig gemacht. Ware mehrer Fehler drin, siehe Kommnt´s.
#include <IE.au3>
#include <GUIConstantsEx.au3>
#include <Date.au3>
$dir = @ScriptDir
Local $save1, $save2, $save3, $load1, $load2, $load3, $open1, $open2, $open3, $CoCh, $CoHex, $CoSave, $leit, $ns, $msg
[/autoit] [autoit][/autoit] [autoit]GUICreate ("To-Do Checkbox", 750, 520)
Opt ("GUICoordMode", 1)
; Abschnitt 1
$input1 = GUICtrlCreateInput ("", 10, 30, 580)
GUICtrlSetLimit ($input1, 100, -1)
; Abschnitt 2
$input2 = GUICtrlCreateInput ("", 10, 90, 580)
GUICtrlSetLimit ($input1, 100, -1)
; Abschnitt 3
$input3 = GUICtrlCreateInput ("", 10, 150, 580)
GUICtrlSetLimit ($input1, 100, -1)
; Datumseingabe
$dateLabel = GUICtrlCreateLabel ("Erinnerungsdatum eingeben", 120, 440, 150)
$dateInputJ = GUICtrlCreateInput ("Jahr", 120, 460, 40)
GUICtrlSetLimit (-1, 4, 0)
$dateInputM = GUICtrlCreateInput ("Monat", 170, 460, 40)
GUICtrlSetLimit (-1, 2, 0)
$dateInputT = GUICtrlCreateInput ("Tag", 220, 460, 40)
GUICtrlSetLimit (-1, 2, 0)
$dateSave = GUICtrlCreateButton ("Save", 270, 458, 50)
$dateOpen = GUICtrlCreateButton ("Open", 330, 458, 50)
$dateReadJ = FileReadLine ($dir & "\Datum.txt",1);erste Zeile lesen
$dateReadM = FileReadLine ($dir & "\Datum.txt",2);zweite Zeile lesen
$dateReadT = FileReadLine ($dir & "\Datum.txt",3);dritte Zeile lesen
$iDateCalc = _DateDiff( 's', $dateReadJ & "/" & $dateReadM & "/" & $dateReadT, _NowCalc())
If $iDateCalc >= 0 then
MsgBox (4096, "Info", "Datum ist erreicht")
FileDelete ($dir&"\Datum"); & hattest du vergessen
EndIf
; Datumsanzeige
GUICtrlCreateLabel ("Es ist der: " & _NowDate(), 120, 490, 200)
; Abschnitt 1
$save1 = GUICtrlCreateButton ("Save", 10, 60, 50)
$load1 = GUICtrlCreateButton ("Load", 70, 60, 50)
$open1 = GUICtrlCreateButton ("Open", 130, 60, 50)
; Abschnitt 2
$save2 = GUICtrlCreateButton ("Save", 10, 120, 50)
$load2 = GUICtrlCreateButton ("Load", 70, 120, 50)
$open2 = GUICtrlCreateButton ("Open", 130, 120, 50)
; Abschnitt 3
$save3 = GUICtrlCreateButton ("Save", 10, 180, 50)
$load3 = GUICtrlCreateButton ("Load", 70, 180, 50)
$open3 = GUICtrlCreateButton ("Open", 130, 180, 50)
; Close
$close = GUICtrlCreateButton ("Exit", 10, 458, 50)
; Color Input
$CoIn = GUICtrlCreateInput ("", 120, 390, 100)
GUICtrlSetLimit ($CoIn, 8, -1)
GUICtrlCreateLabel ("Farbe als RGB-Code eingeben.", 120, 370, 200, 14)
$CoCh = GUICtrlCreateButton ("Farbe ändern", 230, 390, 80)
$CoHex = GUICtrlCreateButton ("Farbpalette", 320, 390, 70)
$CoSave = GUICtrlCreateButton ("Farbe speichern", 400, 390, 100)
If FileExists ($dir & "\farbliste.txt") Then
$co = FileRead ($dir & "\farbliste.txt")
GUISetBkColor ($co)
EndIf
; Neu starten
$ns = GUICtrlCreateButton ("Neustart", 580, 390, 70)
; Anleitung
$leit = GUICtrlCreateButton ("Anleitung", 660, 390, 80)
; Checkboxen
GUICtrlCreateCheckbox ("", 10, 220, 20, 50) ; #1
GUICtrlCreateLabel ("_____________________________________________________________________________________________________________________", 35, 241, 755)
GUICtrlCreateCheckbox ("", 10, 260, 20, 50) ; #2
GUICtrlCreateLabel ("_____________________________________________________________________________________________________________________", 35, 281, 755)
GUICtrlCreateCheckbox ("", 10, 300, 20, 50) ; #3
GUICtrlCreateLabel ("_____________________________________________________________________________________________________________________", 35, 321, 755)
; Buttonfunktionen
GUISetState ()
While 1
$msg = GUIGetMsg ()
Select
; Save 1 __________________________________________________________________________________________________________________________________________
Case $msg = $save1
If FileExists ($dir & "\Liste1.txt") Then
MsgBox (64, "", "Liste 1 wird überschrieben!")
FileDelete ($dir & "\Liste1.txt")
$text1 = GUIctrlread ($input1, 3)
$liste1 = FileOpen ($dir & "\liste1.txt", 1)
If $liste1 = -1 Then
MsgBox(16, "Error", "Datei kann nicht verändert werden!")
Exit
EndIf
FileWrite ($liste1, $text1)
Else
$text1 = GUIctrlread ($input1, 3)
$liste1 = FileOpen ($dir & "\Liste1.txt", 1)
If $liste1 = -1 Then
MsgBox(16, "Error", "Datei kann nicht verändert werden!")
Exit
EndIf
FileWrite ($liste1, $text1)
EndIf
; Save 2 _______________________________________________________________________________
Case $msg = $save2
If FileExists ($dir & "\Liste2.txt") Then
MsgBox (64, "", "Liste 2 wird überschrieben!")
FileDelete ($dir & "\Liste2.txt")
$text2 = GUIctrlread ($input2, 3)
$liste2 = FileOpen ($dir & "\liste2.txt", 1)
If $liste2 = -1 Then
MsgBox(16, "Error", "Datei kann nicht verändert werden!")
Exit
EndIf
FileWrite ($liste2, $text2)
Else
$text2 = GUIctrlread ($input2, 3)
$liste2 = FileOpen ($dir & "\Liste2.txt", 1)
If $liste2 = -1 Then
MsgBox(16, "Error", "Datei kann nicht verändert werden!")
Exit
EndIf
FileWrite ($liste2, $text2)
EndIf
; Save 3 _______________________________________________________________________________
Case $msg = $save3
If FileExists ($dir & "\Liste3.txt") Then
MsgBox (64, "", "Liste 3 wird überschrieben!")
FileDelete ($dir & "\Liste3.txt")
$text3 = GUIctrlread ($input3, 3)
$liste3 = FileOpen ($dir & "\liste3.txt", 1)
If $liste3 = -1 Then
MsgBox(16, "Error", "Datei kann nicht verändert werden!")
Exit
EndIf
FileWrite ($liste3, $text3)
Else
$text3 = GUIctrlread ($input1, 3)
$liste3 = FileOpen ($dir & "\Liste3.txt", 1)
If $liste1 = -1 Then
MsgBox(16, "Error", "Datei kann nicht verändert werden!")
Exit
EndIf
FileWrite ($liste3, $text3)
EndIf
; Opening 1 __________________________________________________________________________________________________________________________________________
Case $msg = $open1
If FileExists ($dir & "\liste1.txt") Then
ShellExecute ($dir & "\liste1.txt")
Else
MsgBox (16, "Error", "Datei nicht gefunden!")
EndIf
; Opening 2 _______________________________________________________________________________
Case $msg = $open2
If FileExists ($dir & "\liste2.txt") Then
ShellExecute ($dir & "\liste2.txt")
Else
MsgBox (16, "Error", "Datei nicht gefunden!")
EndIf
; Opening 3 _______________________________________________________________________________
Case $msg = $open3
If FileExists ($dir & "\liste3.txt") Then
ShellExecute ($dir & "\liste3.txt")
Else
MsgBox (16, "Error", "Datei nicht gefunden!")
EndIf
; Load 1 __________________________________________________________________________________________________________________________________________
Case $msg = $load1
IF FileExists ($dir & "\liste1.txt") Then
$out1 = FileRead ($dir & "\liste1.txt")
GUICtrlCreateLabel ($out1, 35, 238, 560, 15)
Else
MsgBox (16, "Error", "Datei nicht gefunden!")
EndIf
; Load 2 _______________________________________________________________________________
Case $msg = $load2
IF FileExists ($dir & "\liste2.txt") Then
$out2 = FileRead ($dir & "\liste2.txt")
GUICtrlCreateLabel ($out2, 35, 278, 560, 15)
Else
MsgBox (16, "Error", "Datei nicht gefunden!")
EndIf
; Load 3 _______________________________________________________________________________
Case $msg = $load3
IF FileExists ($dir & "\liste3.txt") Then
$out3 = FileRead ($dir & "\liste3.txt")
GUICtrlCreateLabel ($out3, 35, 318, 560, 15)
Else
MsgBox (16, "Error", "Datei nicht gefunden!")
EndIf
; Color __________________________________________________________________________________________________________________________________________
Case $msg = $CoCh
$CoRead = GUICtrlRead ($CoIn, 1)
GUISetBkColor ($CoRead)
; Color _______________________________________________________________________________
Case $msg = $CoHex
Run ($dir & "\HEX_Color_List.exe")
; Color _______________________________________________________________________________
Case $msg = $CoSave
If FileExists ($dir & "\Farbliste.txt") Then
MsgBox (64, "", "Farbliste wird überschrieben!")
FileDelete ($dir & "\Farbliste.txt")
$Co1 = GUIctrlread ($CoIn, 3)
$CoLi1 = FileOpen ($dir & "\Farbliste.txt", 1)
If $CoLi1 = -1 Then
MsgBox(16, "Error", "Datei kann nicht verändert werden!")
Exit
EndIf
FileWrite ($CoLi1, $Co1)
Else
$Co1 = GUIctrlread ($CoIn, 3)
$CoLi1 = FileOpen ($dir & "\Farbliste.txt", 1)
If $CoLi1 = -1 Then
MsgBox(16, "Error", "Datei kann nicht verändert werden!")
Exit
EndIf
FileWrite ($CoLi1, $Co1)
EndIf
; Anleitung __________________________________________________________________________________________________________________________________________
Case $msg = $leit
MsgBox (64, "Anleitung", "Save: Speichere einen beliebigen Text." & @CRLF & @CRLF & "Load: Zeigt den gespeicherten Text unten neben einer Checkbox an." & @CRLF & @CRLF & "Open: Öffnet das gespeicherte File." & @CRLF & @CRLF & "Farbe ändern: Ändert die Hintergrundfarbe." & @CRLF & @CRLF & "Farbpalette: Öffnet eine Liste mit Farbcodes." & @CRLF &@CRLF & "Farbe speichern: Speichert den eingegeben Farbcode in einem File (6 Zahlen)." & @CRLF & @CRLF & "Nach einer Änderung muss das Programm neu gestartet werden!" & @CRLF & @CRLF & "Mit freundlicher Unterstützung von http://www.autoit.de" & @CRLF & @CRLF & "Die Farbtabelle wurde von BuxFix (SuperMod) bereitgestellt.")
; NeuStart __________________________________________________________________________________________________________________________________________
Case $msg = $ns
Run ($dir & "\NewStart.exe")
Exit
; Exit __________________________________________________________________________________________________________________________________________
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Close
Exit
; Datum __________________________________________________________________________________________________________________________________________
Case $msg = $dateSave
If FileExists ($dir & "\Datum.txt") Then
MsgBox (64, "", "Datumsliste wird überschrieben!")
FileDelete ($dir & "\Datum.txt")
$dateOutJ = GUICtrlRead ($dateInputJ, 1)
$dateOutM = GUICtrlRead ($dateInputM, 1)
$dateOutT = GUICtrlRead ($dateInputT, 1)
$DateListe = FileOpen ($dir & "\Datum.txt", 2); Falscher schreibmodus
If $DateListe = -1 Then
MsgBox(16, "Error", "Datei kann nicht verändert werden!")
Exit
EndIf
FileWriteLine ($dateListe, $dateOutJ)
FileWriteLine ($dateListe, $dateOutM)
FileWriteLine ($dateListe, $dateOutT)
Else
$dateOutJ = GUICtrlRead ($dateInputJ, 1)
$dateOutM = GUICtrlRead ($dateInputM, 1)
$dateOutT = GUICtrlRead ($dateInputT, 1)
$DateListe = FileOpen ($dir & "\Datum.txt", 2); Falscher schreibmodus
If $DateListe = -1 Then
MsgBox(16, "Error", "Datei kann nicht verändert werden!")
Exit
EndIf
FileWriteLine ($dateListe, $dateOutJ)
FileWriteLine ($dateListe, $dateOutM)
FileWriteLine ($dateListe, $dateOutT)
EndIf
Case $msg = $DateOpen
If FileExists ($dir & "\Datum.txt") Then
ShellExecute ($dir & "\Datum.txt")
Else
MsgBox (16, "Error", "Datei nicht gefunden!")
EndIf
EndSelect
WEnd
Hehe, danke für die korrektur
