自己写的一个定时关机或重启的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("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)

相关推荐

  • 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实现的定时关机、重启的脚本和程序

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

  • 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

  • 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中获取系统本次及上次开关机时间的代码(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

  • 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关机恶搞小程序

    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脚本

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

  • 自己写的一个定时关机或重启的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

  • Python写的一个定时重跑获取数据库数据

    Python写的一个定时重跑获取数据库数据

    做大数据的童鞋经常会写定时任务跑数据,由于任务之间的依赖(一般都是下游依赖上游的数据产出),所以经常会导致数据获取失败,因为很多人发现数据失败后 都会去查看日志,然后手动去执行自己的任务.下面我实现了一个自动重复执行去数据库取数,如果失败后自动重新去获取,直到把数据获取到. 建数据表: CREATE TABLE `testtable` ( 2 `id` int(11) unsigned NOT NULL AUTO_INCREMENT, 3 `name` varchar(20) NOT NULL,

  • 一个查看局域网在线IP的vbs脚本

    复制代码 代码如下: strSubNet = "192.168.1." Set objFSO= CreateObject("Scripting.FileSystemObject") Set objTS = objfso.CreateTextFile("e:\PingResult.txt") For i = 1 To 254 strComputer = strSubNet & i blnResult = Ping(strComputer)

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

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

  • C语言编写简单的定时关机程序

    写一个定时关机的小程序,可以立即关闭计算机,也可以一段时间后关闭计算机. 这里主要考察system()命令. 代码实现: #include<stdio.h> #include<string.h> #include<stdlib.h> int main() { char cmd[20]="shutdown -s -t "; char t[5]="0"; int c; system("title C语言关机程序")

  • Android实现关机与重启的几种方式(推荐)

    下面我们来探究Android如何实现关机,重启:在Android中这种操作往往需要管理员级别,或者root Android实现的方式如下几种: 默认的SDK并没有提供应用开发者直接的Android系统关机或重启的API接口,一般来讲,实现Android系统的关机或重启,需要较高的权限(系统权限甚至Root权限).所以,在一般的APP中,如果想要实现关机或重启功能,要么是在App中声明系统权限,要么是通过某种"间接"的方式,比如广播或反射,来间接实现系统关机或重启.再者,就是放在源码环境

  • Jar包一键重启的Shell脚本及新服务器部署的一些经验分享

    前言 最近公司为客户重新部署了一套新环境,由我来完成了基础环境的配置,配置过程中总结了一些经验,分享给各位园友 使用 curl 命令检查网络 拿到新服务器后,首先检查服务器网络是否通畅.我们常用的 ping 命令使用的是 ICMP 协议,大部分服务器都设置了域名出入站规则,即使某些地址可以 ping 通,也存在服务器无法访问的情况.这时可以使用 curl host:port 命令来测试该服务器能否正常发送 http 请求到外部服务器 安装 JDK 新服务器一般没有 JDK ,可以使用 java

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

    复制代码 代码如下: @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写一个定时提醒程序的实现代码

    身体是革命的本钱,身体健康了我们才有更多精力做自己想做的事情,追求女神,追求梦想.然而程序员是一个苦比的职业,大部分时间都对着电脑,我现在颈椎就不好了,有时候眼睛还疼,我还没20阿,伤心...于是乎写了一个小程序,指定时间会打开浏览器播放一段音乐,提醒我们休息一会儿,防止我们猝死,说多了都是泪. 较基础,适合python新手及对python感兴趣的同学阅读. 我们来理一遍这个程序,大概功能是:我们设置一个时间,时间到了以后会打开浏览器播放一段音频. 1.等待 2.打开浏览器,播放音频. 3.重复

随机推荐