Welcome to DU! The truly grassroots left-of-center political community where regular people, not algorithms, drive the discussions and set the standards. Join the community: Create a free account Support DU (and get rid of ads!): Become a Star Member Latest Breaking News General Discussion The DU Lounge All Forums Issue Forums Culture Forums Alliance Forums Region Forums Support Forums Help & Search

hedgehog

(36,286 posts)
Wed May 23, 2012, 08:23 PM May 2012

I'm looking for an alarm function:

Here's the deal: when I'm working, I lose track of time. Now I've read that I should stand up and move around at least every 20 minutes. I'm running Windows XP. Is there function that I can use to say, dim the screen every 20 minutes?

3 replies = new reply since forum marked as read
Highlight: NoneDon't highlight anything 5 newestHighlight 5 most recent replies
I'm looking for an alarm function: (Original Post) hedgehog May 2012 OP
try this hobbit709 May 2012 #1
how about a popup message? ChromeFoundry May 2012 #2
what about Sentath May 2012 #3

ChromeFoundry

(3,270 posts)
2. how about a popup message?
Wed May 23, 2012, 10:12 PM
May 2012

Paste the following into Notepad and save it as "C:\Timeout.vbs"


Option Explicit
Dim CountDown
Dim message
Dim WshShell

Set WshShell = CreateObject("WScript.Shell&quot
message = "Hey, it's been 20 minutes!"
CountDown = 1200

Do While CountDown > 0
WScript.Sleep(1000) '** Sleep for 1 second
CountDown = CountDown - 1
If CountDown < 1 Then
WshShell.Popup message, 0, "Time is up", 48
CountDown = 1200
End If
Loop


Start the reminder with the following:
Start -> Run...
WScript C:\Timeout.vbs


You will be reminded every 20 minutes that "Hey, it's been 20 minutes!"
The timer stops until you click the "OK" button in the popup. 20 minutes later... you are reminded again.
Latest Discussions»Help & Search»Computer Help and Support»I'm looking for an alarm ...