手机
当前位置:查字典教程网 >脚本专栏 >vbs >vbs实现的定时关机、重启的脚本和程序
vbs实现的定时关机、重启的脚本和程序
摘要:将下面代码存为vbs文件,如:shutdown.vbs,然后双击或在文件上点右键选择以命令提示打开,如果到了你设置重启的时候,系统会出现关机...

将下面代码存为vbs文件,如:shutdown.vbs,然后双击或在文件上点右

键选择以命令提示打开,如果到了你设置重启的时候,系统会出现关机的对话

框。

直接下面代码程序会出现关机的对话框,最后的回车注释掉了,正常使用

时,请去掉注释符。

以下代码在window2000下通过。

复制代码 代码如下:

'定时关机或重启的脚本,在windows2000下通过

'codebyhaiwa2005-11-7

dimActionID

ActionID=1'0注销,1关机,2重启,

ActionTime="2005-11-713:42:30"'关机或重启时间

functionShutDown()

dimobjShell

SetobjShell=WScript.CreateObject("Wscript.Shell")

dimApplication

setApplication=CreateObject("Shell.Application.1")

Application.ShutdownWindows()

dimupi

forupi=0to4

WScript.Sleep(50)

objShell.sendKeys("{UP}")

next

Forupi=1toActionID

WScript.Sleep(50)

objShell.sendKeys("{DOWN}")

next

'使用时,请把下行的注释符去掉

'objShell.sendKeys("{ENTER}")

endfunction

Whiletrue

ifDateDiff("s",Now,ActionTime)<0then

ShutDown()

endif

WScript.Sleep(5*1000)

wend

【vbs实现的定时关机、重启的脚本和程序】相关文章:

用vbs实现随机读取文件的一行内容的脚本

vbs实现压缩文件夹的脚本

当某IP 连接我机器的3389端口 报警的脚本

iisweb.vbs iis网站管理脚本使用介绍

用vbs实现获取电脑硬件信息的脚本_最新版第1/4页

vbs AD日志开启脚本nableKerbLog的脚本

用vbs实现的确定共享文件夹的本地路径?

用vbs实现本地连接禁用/启用脚本代码

用vbscript实现在文本文件中搜索两个项

VBS取QQ或TM自动登录代码并防止关闭的脚本

精品推荐
分类导航