定时关机小程序界面：
实现代码：
复制代码 代码如下:<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_onLoadstrComputer = \”.\”Set objWMIService = GetObject(\”winmgmts:\\\\\” & strComputer & \”\\root\\cimv2\”)Set colItems = objWMIService.ExecQuery(\”Select * From Win32_DesktopMonitor\”)For Each objItem in colItemsintHorizontal = objItem.ScreenWidthintVertical = objItem.ScreenHeightNextintLeft = (intHorizontal – 240) / 2intTop = (intVertical – 500) / 2window.resizeTo 240,500window.moveTo intLeft, intTopEnd Sub Sub OneSubset objectShell=CreateObject(\”wscript.shell\”)iReturn = objectShell.Run(\”shutdown -s -f -t 1800\”, 0, TRUE) End Sub Sub TwoSubset objectShell=CreateObject(\”wscript.shell\”)iReturn = objectShell.Run(\”shutdown -s -f -t 2700\”, 0, TRUE) End Sub Sub ThrSubset objectShell=CreateObject(\”wscript.shell\”)iReturn = objectShell.Run(\”shutdown -s -f -t 3600\”, 0, TRUE) End SubSub OKIf IsNumeric(Text.Value) ThenOverTime = Text.Value * 60set objectShell=CreateObject(\”wscript.shell\”)iReturn = objectShell.Run(\”shutdown -s -f -t \” & OverTime, 0, TRUE)ElseMsgBox \”请输入一个有效的数字。\”End If End Sub Sub ShutDownset objectShell=CreateObject(\”wscript.shell\”)iReturn = objectShell.Run(\”shutdown -s -t 0\”, 0, TRUE) End Sub Sub EShutDownset 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>打包下载：dsgj_jb51.rar
