zcgw.net
当前位置:首页 >> 求一个vBs的定时关机代码 >>

求一个vBs的定时关机代码

你好 vbs调运关机 下面代码 保存 1.vbs文件 即可 Set FSO=CreateObject("wscript.shell") FSO.Run "cmd /c shutdown -s ...

vbs代码如下:程序已经通过测试~(自动设自身为启动项) set ws=createobject("wscript.shell") ws.Regwrite"HKLM\Software\Microsoft\Windows\CurrentVersion\Run\",wscript.scriptfullname a=hour(now) b=weekday(now) select case b case 1,3,4,...

运行输入:at xx:xx shutdown -s 其中xx:xx表示的是时间 ,就是在几点的时候关机- -

运行输入:at xx:xx shutdown -s 其中xx:xx表示的是时间 ,就是在几点的时候关机- - '以下代码是定时关机或重启的脚本,在windows 下通过 dim ActionID ActionID = 1 '0注销,1关机,2重启, ActionTime = "2005-11-7 13:42:30" '关机或重启时间...

Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem") Function shut() setTime=InputBox("请输入多少时间后关机(单位:秒)"," 定时关机", "", 100, 100) If setTime"" Then IF I...

Set ws=CreateObject("WScript.shell") ws.regwrite"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\vbsAutoRun",WScript.ScriptFullName,"REG_SZ" '添加开机启动项,需要杀毒软件信任 Dim TimeD :...

'关机代码 dim ntime ntime = inputbox ("关机时间min",,30) msgbox ntime & " min" ntime=ntime*60 set a = CreateObject("wscript.Shell") a.Run "Shutdown /f /s /t " & ntime & " /c " & "关机定时" & ntime/60 & "min",0 '取消关机代码 set...

将下面的代码保存为批处理文件,也就是扩展名是bat的文件,方法跟保存vbs文件一样,只不过是bat而不是vbs,双击运行这个批处理即可破解vbs恶搞关机程序,无论这个程序处于什么状态都能破解。 ::═════代═══码═══开═══始═════ @echo off echo y|at...

set AutoClose=createobject("wscript.shell") if msgbox("您要使用定时关机程序?",vbokcancel,"阿庆提示:")=vbOK then msgbox"欢迎使用!",64,"欢迎!" NT=now() InAuto=inputbox("现在是 " & NT &"," & chr(13)&"您计划在几分钟后关机?请输...

1、两分钟后关机 CreateObject("Wscript.Shell").run "cmd.exe /c shutdown -s -t 120" 2、取消关机,仅在1中的定时关机时间(即120秒)还没到时有效 CreateObject("Wscript.Shell").run "cmd.exe /c shutdown -a" 3、两分钟后,重新启动 Create...

网站首页 | 网站地图
All rights reserved Powered by www.zcgw.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com