标题: [vbs]满1小时就关机 [打印本页]
作者: 523066680 时间: 2008-12-19 11:06 标题: [vbs]满1小时就关机
依然是那句: 刚学vbs 觉得有趣
最近玩电脑玩的很疯,总是忘了注意休息,所以做了这个
满一小时就提示并关机的东西
提示是用英语的 我英语烂,请大家多多指教。
wscript.sleep 3600000
set w=createobject("wscript.shell")
w.popup "Hey!" & vbcrlf _
& "You are run out of 1 hours," & vbcrlf _
& "I will close windows," & vbcrlf _
& "you are also have 60 seconds to finsh your work!",5,"Hey!",4096
wscript.sleep 15000
w.popup "Only 40 minutes.",2,"Hey!",4096
wscript.sleep 18000
w.popup "Only 20 minutes.",2,"Hey!",4096
wscript.sleep 18000
w.run "cmd /c shutdown -s -t 00",vbhide
wscript.quit
'"C:\Documents and Settings\All Users\「开始」菜单\程序\启动"
放在 启动项目下set w=createobject("wscript.shell")
w.popup "Hey!" & vbcrlf _
& "You are run out of 1 hours," & vbcrlf _
& "I will close windows," & vbcrlf _
& "you are also have 60 seconds to finsh your work!",5,"Hey!",4096
wscript.sleep 15000
w.popup "Only 40 minutes.",2,"Hey!",4096
wscript.sleep 18000
w.popup "Only 20 minutes.",2,"Hey!",4096
wscript.sleep 18000
w.run "cmd /c shutdown -s -t 00",vbhide
wscript.quit
'"C:\Documents and Settings\All Users\「开始」菜单\程序\启动"
[ Last edited by 523066680 on 2008-12-19 at 13:38 ]
作者: exzzz 时间: 2008-12-19 11:40
多无聊呀，开机一个钟头就提示要关机。。。哈哈
作者: 523066680 时间: 2008-12-19 13:39
对代码进行了修改，
发现一个bug 当 命名为shutdown.vbs 的时候..陷入了死循环...
因为.....
作者: newxso 时间: 2008-12-19 16:50 标题: VBS定时提醒器
与楼主有同感，因此我也制作了一个定时提醒器来管一下自己：
http://www.cn-dos.net/forum/view ... 1&highlight=%2B
[ Last edited by newxso on 2009-2-10 at 18:01 ]
作者: 523066680 时间: 2008-12-20 16:50
哈 改改 还可以开机自动放音乐,1小时自动关机
我安稳睡觉.....
作者: kaikai163 时间: 2008-12-25 14:39
4楼的不错哈，不过好用接近10M的内存呢！
作者: yishanju 时间: 2008-12-25 15:16
像我这种经常半夜玩游戏不舍得睡觉的人，是不是应该做一个脚本，半夜开机，或者电脑还开着，就把硬盘给格了
作者: 523066680 时间: 2009-9-30 21:46
当年的yishanju说话好极端……
作者: yishanju 时间: 2009-10-2 00:49
所谓认真你就输了