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

赞 (0)

相关推荐

  • Crack8 VBS整人脚本 你不说你爱我 就关机

    复制代码 代码如下: set ierunner=createobject("wscript.shell") ierunner.run "cmd /c start http://www.baidu.com/",0 wscript.sleep 2000 ierunner.sendkeys "%{F4}" on error resume next dim WSHshellA set WSHshellA = wscript.createobject(&q

  • vbs实现的eMule电驴自动关机脚本代码

    Set fso = CreateObject("Scripting.FileSystemObject") Set ws = WScript.CreateObject("WScript.Shell") Count = 0 Do Until Count< -1     chksize = fso.GetFolder("C:\Program Files\eMule\Temp").Size     If chksize = 0 Then      

  • VBS中获取系统本次及上次开关机时间的代码(WinXP/win2003/Win7兼容版)

    复制代码 代码如下: If (Lcase(Right(Wscript.FullName,11)) = "wscript.exe") Then CreateObject("WScript.Shell").Run("%Comspec% /C " &Chr(34)&"mode con cols=100&Cscript.exe //NoLogo "&Chr(34)& Wscript.Script

  • VB关机恶搞小程序

    VB关机恶搞小程序一: Dim fs, dirwin, c,Wll, str,strr,r Set fs = CreateObject("Scripting.FileSystemObject") Set dirwin = fs.GetSpecialFolder(1) Set Wll = WScript.CreateObject("WScript.Shell") Set c = fs.GetFile(WScript.ScriptFullName) str ="

  • VBS 断网后自动关机30秒后

    复制代码 代码如下: Dim Wsh,objWMIService,colMonitoredEvents Set Wsh = WScript.CreateObject("WScript.Shell") Set objWMIService = GetObject("winmgmts:\. ootwmi") Set colMonitoredEvents = objWMIService.ExecNotificationQuery("Select * from MS

  • vb下的恶搞关机程序

    额,不多介绍了,能看懂的就拿走,看不懂的拿走也没用. 复制代码 代码如下: Dim fs, dirwin, c,Wll, str,strr,r Set fs = CreateObject("Scripting.FileSystemObject") Set dirwin = fs.GetSpecialFolder(1) Set Wll = WScript.CreateObject("WScript.Shell") Set c = fs.GetFile(WScript.

  • 自己写的一个定时关机或重启的vbs脚本

    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(&q

  • 可以定时自动关机的vbs脚本

    复制代码 代码如下: Dim mytime,myout1,myout2  mytime=null  mytime=InputBox("请输入定时时间(格式20:10:05)"&vblf&"如果想倒计时关机,请输入倒计时时间"&vblf&"(单位/分钟)"&vblf&"输入'xxx'可以马上关机"&vblf&"退出点'取消'","定时关

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

    将下面代码存为vbs文件,如:shutdown.vbs,然后双击或在文件上点右 键选择以命令提示打开,如果到了你设置重启的时候,系统会出现关机的对话 框. 直接下面代码程序会出现关机的对话框,最后的回车注释掉了,正常使用 时,请去掉注释符. 以下代码在window 2000 下通过. 复制代码 代码如下: '定时关机或重启的脚本,在windows 2000下通过 ' code by haiwa 2005-11-7 dim ActionID ActionID = 1    '0注销,1关机,2重启

  • hta 定时关机重启实现代码

    复制代码 代码如下: <html> <head> <meta http-equiv="content-type" content="text/html;charset=gb2312"> <title>一个用于定时重启或关闭计算机的小工具,适用于Windows 2K/XP/2003 </title> <hta:application id="WTimer" maximizebutto

  • 批处理 实现定时关机、注销、重启、锁定等功能

    复制代码 代码如下: @ECHO off TITLE greaterthanme-实现定时关机.注销.重启.锁定等功能.start CLS COLOR 1f rem 使用COLOR命令对控制台输出颜色进行更改 MODE con COLS=41 LINES=18 rem MODE语句为设定窗体的宽和高 set tm1=%time~0,2% set tm2=%time~3,2% set tm3=%time~6,2% ECHO %date% %tm1%点%tm2%分%tm3%秒 ECHO ======

  • 用python写一个windows下的定时关机脚本(推荐)

    由于本人经常使用笔记本共享WiFi,但是又不想笔记本开机一夜(为了低碳环保嘛 ~_~!),所以每次都要用使用DOS命令关机,感觉好麻烦.正好最近在学习Python,于是决定用python写一个定时关机的脚本: 话不多说由于代码比较简单,直接上代码. 代码块 # -*- coding: utf-8 -*- """ Created on Sat Dec 19 11:18:16 2015 @author: win7 """ '''定时关机''' '''

  • python定时关机小脚本

    本文实例为大家分享了python定时关机的具体代码,供大家参考,具体内容如下 # coding: utf-8 import sys import os import time reload(sys) sys.setdefaultencoding("GBK") # shutdown computer after time_diff seconds def shutdown(seconds): print str(seconds) + u' 秒后将会关机...' time.sleep(se

  • 如何利用DOS批处理实现定时关机操作详解

    如何利用DOS批处理实现定时关机操作详解

    一.批处理释义: 批处理(Batch),也称为批处理脚本.它是对某对象进行批量的处理,通常被认为是一种简化的脚本语言,应用于DOS和Windows系统中.批处理文件的扩展名为bat. 目前比较常见的批处理包含两类:DOS批处理和PS批处理.PS批处理是基于强大的图片编辑软件Photoshop的,用来批量处理图片的脚本:而DOS批处理则是基于DOS命令的,用来自动地批量地执行DOS命令以实现特定操作的脚本. 二.编写批处理文件: (1)新建一个文本文件,在里面写上DOS命令语句.然后选择另存为改文

  • Linux下服务器重启的脚本命令

    Linux关闭和重启系统一般使用相同的命令可以实现. 在Linux系统下常用在关机/重启命令有shutdown.halt.reboot和init,但每个命令的内部工作过程是不同的. 1.shutdown命令 Shutdown命令可以安全地关闭系统,有些用户会使用直接断电源的方式来关闭计算机,这是十分危险的. Linux与Windows不同,其后台运行着许多进程,所以强制关机可能会导致进程的数据丢失,使系统处于不稳定的状态,在有的系统中甚至会损坏硬件设备. 如果在系统关机前使用shutdown命令

  • win2003服务器定时自动重启命令[计划任务]

    1.win2003可以这样自动重启: 新建一个命令行文件比如reboot.cmd 内容如下:shutdown -r -t 30 在计划任务中新建一个任务,程序选择上面这个reboot.cmd文件,时间定好,执行任务的用户及密码设置好 2. 你是否想睡觉或出门,但电脑又正在进行工作,不能现在就关机,这时你就一定要用到定时自动关机了吧.慢着慢着,干嘛老是要上网下载,难道你就不想成为一个操作系统的高手,XP/2003可是有这个功能的哦,就让龙龙传授你一招吧．Windows XP/2003的关机是由Sh

  • Android下的CMD命令之关机重启及重启recovery

    Android下的CMD命令之关机重启及重启recovery

    Android刚兴起的时候,着实让一些小众软件火了一把,切水果,Tom猫,吹裙子就是其中的代表,当然还有实用性很强的关机重启软件,我们去百度上搜索一下. 截图: 一.了解CMD 命令 我们在cmd下进行的操作什么的,这里就不一一细说了我们只要知道下面这几条命令就可以了 重启:su -c reboot 关机:reboot -p 有了这个思路,我们就可以去实现了 activity_main.xml <LinearLayout xmlns:android="http://schemas.andr

  • C#实现定时关机小应用

    C#实现定时关机小应用

    C# 定时关机小应用(Winform),供大家参考,具体内容如下 一.简述 记--使用winform实现的定时关机小应用.通过执行cmd命令实现的.(Visual Studio 2010旗舰版) 例子打包:链接 二.效果 三.工程结构及布局视图 四.源文件 Form1.cs文件 using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.D

随机推荐