我一直在尝试使用 hta 作为熟悉 HTML 的一种方式。我添加了代码以在 hta 窗口打开时最小化所有窗口,但我无法弄清楚如何在 hta 关闭时恢复所有窗口。有什么建议?(这里的大部分代码来自我在 hta 上阅读的页面)
<html>
<head>
<title>processes</title>
<HTA:APPLICATION
APPLICATIONNAME="processes"
ID="processes"
VERSION="1.0"/>
</head>
<script language="VBScript">
Sub Window_OnLoad
Set objShell = CreateObject("shell.application")
objShell.ToggleDesktop
Dim width,height
width=600
height=800
Set oShell = CreateObject("wscript.shell")
oShell.SendKeys "% r"
self.ResizeTo width,height
self.MoveTo (screen.AvailWidth-width)/2,(screen.AvailHeight-height)/2
End Sub
Sub GetProcesses
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process")
For Each objProcess in colProcesses
strHTML = strHTML & objProcess.Name & " -- " & …Run Code Online (Sandbox Code Playgroud)