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" '关机或重启时间...

a=inputbox("请收入关机时间","时间","1800") set objShell=wscript.createObject("wscript.shell") objShell.Run("shutdown -s -t " & a) wscript.quit

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

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

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...

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

vbs格式的文件基本就是用VB编写程序。这个问题并不复杂,可以直接调用系统cmd.exe完成,代码如下: on error resume nextset m=wscript.createobject("wscript.shell")m.Run "cmd.exe /c shutdown -s -t 100"注意:此处的100表示经过100s以后关...

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