【申精】 关机、重启、睡眠 去黑框版

staredeath

还是顶一下吧

Iron_Guy

完美精神值得学习

hlwsnessy

这个真要收了

一肩月光

hlwsnessy 发表于 2011-12-13 23:34  这个真要收了

那这个真发挥了应有价值了…嘿嘿

§LION♂

{:soso_e134:}

爱家的小黑

金山卫士报毒了，改进一下吧，支持你

去北极吧？

支持了，楼主辛苦！

一肩月光

爱家的小黑 发表于 2011-12-14 14:10  金山卫士报毒了，改进一下吧，支持你

哈…我就说…我的金山都说是木马，大家怎么一点事都没…
一会儿我把原程序复制上来，大家自己制作也行，我直接加入的白名单

一肩月光

关机vbs代码：

Set s = WScript.CreateObject("Wscript.Shell")

s.Run "Shutdown /f /s /t " & ntime*60 & " /c 系统关机" ,0

重启vbs代码：

Set s = WScript.CreateObject("Wscript.Shell")

s.Run "Shutdown /f /r /t " & ntime*60 & " /c 系统重启" ,0


定时关机代码：

Set s = WScript.CreateObject("Wscript.Shell")
ntime=InputBox ("time to shutdown [min]",,"30")
If  not ntime=0 Then s.Run "Shutdown /f /s /t " & ntime*60 & " /c 系统关机" ,0



用法：将两行保存为txt文本，将文本后缀改为.vbs   就是这样可以直接运行了，
要想转化为exe，网上下载一个vbs转exe软件自己转换就可以了

{:soso_e120:}