hta实现的定时关机小程序

定时关机小程序

界面：

实现代码：

代码如下:

<head>
<title>定时关机小程序</title>
<HTA:APPLICATION
     APPLICATIONNAME="HTA Test"
  Borde="thin"
  BorderStyle="raised"
  ICON="C:\WINDOWS\SYSTEM32\control.exe"
     SCROLL="no"
     SINGLEINSTANCE="yes"
  MaximizeButton="no"
  MinimizeButton="no"
     WINDOWSTATE="normal"
>
</head>
<script language="VBScript">
 Sub Window_onLoad
  strComputer = "."
  Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
  Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor")
  For Each objItem in colItems
   intHorizontal = objItem.ScreenWidth
   intVertical = objItem.ScreenHeight
  Next
  intLeft = (intHorizontal - 240) / 2
  intTop = (intVertical - 500) / 2
  window.resizeTo 240,500
  window.moveTo intLeft, intTop
 End Sub
    Sub OneSub
  set objectShell=CreateObject("wscript.shell")
  iReturn = objectShell.Run("shutdown -s -f -t 1800", 0, TRUE)
    End Sub

Sub TwoSub
  set objectShell=CreateObject("wscript.shell")
  iReturn = objectShell.Run("shutdown -s -f -t 2700", 0, TRUE)
    End Sub

Sub ThrSub
  set objectShell=CreateObject("wscript.shell")
  iReturn = objectShell.Run("shutdown -s -f -t 3600", 0, TRUE)
    End Sub

Sub OK
  If IsNumeric(Text.Value) Then
   OverTime = Text.Value * 60
   set objectShell=CreateObject("wscript.shell")
   iReturn = objectShell.Run("shutdown -s -f -t " & OverTime, 0, TRUE)
  Else
   MsgBox "请输入一个有效的数字。"
  End If
    End Sub

Sub ShutDown
  set objectShell=CreateObject("wscript.shell")
  iReturn = objectShell.Run("shutdown -s -t 0", 0, TRUE)
    End Sub

Sub EShutDown
  set objectShell=CreateObject("wscript.shell")
  iReturn = objectShell.Run("shutdown -a", 0, TRUE)
    End Sub

</script>
<body>
<br>
<center><div><input type="button" style="height:30px;line-height:20px;border:1px solid #aaa;" value="30 分钟后关闭计算机" name="run_button" onClick="OneSub"><p> </div></center>
<center><div><input type="button" style="height:30px;line-height:20px;border:1px solid #aaa;" value="45 分钟后关闭计算机" name="run_button" onClick="TwoSub"><p> </div></center>
<center><div><input type="button" style="height:30px;line-height:20px;border:1px solid #aaa;" value="60 分钟后关闭计算机" name="run_button" onClick="ThrSub"><p> </div></center>
<br>
 自定义时间（分钟）：<p>
 <input type="text" name="text" id="text" style="height:23px;width:120px;line-height:20px;border:1px solid #aaa;"/> 
<input name="Submit" TYPE="Submit" style="width:50px;height:23px;line-height:20px;border:1px solid #aaa;" value="确定" onClick="OK"><p>
<br>
<center><div><input type="button" style="height:30px;line-height:20px;border:1px solid #aaa;" value="取消计划中的注销" name="run_button"  onClick="EShutDown"><p> </div></center>
<center><div><input type="button" style="height:30px;line-height:20px;border:1px solid #aaa;" value=" 关闭计算机 " name="run_button"  onClick="ShutDown"><p> </div></center>
<br>
<center><div><a href="http://www.enun.net/">http://www.enun.net/</a></div></center>
</body>

打包下载：dsgj_jb51.rar

赞 (0)

相关推荐

  • hta实现的定时关机小程序

    hta实现的定时关机小程序

    定时关机小程序 界面: 实现代码: 复制代码 代码如下: <head><title>定时关机小程序</title><HTA:APPLICATION      APPLICATIONNAME="HTA Test"  Borde="thin"  BorderStyle="raised"  ICON="C:\WINDOWS\SYSTEM32\control.exe"      SCROLL=

  • 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

  • C语言实现关机小程序

    本文实例为大家分享了C语言实现关机小程序,立即关机和定时关机的具体代码,供大家参考,具体内容如下 #define _CRT_SECURE_NO_WARNINGS #include<stdio.h> #include<stdlib.h> #include<windows.h> int main() { printf(" ===================\n");//菜单界面 printf(" 1.立刻关机\n"); print

  • C#关机小程序源码

    C#关机小程序源码

    下面是运行的效果图 核心代码: 复制代码 代码如下: using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; /* * * 整理:张晓天 * Q Q:977602650 * 日期:2012

  • 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

  • 用hta做的好玩的小程序(固定在桌面)

    大家好,开始了啊．先在桌面上建个文本文挡将下面的程序复制进去 复制代码 代码如下: <html><head><title>测试 o(∩_∩)o...哈哈</title><!--这里是标题--><hta:application sysmenu=no scroll=no border=none><script language="vbscript">sub sub1me.closeend subme.res

  • 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语言关机程序")

  • hta文件介绍(编写小程序的好东东)

    总是想用script语言编写一些小程序,以前总是写成html格式的,可每次打开都会有安全提示,今天突然发现了如果保存成hta格式的文件,效果大不一样. 嘿嘿.. HTA是HTML Application的缩写(HTML应用程序),是软件开发的新概念,直接将HTML保存成HTA的格式,就是一个独立的应用软件,与VB.C++等程序语言所设计的软件没什么差别. 下面是一个HTA的例子: 复制代码 代码如下: <!-example1.hta--><html><head><

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

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

随机推荐