'v4.A***************************************************** ' File: erinnerung.vbs ' Autor: Zuujin@web.de ' http://source-center.de/forum/member.php?u=1294 ' ' http://dieseyer.de ' ' Erstellt mit Datum/Zeit eine versteckte "C:\Erinnerung.txt" ' und setzt in der Egistry "/All Users/.../Autostart/" einen ' Eintrag, damits beim nächsten systemstart das Skript ' (versteckt) wieder anläuft (und die .txt ausliest) . . . ' bis die Zeit REIF ist '********************************************************* set fso = CreateObject ("scripting.filesystemobject") set sho = CreateObject ("wscript.shell") Wert = False IF NOT fso.FileExists ("C:\Erinnerung.txt") THEN Heute = msgbox ("Würde die Erinnerung am heutigen Tag stattfinden?",vbyesno or vbquestion,"Erinnerung heute?") IF Heute = vbyes THEN input = inputbox ("Bitte geben sie die Uhrzeit ein, zu der sie erinnert werden möchten:"&vbcr &" Schema: HH:MM:SS","Wann?",Time) IF IsEmpty (input) THEN msgbox "Keine Eingabe erfolgt. Programm beendet!",vbinformation,"Programmende!" ELSE MsgInput = inputbox ("An was wollen sie erinnert werden?","Was?") IF IsEmpty (MsgInput) THEN msgbox "Keine Eingabe erfolgt. Programm beendet!",vbinformation,"Programmende!" ELSE msgbox "Erinnerung gesetzt!",vbinformation,"Timer gestartet!" DO Zeit = time input = CDate (input) IF Zeit > input THEN msgbox MsgInput,vbexclamation,"Erinnerung!" Wert = True END IF wscript.sleep 500 LOOP UNTIL Wert = True END IF END IF ' ============== ' = MIT DATUM = ' ============== ELSE DateInput = inputbox ("Bitte geben sie das Datum ein, zu dem sie erinnert werden möchten:"&vbcr &" Schema: DD.MM.JJJJ","Wann?",Date) IF IsEmpty (DateInput) THEN msgbox "Keine Eingabe erfolgt. Programm beendet!",vbinformation,"Programmende!" ELSE TimeInput = inputbox ("Bitte geben sie die Uhrzeit ein, zu der sie erinnert werden möchten:"&vbcr &" Schema: HH:MM:SS","Wann?",Time) IF IsEmpty (TimeInput) THEN msgbox "Keine Eingabe erfolgt. Programm beendet!",vbinformation,"Programmende!" ELSE MsgInput = inputbox ("An was wollen sie erinnert werden?","Was?") IF IsEmpty (MsgInput) THEN msgbox "Keine Eingabe erfolgt. Programm beendet!",vbinformation,"Programmende!" ELSE Set File = fso.CreateTextFile ("C:\Erinnerung.txt") File.writeline (DateInput) File.writeline (TimeInput) File.writeline (MsgInput) File.close Set RemFile = fso.getfile ("C:\Erinnerung.txt") RemFile.attributes = RemFile.Attributes +2 Scriptpath = WScript.ScriptFullname Set Script = fso.GetFile (Scriptpath) Script.copy ("C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Autostart\Erinnerung.vbs ") msgbox "Erinnerung gesetzt!",vbinformation,"Timer gestartet!" DO Jetzt = now input = DateInput &" " &TimeInput input = CDate (input) IF Jetzt > input THEN msgbox MsgInput,vbexclamation,"Erinnerung!" Wert = True RemFile.delete END IF wscript.sleep 500 LOOP UNTIL Wert = True END IF END IF END IF END IF '================ '= NACH NEUSTART = '================ ELSE Const ForReading = 1 Set TXTFile = fso.OpenTextFile ("C:\Erinnerung.txt", ForReading) DateInput = TXTFile.readline TimeInput = TXTFile.readline MsgInput = TXTFile.readline TXTFile.close DO Jetzt = now input = DateInput &" " &TimeInput input = CDate (input) IF Jetzt > input THEN msgbox MsgInput,vbexclamation,"Erinnerung!" Wert = True Set RemFile = fso.getfile ("C:\Erinnerung.txt") Set Script = fso.getfile ("C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Autostart\Erinnerung.vbs ") RemFile.delete Script.delete END IF wscript.sleep 500 LOOP UNTIL Wert = True END IF