自动关机的小VBS程序

转载 2006年05月24日 11:35:00

<script language="vbs">
Option Explicit
Dim ws, Title, ErrMsg
Set ws = CreateObject("Wscript.Shell")
Title = "Windows Shutdown Timer"
Dim oWMI, oOS, obj

On Error Resume Next
Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}!//./root/cimv2")
If Err Then
  MsgBox "Your computer does not seem to have WMI installed", , Title
  Call Cleanup
End If
On Error GoTo 0
For Each obj in oWMI.ExecQuery("Select * from Win32_OperatingSystem")
  Set oOS = obj
  Exit For
Next

WScript.Sleep SetTimer()

ShutDownNow

Function SetTimer()
  Dim MinSpec
  MinSpec = InputBox(ErrMsg & vbcrlf & "Enter number of minutes until " & _
                     "Shutdown.  You will have an option to cancel " & _
                     "shutdown for 1 minute before time elapses.",Title)
  If MinSpec = "" Then
    Cleanup
  ElseIf Not IsNumeric(MinSpec) Then
    ErrMsg = "Invalid Selection!" & vbcrlf & vbcrlf
    SetTimer()
  ElseIf MinSpec < 1 Then
    ErrMsg = "Invalid Selection!" & vbcrlf & vbcrlf
    SetTimer()
  Else
    If MinSpec > 1 Then
      SetTimer = (MinSpec - 1) * 1000 * 60
    Else
      SetTimer = MinSpec * 1000 * 60
    End If
  End If
End Function

Sub ShutDownNow()
  Const EWX_LOGOFF = 0
  Const EWX_SHUTDOWN = 1
  Const EWX_REBOOT = 2
  Const EWX_FORCE = 4
  Const EWX_POWEROFF = 8
  oOS.Win32shutdown EWX_SHUTDOWN '+ EWX_FORCE
End Sub

Sub Cleanup
  Set ws = Nothing
  WScript.Quit
End Sub
</script>

 

原帖:http://www.2yup.com/asp/forum/branch.asp?pid=115548

 

Vbs 实现自动关机

代码如下: Dim WshShell Set WshShell = WScript.CreateObject("WScript.Shell") WScript.Sleep 2000 'will b...
  • erix1991
  • erix1991
  • 2013年12月17日 14:20
  • 713

python定时关机小程序

程序: import os, time; rh = int(time.strftime("%H", time.localtime())) rm = int(time.strftime("%M", t...
  • tigerking1017
  • tigerking1017
  • 2016年06月14日 11:10
  • 388

C语言的自动关机程序和一个用来整人的小程序

可以用C语言中的system()函数来实现系统的自动关机程序,可以设置多长时间后将自动关机。当然马上关机也是可以的,我们就可以恶搞别人计算机了(你事先得知道怎么解),将写好的自动关机程序复制到别人电脑...
  • bizer_csdn
  • bizer_csdn
  • 2014年11月30日 10:22
  • 4589

利用python实现电脑自动关机

0、前言在以前读书的时候,实验室里面要求每天都要关电脑,有时候出去玩得晚了,懒得回实验室关电脑,又没有同学帮忙。于是就想,能不能通过什么手段实现远程关闭电脑。在网上搜索一番后,决定用 python +...
  • u013308140
  • u013308140
  • 2017年05月30日 18:53
  • 196

Java实现《简单自动关机助手》

一、程序说明 在实际生活场景中,经常遇到需要电脑自动关机的时候,从网上下载的关机小助手有的好用,但有的不行,而且通常带有广告。其实实现自动关机并不能难,因为可以直接使用cmd命令 “shutdown ...
  • hao5743
  • hao5743
  • 2014年12月10日 13:29
  • 3247

用C++编写自动关机程序

从internet下载较大的软件时,由于目前网络带宽的原因,许多人喜欢在晚间进行,而到深夜时就存在人需要休息的问题。目前绝大多数下载软件可以估算出下载所需的时间,如果到时让计算机自动关机,就可以免受守...
  • wysjsj
  • wysjsj
  • 2010年10月30日 22:56
  • 887

用vbs编写自动关机程序

Steps:1.新建txt文档2.下面的内容复制到txt文档中间,3.将txt文档的后缀改为vbs ==================================================...
  • seventwelve
  • seventwelve
  • 2011年06月12日 06:32
  • 1363

vbs简单好玩的代码段

目录: 1.让电脑说话(讲英文的) 代码: 1.说话 createobject("sapi.spvoice").speak"Hello,I am computer speaker, now I wil...
  • u014286164
  • u014286164
  • 2015年09月11日 11:14
  • 640

关于自动关机的程序设计(MFC/VC)

自动关机,对于某些时候有一定的实用性。运用API实现这一功能其实很简单,再结合托盘显示、托盘鼠标响应、动态菜单等,编制出一个简单的自动关机的程序!1、自动关机的APi函数HANDLE hToken;T...
  • zcj331
  • zcj331
  • 2014年04月11日 13:25
  • 606

用C写一个自动关机程序

最近因为忙!!经常外出工作!有时晚上赶不回公司,所以就在网上下了个自动关机程序!!不过自己一直想自己写个!!但还不会调用API所以就想用C写了个!!以后会用API写的的!虽然没技术含量,但必竟是自己写...
  • amw895
  • amw895
  • 2008年03月19日 12:23
  • 907
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:自动关机的小VBS程序
举报原因:
原因补充:

(最多只允许输入30个字)