vbs实现的定时关机、重启的脚本和程序
更新时间：2008年06月18日 12:13:20 作者：
用vbs实现的定时关机重启的脚本，没想到haiwa2005年就写了这个东西，原理就是调用了shutdown和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
键选择以命令提示打开,如果到了你设置重启的时候，系统会出现关机的对话
框。
直接下面代码程序会出现关机的对话框，最后的回车注释掉了，正常使用
时，请去掉注释符。
以下代码在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
相关文章
以前有介绍如何使用命令行调用系统的关机对话框rundll32.exe shell32.dll #60,但是，上述方法会存在一问题，XP下无法正常使用该方法进行关机2012-05-05
本脚本用于修复Windows XP中当最小化程序时，无法在任务栏显示图标的问题2009-05-05
tel.xls.vbs xls专杀工具...2007-06-06
利用正则判别素数，来源于网络，神人,喜欢vbs的朋友可以参考下2013-07-07
抖音vbs表白代码大全 抖音vbscript表白代码使用方法
抖音vbs表白代码大全分享，最近很多小伙伴都在抖音上看到了一个vbs表白代码这个玩法，感觉非常的有趣。不过不少玩家还不知道怎么弄的，下面就来一起看下制作方法吧2018-07-07
用vbs实现解除注册表CMD、Regedit、Taskmgr限制的脚本代码
vbs解除CMD、Regedit、Taskmgr限制的代码2008-06-06
在昨天的《使用正确版本的XMLHTTP》中卖了个关子，ServerXMLHTTP的功能比XMLHTTP强大，你现在大概已经猜到了吧。没错，用ServerXMLHTTP可以在HTTP请求头中加入Cookie，而XMLHTTP不可以2013-01-01
VBS教程：函数-FormatNumber 函数...2006-11-11
RCLS.vbs使用帮助...2007-02-02
vbscript 调用WebService实现代码，需要的朋友可以参考下。2009-11-11
最新评论