<del id="7msxa"><table id="7msxa"><strong id="7msxa"></strong></table></del><legend id="7msxa"></legend>

<tbody id="7msxa"></tbody>
  • <ol id="7msxa"></ol><th id="7msxa"><track id="7msxa"><rt id="7msxa"></rt></track></th>
    1. <dd id="7msxa"></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

      發表評論 共有條評論
      用戶名: 密碼:
      驗證碼: 匿名發表
      japan日本人妻熟老太
      <del id="7msxa"><table id="7msxa"><strong id="7msxa"></strong></table></del><legend id="7msxa"></legend>

      <tbody id="7msxa"></tbody>
    3. <ol id="7msxa"></ol><th id="7msxa"><track id="7msxa"><rt id="7msxa"></rt></track></th>
      1. <dd id="7msxa"></dd>