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

我一直在玩使用hta作为熟悉HTML的手段。我添加了代码以尽量减少打开hta窗口时的所有窗口，但是我一直无法知道如何在hta关闭时恢复所有窗口。有什么建议么？（这里的大部分代码是从页我正在读上HTA的）使用VBScript捕获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 & " -- " & objProcess.ProcessID & "<br>" 
     Next 

     DataArea.InnerHTML = strHTML 

    End Sub 

</script> 

<body bgcolor="white"> 

<input type="button" value="Processes" name="run_button" onClick="GetProcesses"> 
<span id = "DataArea"></span> 
</body> 
</html>

来源

2016-12-21 Adam Turner

使用window_unload

<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.MinimizeAll 
     Set objShell = Nothing 
     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 Window_onUnload 
     Set objShell = CreateObject("shell.application") 
     objShell.UndoMinimizeALL 
     Set objShell = Nothing 
    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 & " -- " & objProcess.ProcessID & "<br>" 
     Next 

     DataArea.InnerHTML = strHTML 

    End Sub 

    </script> 

    <body bgcolor="white"> 

    <input type="button" value="Processes" name="run_button" onClick="GetProcesses"> 
    <span id = "DataArea"></span> 
    </body> 
    </html>

来源

2016-12-21 18:05:16 Barney

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

回答

相关问题