Programm zur Pausenerinnerung

#1 Hi,

vielen Freelancer/Selbstständige brauchen regelmäßig Erinnerungen an Pausen bei der Computerarbeit, über folgende Programme bin ich bei meiner Recherche gestolpert:

http://www.workrave.org/welcome/
oder http://homepage1.nifty.com/kazubon/tclocklight/index.html

oder ein kleines Script.
Einfach ne Textdatei mit diesen Inhalt erzeugen und doppelklicken.

Timer.vbs

Code

Dim StartTime
Dim Runtime
Dim O
Set O = CreateObject("SAPI.SPVoice")


RunTime = 6         '<-- Anzahl der Sekunden eingeben
StartTime = Timer

do
   if (Timer-StartTime) > RunTime then
    Call O.Speak("Pause Pause Pause")  ' Sprachausgabe
    if msgbox("Mache Pause!",vbOKCancel,"WARNUNG!") = vbCancel then     
      WScript.Quit(1)
    end if
        StartTime = Timer
   end if         
   WScript.Sleep 500 ' 500 msec warten
loop until (false)

hoffentlich ist es für jemanden nützlich

Greetz Lp