办公族的健康提醒脚本

最近发现自己的脖子没有以前那么灵活了,经常有硬硬的、容易扭伤的感觉,我就知道我应该是得了颈椎病,在繁忙的工作中抽了点时间写了个脚本,督促自己每过1小时就活动活动颈椎,发现这是个不错的办法,也适合一些公司电脑禁止使用U盘的朋友们。

使用记事本敲入以下代码:

 

MsgBox "建议每小时活动活动身体,不要老坐着~" + Chr(10) + _
       "如:动动脖子(头划米字),出去走走(活动腰部),上个厕所",,"健康提示"
inputTime = Inputbox("请输入提示的间隔时间(分钟):","间隔时间")
if (inputTime > 0) then
	while true
		t = inputTime* 1000 * 60
		wscript.sleep(t)
		MsgBox "时间到!动动脖子(头划米字),出去走走(活动腰部),上个厕所,对身体好~",,"健康提示"
		MsgBox "时间到!动动脖子(头划米字),出去走走(活动腰部),上个厕所,对身体好~",,"健康提示"
		MsgBox "时间到!动动脖子(头划米字),出去走走(活动腰部),上个厕所,对身体好~",,"健康提示"
	wend
end if

然后保存为“health.vbs”,平时放在桌面上,每天开机第一件事就是启用这个脚本。OK,接下来就是遵循提示,别一直坐在电脑前面,多活动活动身体吧~

可以参考网上一些活动颈椎的方法:http://pic.people.com.cn/mediafile/200512/31/F200512311603272708931065.jpg

 

PS:脚本没有完善,输入值有误时会有错误提示,但不影响系统,暂时没时间改啦,大家有空可以帮忙优化一下~

另外:代码中有三个MsgBox的原因是防止脚本提示时用户正好按下空格或回车导致没有看到提示,若觉得烦可以自行去掉重复的两行。

posted @ 2010-12-30 07:38  cxun  阅读(683)  评论(4编辑  收藏  举报