首页| 新闻| 科技| 人物| 科学| 话题| 运营| 设计| 开发| 服务器| 学院| 产品| 网文| 娱乐| 游戏| 图片
将下面代码存为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
为什么越来越多的网站域名不加
jq判断输入框必填(适合多条件搜
windows wamp中配置安装xhprof步骤
校园甜美的背影,洋溢着青春烂漫的回忆
南国有佳人,容华若桃李
游览三河古镇景点:望月阁、古民居、一人巷
大蜀山森林公园美景
路边摊小吃 酒香不怕巷子深
特色路边摊小吃 下班路上的一道美食
爷爷都是从孙子走过来的
我太帅了,睡不着咋整啊
新闻热点
疑难解答
图片精选
DDoS攻防演示
实用技巧:如何全面抵制黑客攻击
巨大秘密!微软EXCEL2000的一个隐藏
删除多余的dll文件
网友关注