首页| 新闻| 娱乐| 游戏| 科普| 文学| 编程| 系统| 数据库| 建站| 学院| 产品| 网管| 维修| 办公| 热点
将下面代码存为vbs文件,如:shutdown.vbs,然后双击或在文件上点右键选择以命令提示打开,如果到了你设置重启的时候,系统会出现关机的对话框。
直接下面代码程序会出现关机的对话框,最后的回车注释掉了,正常使用时,请去掉注释符。
以下代码在window 2000 下通过。
'定时关机或重启的脚本,在windows 2000下通过' http://www.51windows.net' code by haiwa 2005-11-7dim ActionIDActionID = 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 functionWhile true if DateDiff("s", Now, ActionTime) < 0 then ShutDown() end if WScript.Sleep(5*1000)wend
练就火眼金睛 十一种常见电脑
打印机共享提示“操作无法完成
如何查找有故障的配件
回眸一笑百魅生,六宫粉黛无颜色
岁月静美,剪一影烟雨江南
芜湖有个“松鼠小镇”
小满:小得盈满,一切刚刚好!
一串串晶莹剔透的葡萄,像一颗颗宝石挂在藤
正宗老北京脆皮烤鸭
人逢知己千杯少,喝酒搞笑图集
搞笑试卷,学生恶搞答题
新闻热点
疑难解答
图片精选
数学常数e的含义
Flash Cookie简介、防护和删除
在浏览器右键添加自定义菜单
定时提醒你休息的脚本
网友关注