深圳拉丁舞培训班价格:'定时关机或重启的脚本，在windows 2000下通过

来源：百度文库编辑：神马品牌网时间：2024/04/27 06:11:30

'定时关机或重启的脚本，在windows 2000下通过
' http://www.51windows.net
' code by haiwa 2005-11-7
dim ActionID
ActionID = 0 '0注销，1关机，2重启,
ActionTime = "2006-2-13 11:30:00" '注销

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
怎么实现它的作用?

1 将如上的代码在VB中编译生成可执行文件

2 可执行文件就随便可以运行了。。

'定时关机或重启的脚本，在windows 2000下通过不定时直接重起或关机关机或重启的问题！请教~~~~~~~~~~~~ 如何在桌面建立一个快捷方式关机或重启我家的电脑在强制重启或关机（玩游戏时有时死机）后 WIN2000装完以后为什么会不定时的死机或自动重启 win下如何定时关机并留下相关的警告(warn) 我的机子总会不定时重启，控制另一台电脑的重启或关机定时重启