vbs定时提醒

多喝水

最近女朋友上火，工作比较忙。忙的在电脑前连口水都不记得喝。我只能做一个每隔半小时就提醒她该喝水的脚本

set WshShell = WScript.CreateObject("WScript.Shell") 
msgbox "亲爱的，在忙也要记得照顾好自己",4096,"LoveYou"
alerttitle = "定时提醒"
alerttext = "亲爱的，在忙也要喝口水，放松一下"
for i = 0 to 20    '次数
    WScript.Sleep(1000*60*30)    '每隔30分钟 
    msgbox alerttext,4096,alerttitle 
next

• 新建一个文本，将后缀名改成.vbs，然后拷贝上面脚本内容复制到文件中，双击运行

女朋友被提醒弄烦了，想要关掉但是不会弄怎么办？
有启动脚本就得有关闭脚本

dim WSHshell
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run ("taskkill /f /im wscript.exe")

• 和上面的操作一样，双击后脚本就结束了