一、Natalia.bat

双击这个文件可以运行Natalia

控制台在打开后会变成最小化,标题为PowerAssistant,黑色背景淡绿色文字

运行脚本Natalia.vbs

 @ECHO OFF 

 REM 脚本最小化运行.
IF "%1" == "m" GOTO BEGIN
MSHTA VBScript:CreateObject("WSCript.Shell").Run("%~fs0 m",)(Window.Close)&&EXIT
:BEGIN REM 注释最后一定要跟一个解释器可识别半角字符,否则脚本会运行错误.
REM 设置命令行标题.
TITLE PowerAssistant REM 设置命令行颜色.
REM 前景色(0=黑,1=蓝,2=绿,3=浅绿,4=红,5=紫,6=黄,7=白,8=灰,9=淡蓝).
REM 背景色(A=淡绿,B=淡浅绿,C=淡红,D=淡紫,E=淡黄,F=亮白).
COLOR 0A REM 调用倒计时脚本.
CSCRIPT Natalia.vbs //NOLOGO PAUSE

二、Natalia.vbs

在最上面的“定义常量部分”,可以设置预计关机的时间

 Option Explicit

 '定义常量
Const ObjHour = '时 0-23
Const ObjMinute = '分 0-59
Const ObjSecond = '秒 0-59 '检查输入是否合法
Dim IsInputLegal
IsInputLegal = True
If ObjHour < Or ObjHour > Then
IsInputLegal = False
End If
If ObjMinute < Or ObjMinute > Then
IsInputLegal = False
End If
If ObjSecond < Or ObjSecond > Then
IsInputLegal = False
End If
If IsInputLegal = False Then
WScript.Echo "输入非法 时区间:[0-23] 分区间:[0,59] 秒区间:[0,59]"
WScript.Quit
End If '定义变量
Dim ObjTime '目标时间
Dim CurTime '当前时间
Dim CurHour '当前时
Dim CurMinute '当前分
Dim CurSecond '当前秒 ObjTime = "目标时间:" & ObjHour & "时 " & ObjMinute & "分 " & ObjSecond & "秒" Dim IsTimeOut
IsTimeOut = False '时间到则终止循环
Do Until IsTimeOut = True CurHour = Hour(Now)
CurMinute = Minute(Now)
CurSecond = Second(Now) CurTime = "当前时间:" & CurHour & "时 " & CurMinute & "分 " & CurSecond & "秒"
WScript.Echo ObjTime & " | " & CurTime If (CurHour = objHour And CurMinute = objMinute And CurSecond = objSecond) Or _
(Hour(Now) = objHour And Minute(Now) = objMinute And Second(Now) = objSecond+) Then
IsTimeOut = True
End If WScript.Sleep() Loop WScript.CreateObject("wscript.shell").Run "shutdown -s -t 300",
WScript.Echo vbCrlf
WScript.Echo "收拾收拾准备睡觉啦!5分钟后我会把你的电脑关掉哦~~~"
WScript.Echo "在控制台输入命令 shutdown -a 可以取消关机计划"
WScript.Echo vbCrlf

三、运行效果

[VBS脚本]定时提示并关闭计算机的更多相关文章

  1. Vbs脚本经典教材(转)

    Vbs脚本经典教材(最全的资料还是MSDN) —为什么要使用Vbs? 在Windows中,学习计算机操作也许很简单,但是很多计算机工作是重复性劳动,例如你每周也许需要对一些计算机文件进行复制.粘贴.改 ...

  2. Vbs 脚本编程简明教程之一

    —为什么要使用 Vbs ? 在 Windows 中,学习计算机操作也许很简单,但是很多计算机工作是重复性劳动,例如你每周也许需要对一些计算机文件进行复制.粘贴.改名.删除,也许你每天启动 计算机第一件 ...

  3. Vbs脚本经典教材

    转载:http://www.cnblogs.com/BeyondTechnology/archive/2011/01/10/1932440.html Vbs脚本经典教材(最全的资料还是MSDN) —为 ...

  4. XP、Windows7下自动关机vbs脚本,使用windows计划任务+vbs脚本在XP、Windows7下实现定时自动关机

    VBScript(Microsoft Visual Basic Script Edition).,微软公司可视化BASIC脚本版). 正如其字面所透露的信息, VBS(VBScript的进一步简写)是 ...

  5. vbs脚本实现qq定时发消息(初级)

    vbs脚本实现QQ消息定时发送 目标 批处理又称为批处理脚本,强大的强大功能可以高效得实现很多功能,例如批量更改文件格式,批量进行文件读写,今天我们的目标是用vbs脚本编写可以发送qq消息的脚本,并利 ...

  6. VBS脚本随笔

    1.定时运行程序与关闭程序的VBS处理方法: do set ws=createobject("wscript.shell") ws.run"你要运行的程序的路径(比如说d ...

  7. 工控随笔_11_西门子_WinCC的VBS脚本_02_运算符

    VBS脚本做为编程语言,提供了很多的运算符,通过这些运算符,可以实现不同的操作.运算符具有不同的类型 不同的运算符之间具有运算优先级. 一.运算符的分类 大体分为以下几类: 1.赋值运算符 2.算术运 ...

  8. Windows系统使用vbs脚本或bat脚本强制杀死指定所有进程 vbs实现循环持续写入内容到vbs打开开的记事本 使用vbs、bat添加windows计划任务 使用cmd schtasks命令添加windows计划任务

    以下脚本windows7下成功运行过,脚本也可以windows计划任务程序一起组合使用 新建一个记事本文档粘贴下面代码后将新建的记事本文档重命名下面对应的脚本名就能使用了: 添加windows计划任务 ...

  9. 几个简单的VBS脚本程序以及其JS实现

    1 语音发声脚本,调用sapi.spvoice读英语hh  保存为say.vbs,点击打开就可以念诗: set objTTS = CreateObject("sapi.spvoice&quo ...

随机推荐

  1. 算法库:boost安装配置

    前提是电脑上已经装有VS. 1. 下载boost_1_60_0.zip并解压到所需位置 2. 双击bootstrap.bat生成b2.exe(新版)和bjam.exe(老版) 3. 双击b2.exe或 ...

  2. sp_help 快速查看表结构、视图信息

    sp_helptext: 是MS SQL Server的一个系统存储过程,可以通过它来查看存储过程或者视图.函数源码 示例:sp_helptext viewName (viewName  即要查询的存 ...

  3. poj 2513 Colored Sticks trie树+欧拉图+并查集

    点击打开链接 Colored Sticks Time Limit: 5000MS   Memory Limit: 128000K Total Submissions: 27955   Accepted ...

  4. XE6移动开发环境搭建之IOS篇(9):配置XE6的IOS SDK(有图有真相)

    网上能找到的关于Delphi XE系列的移动开发环境的相关文章甚少,本文尽量以详细的图文内容.傻瓜式的表达来告诉你想要的答案. 原创作品,请尊重作者劳动成果,转载请注明出处!!! 1.开启PAServ ...

  5. ctags+cscope

    a opensource study website http://www.lanedo.com/2013/the-hidden-pearls-of-tracker-2/ http://www.lan ...

  6. 验证码I

    package com.ah.testjava.validatecode; import java.awt.Color; import java.awt.Font; import java.awt.G ...

  7. python3实现简单爬虫功能

    本文参考虫师python2实现简单爬虫功能,并增加自己的感悟. #coding=utf-8 import re import urllib.request def getHtml(url): page ...

  8. Jquery异步上传图片

    网页中这样: <!DOCTYPE html><html xmlns="http://www.w3.org/1999/xhtml"><head id=& ...

  9. mongodb转换List实体(去掉多余的字段) 批量添加

    Gson gson = new Gson(); String str = "list集合json字符串"; JsonObject object = gson.fromJson(st ...

  10. RAD 版本迁移工具,不怕升级麻烦了。

    RAD 版本迁移工具,不怕升级麻烦了. http://community.embarcadero.com/blogs?view=entry&id=8865 migrationtool.exe ...