定时提醒你休息的脚本

5ianycall

普通会员
2005-07-11
2,320
0
0

天天坐在电脑前的朋友要每隔一段时间活动一下,不然身体会变得越来越差。下成的vbs脚本可以每隔一段时间来提醒你。

'''''''''''以下是代码
set WshShell = WScript.CreateObject("WScript.Shell")
'对话框标题
alerttitle = "定时提醒"
'提醒内容,vbnewline为换行符
alerttext = vbnewline & vbnewline & "休息一下,活动一下胳膊,脖子,腰部。" & vbnewline & vbnewline & vbnewline & "生命在于运动"& vbnewline & vbnewline & vbnewline
for i = 1 to 12 '12为提醒的次数
WScript.Sleep(1000*60*45) '每45分钟提醒一次
msgbox alerttext,4096,alerttitle
next

'''''''''''''''''''''''''''''

将上面代码存为:定时提醒.vbs ,然后双击运行,进程中会有一个wscript.exe的进程,结束后他就不会提醒了。

对话框效果:

alertme.gif
 

5ianycall

普通会员
2005-07-11
2,320
0
0
将代码存为:定时提醒.vbs ,然后双击运行,进程中会有一个wscript.exe的进程,结束后他就不会提醒了。