经常在电脑前面工作的朋友，为了您的健康请一定要看哦！

[doveph]

由于自己每天在电脑前面工作上十小时，眼睛经常很难受，昨晚眼睛突然眼睛红肿得成了“红龙眼”（照了下镜子样子很恐怖，幸好是凌晨，没人看到，要不然肯定以为见鬼了），把我给吓坏了，幸运的是今天早上起来眼睛基本上消肿了，所以今天写下了这段代码提醒自己。想到许多朋友也可能和我样，所以拿出来共享了！

代码功能：自己设置工作时间和休息时间（比如每工作1小时休息10分钟），设定时间一到程序会自动提醒你该休息了，并自动播放音乐，休息时间一到提醒工作，并关闭音乐！

使用方法：
1. 将下面的代码保存为：Ring.vbs （文件名可自定）
2. 将Ring.vbs移动到程序启动组，这样可以随WINDOWS自动启动了（位置是：开始--程序--启动，XP的启动组位置是：C:\Documents and Settings\你的用户名\「开始」菜单\程序\启动\）
3. 我这里使用的是Window自带的Media Player播放音乐，所以先打开您的Media Player，将“正在播放列表”另存到D:\Music\MyMusic.wpl（保存路径可以自定，但要在下在的代码中修改strSoundFile的路径），以后你只要打开电脑就可以自动提醒了！

注意：如果你使用的是Winamp播放音乐，则必有把路径改为Winamp的播放列表文件地址，以及strCommand和strCommand2的值如：
strCommand = "C:\Program Files\Winamp\winamp.exe /prefetch:1 /Task MediaLibrary " & Chr(34) & strSoundFile & Chr(34) '播放音乐
strCommand2 = "taskkill /im winamp.exe" '关闭音乐程序

'/////////////////////////////代码开始

Set objShell = WScript.CreateObject("WScript.Shell")

j = 60 '工作时间（分钟）
n = 10 '休息时间（分钟）

alertText = "休息一下，听听音乐" & Chr(10) & "活动一下脖子，腰部。" & Chr(10) & "生命在于运动！！" '提醒内容,Chr(10)为换行符

alertText2 = n&"分钟休息时间到了，继续工作！"

strSoundFile = "D:\Music\MyMusic.wpl" '自动播放列表地址
strCommand = "wmplayer.exe /prefetch:1 /Task MediaLibrary " & Chr(34) & strSoundFile & Chr(34) '播放音乐
strCommand2 = "taskkill /im wmplayer.exe" '关闭音乐程序

For i = 1 To 12 '12为提醒的次数
WScript.Sleep(1000 * 60 * j)
MsgBox alertText, 64
objShell.Run strCommand, 1, False

WScript.Sleep(1000 * 60 * n)
objShell.Run strCommand2, 0, True
MsgBox alertText2, 64
Next

'/////////////////////////////代码结束

[mylove36]

顶~~~~~!苦命的程序员啊`~~~~~~~~``!继续发扬~~~~多多写些这类的小程序`~~~~~

[doveph]

To：zhlym(明)
你试试直接能不能打开D:\mp3\MyMusic.wpl并播放？

[zhlym]

TO doveph(Dove)

我直接打开D:\mp3\MyMusic.wpl能播放的,就是不懂為什麽VBS打開播放器後不能播放,且不能關閉播放器

[doveph]

那就奇怪了，没提示啥错误？

[kaixinglei]

我的用是winamp时就是报错,说是什么组件不对哦!能帮帮忙吗?能弹出提示框就是不能执行放歌啊!有谁帮我看看.
'/////////////////////////////代码开始

Set objShell = WScript.CreateObject("WScript.Shell")

j = 10 '工作时间（分钟）
n = 10 '休息时间（分钟）

alertText = "休息一下，听听音乐" & Chr(10) & "活动一下脖子，腰部。" & Chr(10) & "生命在于运动！！" '提醒内容,Chr(10)为换行符

alertText2 = n&"分钟休息时间到了，继续工作！"

strSoundFile = "F:\mp3\lt.m3u" '自动播放列表地址
strCommand = "d:\Program Files\Winamp\winamp.exe /prefetch:1 /Task MediaLibrary " & Chr(34) & strSoundFile & Chr(34) '播放音乐
strCommand2 = "taskkill /im winamp.exe" '关闭音乐程序

For i = 1 To 12 '12为提醒的次数
WScript.Sleep(1000 * 60 * j)
MsgBox alertText, 64
objShell.Run strCommand, 1, False

WScript.Sleep(1000 * 60 * n)
objShell.Run strCommand2, 0, True
MsgBox alertText2, 64
Next

'/////////////////////////////代码结束
有错吗?

[holoon]

弓虽

[monkeyhjl]

顶顶顶！！！

[班门弄斧]

顶~~~~~~

[Initial_R]

好东东，收藏了。

请问达人，如果我要让它具有下列功能，有什么方法可以实现？
工作时间60分钟，每次工作结束后，自动打开某一个文件夹中的文件，名称是规则型递增（如1.rm,2.rm,3.rm,4.rm,5.rm...）每次打开文件是上一次打开的文件+1

每次打开文件时自动把当前打开的文件名称记录到数据库中（可以使用access数据库），vbs小程序负责每次从数据库读取上一次打开的值+1打开文件，然后更新数据库当前打开文件的值。

[doveph]

lenchowong(山区人民)。。。有意思
TO dolfen(海之豚) 完全可以，注释掉
MsgBox alertText, 64
和
MsgBox alertText2, 64
这两行就行了

[bladon]

没有电脑,我宁愿死去!

[dolfen]

谢谢楼主！
有个问题想问问：有没有办法隐藏那个窗口呢？

[猪头堂主]

眼睛还保持在5.2..不过代码还是要学习

[lenchowong]

hah
就跟我以前闹钟闹不醒
没有办法
干脆用电脑来当闹钟
到点自动放ＤＧ
晕
把音相开大
那个声音一下就醒了

[wfwclyms]

不知道为什么，我以前看小说（除拉程序，就剩小说了），当然是书本了，视力急速下降，现在看网络小说，当然在电脑上看，视力一直是那时候的样子，一点没下降。














郁闷中~~~~~~~~~~





















































庆幸中~~~~~~~~~~~~~~~~~~~~~~~~~~~~






































偷笑中~~~~~~~~~~~~~~~~~~~~

[yzgjjx]

下辈子再也不摸计算机。

[andaxuesheng]

顶！
我顶！
我还顶！

[wudi626]

顶

[windspeed]

WScript.ext进程要消耗了 9M多内存啊

[liyong888_8]

up