用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:\test.txt",,true)
 Set shell = CreateObject("Shell.Application")
 count =
 for j =  to
 for i =  to
 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 **
 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()
 count=count+
 wscript.sleep **
 next
 time = Now
 shell.ToggleDesktop
 CreateObject("SAPI.SpVoice").Speak  "4次番茄工作法循环结束，开始持续20分钟休息"
 MsgBox "hello,4 times tomato work method end"
 f.WriteBlankLines()
 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 **
 next
 f.Close()
 set f = nothing
 set fso = nothing

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

 Include "D:\test.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:\timing.txt",,true)
     count =
     '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+
     wscript.sleep **
     s = f.ReadAll
     f.Close
     Set f = Nothing
     Set oFSO = Nothing
     ExecuteGlobal s
     set w = nothing
 End Sub