hta實現的定時關機小程序

2020-01-25 19:35:53

字體：大中小

來源：轉載

供稿：網友

這個小程序使用hta寫的，用了vbscript代碼實現，喜歡的朋友可以測試下

定時關機小程序

界面：

實現代碼：

復制代碼代碼如下:

		
		<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>