科技 > 操作系统 > windows

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

111人参与2019-08-13

番茄工作法:

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

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

 

留下您精彩的一笔!!点此进行留言回复

最近更新

电脑突然黄屏怎么回事? win10黄屏的两种解决办法

06-23

电脑开机软件自动启动怎么关闭 win7/win10快速关闭开机自启软件

06-22

Windows系统无法删除文件怎么办 win7/8/10提示需要权限来执行此操作的解决方法

06-22

win10 突然D盘不见了怎么办 D盘分区消失的恢复方法

06-22

win10如何清理C盘垃圾文件 系统自带磁盘清理工具的使用教程

06-22

win10系统提示L2TP连接尝试失败怎么办?

06-22

推荐阅读

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

08-13

联想昭阳k41笔记本一键U盘改装win10系统图文教程

03-02

微软马上停止支持!报告:Win7国内份额接近60%

12-11

DOS之cd命令

05-03

智能手机的Win10 ARM版不死:正在扩充到更多手机上

01-07

怎么让Win10桌面文件夹变透明?Win10桌面文件夹变透明设置图文教程

05-18

使用Easy Image X 备份还原教程详细介绍

07-19

Win10电脑系统彻底删除文件 删除文件不在进入回收站的方法

06-08

Win10系统故障无法自动修复怎么办?Win10使用还原点还原系统的方法

10-12

windows校验文件的值

09-19

五个步骤解决电脑没声音的问题

05-26

win7系统损坏无法开机怎么办?win7系统损坏开不了机的解决方法图文教程

06-03

windows powershell基础

02-25

简单易上手 固态硬盘SSD安装WIN7系统的3种办法

07-19

热门评论