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

来源：cnblogs　　作者：RT2018　　时间：2019/8/15 11:54:50　　对本文有异议

番茄工作法：

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

25min工作+5min休息

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

VBS代码实现如下：

 1 Dim fso,f,count,time,shell
 2 set fso=wscript.CreateObject("Scripting.FileSystemObject")
 3 set f=fso.opentextfile("d:\test.txt",8,true)
 4 Set shell = CreateObject("Shell.Application")
 5 count = 1
 6 for j = 1 to 3
 7 for i = 1 to 4
 8 time = Now
 9 shell.ToggleDesktop
10 CreateObject("SAPI.SpVoice").Speak  "开始持续25分钟集中注意力"
11 MsgBox "hello,Start focusing in 25 minutes"
12 f.Write("Number of tasks started: ")
13 f.WriteLine(count)
14 f.WriteLine("Start focusing in 25 minutes at ")
15 f.WriteLine(time)
16 wscript.sleep 1000*60*25
17 time = Now
18 shell.ToggleDesktop
19 CreateObject("SAPI.SpVoice").Speak  "集中注意力时间结束，开始持续5分钟休息"
20 MsgBox "hello,Start resting in 5 minutes"
21 f.WriteLine("Start resting in 5 minutes at ")
22 f.WriteLine(time)
23 f.WriteBlankLines(1)
24 count=count+1
25 wscript.sleep 1000*60*5
26 next
27 time = Now
28 shell.ToggleDesktop
29 CreateObject("SAPI.SpVoice").Speak  "4次番茄工作法循环结束，开始持续20分钟休息"
30 MsgBox "hello,4 times tomato work method end"
31 f.WriteBlankLines(1)
32 f.Write("Number of tasks started: ")
33 f.WriteLine(j)
34 f.WriteLine("Start resting after 4 times tomato work method at ")
35 f.WriteLine(time)
36 wscript.sleep 1000*60*20
37 next
38 f.Close()
39 set f = nothing
40 set fso = nothing

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

 1 Include "D:\test.vbs"
 2  
 3 Sub Include(sInstFile) 
 4     Dim oFSO, f, s, w, time
 5     Set oFSO = CreateObject("Scripting.FileSystemObject") 
 6     Set f = oFSO.OpenTextFile(sInstFile) 
 7     Set w = oFSO.opentextfile("d:\timing.txt",8,true)
 8     count = 1
 9     'wscript.sleep 1000*60*14
10     time = Now
11     MsgBox "hello,Start resting in 5 minutes"
12     CreateObject("SAPI.SpVoice").Speak  "集中注意力时间结束，开始持续5分钟休息"
13     w.Write("Number of tasks started: ")
14     w.WriteLine(count)
15     w.WriteLine("Start resting in 5 minutes at ")
16     w.WriteLine(time)
17     count=count+1
18     wscript.sleep 1000*60*3
19     s = f.ReadAll 
20     f.Close 
21     Set f = Nothing
22     Set oFSO = Nothing
23     ExecuteGlobal s 
24     set w = nothing
25 End Sub