时间提醒脚本！

最近打算做一个定时提醒脚本，由于前段时间煮开水竟然烧掉一个水壶，危险呀！事实我的记忆力是相当差的所以就做个VBS脚本提醒了。说起些VBS相当蹩脚，当初还曾经下大力气学过VB编程现在竟然忘的干干净净，好在脚本就是脚本第一很简单第二可以从网上随便抄袭，于是我就造出了一个方不方正不正的东西来，不过够用了写下来留着随时COPY哈哈！

set WshShell = WScript.CreateObject("WScript.Shell")
'对话框标题
alerttitle = "定时提醒"
alerttext = "时间到！"
dim timed
timed=inputbox("请输入间隔时间单位:分钟")
WScript.Sleep 1000*60*timed 'N分钟后提醒
msgbox alerttext,4096,alerttitle