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>
nbsp;自定義時間（分鐘）：p>
nbsp;input type="text" name="text" id="text" style="height:23px;width:120px;line-height:20px;border:1px solid #aaa;"/>nbsp;
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 >http://www.enun.net//a>/div>/center>
/body>