定时关机、重启的脚本和程序

　　将下面代码存为vbs文件，如：shutdown.vbs，然后双击或在文件上点右键选择以命令提示打开,如果到了你设置重启的时候，系统会出现关机的对话框。

　　直接下面代码程序会出现关机的对话框，最后的回车注释掉了，正常使用时，请去掉注释符。

　　以下代码在window 2000 下通过。

'定时关机或重启的脚本，在windows 2000下通过 ' http://www.51windows.net ' code by haiwa 2005-11-7 dim ActionID ActionID = 1 '0注销，1关机，2重启, ActionTime = "2005-11-7 13:42:30" '关机或重启时间 function ShutDown() dim objShell Set objShell = WScript.CreateObject("Wscript.Shell") dim Application set Application = CreateObject("Shell.Application.1") Application.ShutdownWindows() dim upi for upi = 0 to 4 WScript.Sleep(50) objShell.sendKeys("{UP}") next For upi = 1 to ActionID WScript.Sleep(50) objShell.sendKeys("{DOWN}") next '使用时，请把下行的注释符去掉 'objShell.sendKeys("{ENTER}") end function While true if DateDiff("s", Now, ActionTime) < 0 then ShutDown() end if WScript.Sleep(5*1000) wend

• 收藏此页到 IE收藏夹 POCO网摘 [365Key] [ViVi] 百度藏搜 和讯网摘 天极网摘 狐摘 向您的朋友推荐此文章
• 转载请注明来源：文章大全 网址：http://www.itlearner.com/article/
• 文章关键词：定时关机
• 如意搜索搜索更多内容：定时关机、重启的脚本和程序
• 特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系我们，我们会尽快予以更正。

• 上一篇文章：张朝阳公开质疑雅虎搜索8000万央视打广告
• 下一篇文章：定时提醒你休息的脚本