Timed shutdown applet implemented by hta

Author：Eve Cole Update Time：2025-04-06 17:16:01

定时关机小程序

界面：

实现代码：

代码如下:

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

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

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>