小编Ada*_*ner的帖子

使用 VBScript 捕获 HTA 窗口关闭事件

我一直在尝试使用 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)

html vbscript hta

3
推荐指数
1
解决办法
2037
查看次数

标签 统计

hta ×1

html ×1

vbscript ×1