Our average concentratin span is now probably very similar to the length of YouTube videos.
The Pomodoro study method suggest concentrated work in 20 minute slots with breaks of 5-10 minutes.
If attached to a document in AllMyNotes the .vbs script below will produce a count-down timer on top of AllMyNotes
The code should be modified to your needs in notepad and saved with the .vbs ending. Default countdown is set to 12 seconds. Attached files are integrated in the database and can afterwards be deleted from the harddisk.
Set objShell = WScript.CreateObject("WScript.Shell")
Set objIE = WScript.CreateObject("InternetExplorer.Application")
objIE.Visible = 1
objShell.AppActivate objIE
With objIE
.navigate("about:blank")
.Document.Title = "Countdown" & string(100, chrb(160))
.resizable=0
.height=80
.width=40
.menubar=0
.toolbar=0
.statusBar=0
.left=700
.top=60
.document.focus()
End With
' wait for page to load
Do while objIE.Busy
wscript.sleep 500
Loop
' prepare document body
objIE.document.body.innerHTML = ""
' display the countdown where countdown time is in seconds, with 12 sec. as default
for i=12 to 0 step -1
objIE.document.all.countdown.innerText= i
wscript.sleep 1000
next
objIE.quit