<em id="kkln5"><ruby id="kkln5"><u id="kkln5"></u></ruby></em>
<rp id="kkln5"></rp>

    <s id="kkln5"><object id="kkln5"></object></s>
  1. <dd id="kkln5"><pre id="kkln5"></pre></dd>
  2. 首頁 > 編程 > HTA > 正文

    hta實現的定時關機小程序

    2020-01-31 15:41:59
    字體:
    來源:轉載
    供稿:網友

    定時關機小程序

    界面:



    實現代碼:

    復制代碼 代碼如下:

    <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 >http://www.enun.net/</a></div></center>
    </body>


    打包下載:dsgj_jb51.rar

    發表評論 共有條評論
    用戶名: 密碼:
    驗證碼: 匿名發表
    <em id="kkln5"><ruby id="kkln5"><u id="kkln5"></u></ruby></em>
    <rp id="kkln5"></rp>

      <s id="kkln5"><object id="kkln5"></object></s>
    1. <dd id="kkln5"><pre id="kkln5"></pre></dd>