文章摘要
这篇文章介绍了名为“HTA Test”的一个VBScript小程序，用于定时关机。该程序通过Win32_desktopMonitor定位桌面，并使用wscript.shell执行关机命令。支持30分钟、5小时和12小时的关机时间设置，以及自定义时间输入（以分钟为单位）。程序包含错误处理功能，提示用户输入有效数字。整体上，该小程序提供了一种简便的定时关机解决方案。
APPLICATIONNAME=”HTA Test”
Borde=”thin”
BorderStyle=”raised”
ICON=”C:\WINDOWS\SYSTEM32\control.exe”
SCROLL=”no”
SINGLEINSTANCE=”yes”
MaximizeButton=”no”
MinimizeButton=”no”
WINDOWSTATE=”normal”
>
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
自定义时间（分钟）：
© 版权声明
文章版权归作者所有，未经允许请勿转载。
相关文章
