Ich habe angefangen einen Geburtstags-Erinnerer zu scripten. Ich will noch einbauen, dass man einstellen kann wieviele Tage vorher man erinnert werden will. Doch ich weiß nicht genau wie ich dass machen soll. (Ich könnte es auch in einer GUI machen, doch ich will ersteinmal das Script haben)
Geburtstags-Erinnerer: (kommt dann am besten in den Autostart)
Spoiler anzeigen
Dim $anzahl, $name, $tag, $monat, $jahr, $alter, $selection, $selectionnumber = 1
$filename = "geburtstage.ini"
While 1
$selection = "name " & $selectionnumber
$name = IniRead($filename,$selection,"name","nix")
$tag = IniRead($filename,$selection,"tag","nix")
$monat = IniRead($filename,$selection,"monat","nix")
$jahr = IniRead($filename,$selection,"jahr","nix")
If $name = "nix" Then Exit
If $tag = @MDAY Then
If $monat = @MON Then
$alter = @YEAR - $jahr
MsgBox(0,"Geburtstags-Erinnerer",$name & " hat heute Geburtstag und wird " & $alter & " Jahre alt!")
EndIf
EndIf
Sleep(500)
$selectionnumber = $selectionnumber + 1
WEnd
Namen eingeben: (zum eingeben der Personen)
Spoiler anzeigen
$filename = "geburtstage.ini"
[/autoit] [autoit][/autoit] [autoit]$name = InputBox("Geburtstags-Erinnerer", "Gebe den Namen der Person ein:")
$tag = InputBox("Geburtstags-Erinnerer", "An welchem Tag ist die Person geboren: (01-31)")
$monat = InputBox("Geburtstags-Erinnerer", "In welchem Monat ist die Person geboren: (01-12)")
$jahr = InputBox("Geburtstags-Erinnerer", "In welchem Jahr ist die Person geboren: (z.B. 1999)")
$anzahl = IniRead($filename,"sonstiges","anzahl",0)
$anzahl = $anzahl + 1
IniWrite($filename,"sonstiges","anzahl",$anzahl)
IniWrite($filename,"name " & $anzahl,"name",$name)
IniWrite($filename,"name " & $anzahl,"tag",$tag)
IniWrite($filename,"name " & $anzahl,"monat",$monat)
IniWrite($filename,"name " & $anzahl,"jahr",$jahr)