科技 > 操作系统 > windows

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

38人参与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

 

您希望与广大热心网友互动!!点此进行留言回复

相关推荐

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

08-13

在Docker中安装Discours的教程

03-06

宏基Aspire E1-472G设置BIOS用U盘装win7系统

03-16

Win10 Mobile/PC build 10586.589曝光:老机型有份

07-10

第一次!Windows 10开始警告旧版本过期

07-16

Windows下docker的安装以及遇到的问题

01-24

忘掉Windows吧 国产操作系统Deepin上手

05-29

【转】电脑/服务器各大硬件部件介绍

09-04

Windows 10 Build 18936发布:更方便了

07-11

Windows 10相机应用图标泄露:耳目一新

08-27

最近更新

Linux中存在严重漏洞 可导致使用Wi-Fi的附近设备崩溃

10-21

倪光南谈国产操作系统:支持鸿蒙发展生态 要防止国外企业滥用垄断

10-21

安卓封闭堕落or自我救赎?谈安卓10的巨大变化

10-21

安装Windows10出现无法识别磁盘时的解决方案

10-20

微软Windows 10 11月更新准备就绪!

10-20

基于Android 10打造 MIUI 11稳定版已灰度外发:小米9尝鲜

10-20

小米徐洁云:下一代MIUI项目已经开拔

10-19

预装Linux怎么办 教你学会U盘装Win10

10-19

Win10 20H1新版19002推送:蓝牙设备快速配对功能全面上线

10-19

MIUI 11稳定版来了:首批支持12款小米/Redmi机型

10-19

网友评论

已有0条评论