用vbs脚本简易实现 番茄工作法

番茄工作法：

专注于某一段时间，减少打断，提高时间的感知和掌控。

25min工作+5min休息

周期：4x(25+5)+20

 VBS代码实现如下：

Dim fso,f,count,time,shell
set fso=wscript.CreateObject("Scripting.FileSystemObject")
set f=fso.opentextfile("d:	est.txt",8,true)
Set shell = CreateObject("Shell.Application")
count = 1
for j = 1 to 3
for i = 1 to 4
time = Now
shell.ToggleDesktop
CreateObject("SAPI.SpVoice").Speak  "开始持续25分钟集中注意力"
MsgBox "hello,Start focusing in 25 minutes"
f.Write("Number of tasks started: ")
f.WriteLine(count)
f.WriteLine("Start focusing in 25 minutes at ")
f.WriteLine(time)
wscript.sleep 1000*60*25
time = Now
shell.ToggleDesktop
CreateObject("SAPI.SpVoice").Speak  "集中注意力时间结束，开始持续5分钟休息"
MsgBox "hello,Start resting in 5 minutes"
f.WriteLine("Start resting in 5 minutes at ")
f.WriteLine(time)
f.WriteBlankLines(1)
count=count+1
wscript.sleep 1000*60*5
next
time = Now
shell.ToggleDesktop
CreateObject("SAPI.SpVoice").Speak  "4次番茄工作法循环结束，开始持续20分钟休息"
MsgBox "hello,4 times tomato work method end"
f.WriteBlankLines(1)
f.Write("Number of tasks started: ")
f.WriteLine(j)
f.WriteLine("Start resting after 4 times tomato work method at ")
f.WriteLine(time)
wscript.sleep 1000*60*20
next
f.Close()
set f = nothing
set fso = nothing

为适应强迫症增加vds定时器调用如下：

Include "D:	est.vbs"
 
Sub Include(sInstFile) 
    Dim oFSO, f, s, w, time
    Set oFSO = CreateObject("Scripting.FileSystemObject") 
    Set f = oFSO.OpenTextFile(sInstFile) 
    Set w = oFSO.opentextfile("d:	iming.txt",8,true)
    count = 1
    'wscript.sleep 1000*60*14
    time = Now
    MsgBox "hello,Start resting in 5 minutes"
    CreateObject("SAPI.SpVoice").Speak  "集中注意力时间结束，开始持续5分钟休息"
    w.Write("Number of tasks started: ")
    w.WriteLine(count)
    w.WriteLine("Start resting in 5 minutes at ")
    w.WriteLine(time)
    count=count+1
    wscript.sleep 1000*60*3
    s = f.ReadAll 
    f.Close 
    Set f = Nothing
    Set oFSO = Nothing
    ExecuteGlobal s 
    set w = nothing
End Sub