繁體中文当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > 自己写的一个定时关机或重启的vbs脚本
- VBScript
- 用vbs脚本来关闭 HTML 页面的代码
- 用vbs实现确定是否安装了某个特定的补丁
- 用vbs确定用户的登录名的代码
- 用vbs找到映射到共享的所有驱动器并重新映射它们
- 可以从一台远程服务器运行 SP2 安装程序Install.vbs
- 用vbs判断一个日期是否在指定的时段内
- vbs+hta中实现在单个 onClick 参数中包括多个子例程的代码
- vbs中实现启动两个应用程序，一直等到其中一个程序结束，然后关闭另一个？
- 用vbs实现对文本文件中的项计数
- 用vbs对文本文件的内容进行排序
- 用vbscript把 Word 文档保存为文本文件的代码
- 用vbs返回 Internet Explorer 的下载控件和 Applet 的列表
- 用vbscript合并多个文本文件的代码
- 用vbscript防止本地用户更改其密码
- 用vbs针对一个 IP 地址范围运行脚本
- 用vbs 实现从剪贴板中抓取一个 URL 然后在浏览器中打开该 Web 站点
- 使用vbscript脚本在表单中进行选择的代码
- 一个把任何文件转成批处理的vbs脚本Any2Bat.vbs
- windows脚本调试howto的方法
- 注册表的禁用与解锁方法集合
VBScript 中的 自己写的一个定时关机或重启的vbs脚本
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-11 浏览: 60 ::
收藏到网摘: n/a
dim ActionID
ActionID = 1 '0注销，1关机，2重启,
ActionTime = "2006-1-4 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
'将上面代码存为vbs文件，如：shutdown.vbs，然后双击或在文件上点右键选择以命令提示打开,
'如果到了你设置重启的时候，系统会出现关机的对话框。
'直接下面代码程序会出现关机的对话框，最后的回车注释掉了，正常使用时，请去掉注释符。
评论 (0) All
