依然是那句: 刚学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\「开始」菜单\程序\启动"
放在 启动项目下
Last edited by 523066680 on 2008-12-19 at 13:38 ]
Still that sentence: just learning VBS and find it interesting
Recently I've been playing computer like crazy, always forgetting to pay attention to rest, so I made this
Something that prompts and shuts down after an hour
The prompt is in English. My English is bad, please give me more advice.
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\「开始」菜单\程序\启动"
Put it under the startup items
Last edited by 523066680 on 2008-12-19 at 13:38 ]
