vbs实现的定时关机、重启的脚本和程序


  将下面代码存为vbs文件,如:shutdown.vbs,然后双击或在文件上点右
键选择以命令提示打开,如果到了你设置重启的时候,系统会出现关机的对话
框。

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

  以下代码在window 2000 下通过。

复制代码 代码如下:

'定时关机或重启的脚本,在windows 2000下通过
' code by haiwa 2005-11-7
dim ActionID
ActionID = 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 function

While true
if DateDiff("s", Now, ActionTime) < 0 then
ShutDown()
end if
WScript.Sleep(5*1000)
wend



相关阅读:
ASP实例教程:用户信息和服务器
用js实现的检测浏览器和系统的函数
关于IE6、7、8下实现盒阴影的几个注意点
MYSQL教程:MySQL服务器镜像配置
VBS教程:正则表达式简介 -选择与编组
js 进度条实现代码
MYSQL常用命令与实用技巧
分享关于ASP.NET中等安全模式的一些经验
asp实现的7xi音乐网的采集源代码
RMAN和EXP/IMP转移数据实测
Windows 7 RC版本过期通知的流程
JavaScript中的Function对象
WEB标准教程:功能丰富的段落P标签
php的curl实现get和post
快速导航

Copyright © 2016 phpStudy | 皖ICP备18014864号-4