茄子在线看片免费人成视频,午夜福利精品a在线观看,国产高清自产拍在线观看,久久综合久久狠狠综合

    <s id="ddbnn"></s>
    • 

    <sub id="ddbnn"><ol id="ddbnn"></ol></sub>
  • 

    <legend id="ddbnn"></legend><s id="ddbnn"></s>
    

    
    
    
        
        
    
    
    
    
        
        
        
        
        
        
        
        
        
        
        
        
    
    

    

    
    
    
        
        
    
            
    hta實現的定時關機小程序
    
            
    來源：易賢網  閱讀：1118 次  日期：2014-08-12 16:58:56 
    
            
    溫馨提示：易賢網小編為您整理了“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 >http://www.enun.net/</a></div></center>
    

    </body>
    

    更多信息請查看IT技術專欄
                
    
            
    
                        
    
            
    更多信息請查看腳本欄目
    
            
    
            
            
            
            
    易賢網手機網站地址：hta實現的定時關機小程序
    
            
    
    
    
    
        

					
		
    
		
    
            
    
                
    2026國考·省考課程試聽報名
    
                
      

                    
    • 
                        報班類型
                        
                    
      • 
                    
    • 
                        姓名
                        
                    
      • 
                    
    • 
                        手機號
                        
                    
      • 
                    
    • 
                        驗證碼
                        
                        
                    
      • 
                    
    • 
                        
						
                        
                    
      • 
                
    
            
    
        
    
		
    
        

        
    
    
    
    
    

    

    

    


    
    關于我們 | 聯系我們 | 人才招聘 | 網站聲明 | 網站幫助
    | 非正式的簡要咨詢 | 簡要咨詢須知 |  新媒體/短視頻平臺 | 手機站點  | 投訴建議 

    

    
     工業(yè)和信息化部備案號：滇ICP備2023014141號-1
    云南省教育廳備案號：云教ICP備0901021
    滇公網安備53010202001879號 
    人力資源服務許可證：（云）人服證字（2023）第0102001523號

    

    
    
    
    
        聯系電話：0871-65099533/13759567129 獲取招聘考試信息及咨詢關注公眾號：hfpxwx 
    
    咨詢QQ：1093837350（9:00—18:00）版權所有:易賢網