vbscript - vbscript - 如何使用vb脚本最大化还原或最小化窗口?

我需要能够使separte .vbs文件将(当使用键盘快捷键触发时)将使活动窗口最大化,最小化或者恢复。

时间:

VBScript和Windows Script Host不为最大化/最小化/恢复窗口提供内部函数,在没有任何第三方工具的情况下,你的唯一选择是使用SendKeys模拟窗口菜单系统中相应命令的快捷键。

  • 要最大化活动窗口,可以模拟Alt SpaceBar,x快捷键:

    
    Set oShell = CreateObject("WScript.Shell")
    
    
    oShell.SendKeys"% x"
    
    
    
    
  • 要最小化活动窗口,请使用Alt+SpaceBar,n:

    
    Set oShell = CreateObject("WScript.Shell")
    
    
    oShell.SendKeys"% n"
    
    
    
    
  • 若要还原活动窗口,请使用Alt+SpaceBar,r:

    
    Set oShell = CreateObject("WScript.Shell")
    
    
    oShell.SendKeys"% r"
    
    
    
    

(请注意,此代码不适用于非英语Windows版本,其中最大化/最小化/恢复命令的名称已本地化,因此有其他快捷方式。),

要最大化任何窗口,下面的代码将工作:


Application.SendKeys"%{ }"


Application.Wait (Now + TimeValue("00:00:02"))


Application.SendKeys"x"



...