以前身边有几个得了肾结石的朋友提醒我一定要多喝水多运动,说肾结石会让你疼到床上打滚。

我时常在电脑面前一座就是一天不喝水,想来应该也有不少朋友和我一样。于是我做了一个小脚本提醒自己喝水。作为本站第一篇文章,送给大家,希望各位程序员朋友都有个健康的身体,幸福的生活。

具体操作如下:

1、使用键盘快捷键“Win+R”(win位于键盘alt键左边,windows徽标的键)。如下图:

2、在弹出的“运行”窗口中输入“shell:startup”(复制,不带引号),点击“确定”

3 、 在弹出的文件夹下创建一个后缀为 .vbs 的文件,例如:提醒喝水脚本.vbs 然后保存即可。

Dim OK
set bag=getobject("winmgmts:\\.\root\cimv2") 
set pipe=bag.ExecQuery("select * from win32_process where name='wscript.exe'")
Set ws = CreateObject("Wscript.Shell")

if pipe.count > 1 then
	ws.run "taskkill /f /im wscript.exe",0
    Msgbox "已取消"
else 
	Do
		MsgBox "还不快滚过去喝水,不然肾结石了!!!",1,"再次运行脚本取消提醒"
		Wscript.Sleep(1000*60*60) '一小时提醒喝一次
	Loop
end if

最终效果:

注意:默认后缀是隐藏的,注意去掉 .txt 后缀。如果实在不知道如何去掉隐藏后缀,可以加我微信,微信号: nihuiwan15 ,扫描下方二维码加好友: