http://dieseyer.de • all rights reserved • © 2011 v11.4
'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
http://dieseyer.de • all rights reserved • © 2011 v11.4