Vbscript 如何使用vb脚本最大化、还原或最小化窗口？

我需要能够使separte.vbs文件（当用键盘快捷键触发时）使活动窗口最大化、最小化或还原

---

如何在不下载和安装（此处不允许）单独的软件包的情况下执行此操作。

VBScript和Windows脚本主机不提供最大化/最小化/恢复窗口的固有功能。如果没有任何第三方工具，您唯一的选择就是使用键盘模拟窗口系统菜单中相应命令的快捷键

• 要使活动窗口最大化，可以模拟Alt+空格键，x快捷方式：

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

• 要最小化活动窗口，请使用Alt+空格键，n:

• 要恢复活动窗口，请使用Alt+空格键，r:

---

（请注意，此代码在非英语Windows版本中不起作用，其中最大化/最小化/还原命令的名称已本地化，因此具有其他快捷方式。）

SendKeys在我的计算机中不起作用。西班牙语母语，带西班牙语和英语键盘。我这样做了，在我的代码中作为指令工作，并努力最大化我的excel窗口。我把它放在床上，用肉眼检查

objExcel.SendKeys"% x"
objExcel.Visible = True
objExcel.SendKeys"% x"

WScript.Sleep 2000

---

要最大化任何窗口，以下代码将起作用：

Application.SendKeys "%{ }"
Application.Wait (Now + TimeValue("00:00:02"))
Application.SendKeys "x"

---

这个话题很古老。但我设法找到了独立于语言的解决方案SendKeys基本上可以向应用程序发送任何键，包括箭头键和回车键。因此，我们可以在没有特定字母（x，r，n）的情况下模拟这些动作。下面是一个工作示例：

Dim oShell : Set oShell = CreateObject("WScript.Shell")
oShell.SendKeys("% {DOWN}{DOWN}{DOWN}{DOWN}{ENTER}")   'Maximize
'...
oShell.SendKeys("% {ENTER}")   'Restore
'...
oShell.SendKeys("% {DOWN}{DOWN}{DOWN}{ENTER}")   'Minimize

---

在Excel宏中，我可以通过执行快捷键“Alt+Spacebar+x”最大化外部PDF文档

Mote:“%”表示Alt键，“（）”表示空格键，“x”表示最大化键

Application.SendKeys "%+( )+(x)", True

---

我可以让它工作，例如“calc”。但由于某些原因，不能使用“taskmgr”。有什么建议吗？对于特定的应用程序，您必须在输入键之前找到箭头的数量。祝你好运

Dim oShell : Set oShell = CreateObject("WScript.Shell")
oShell.SendKeys("% {DOWN}{DOWN}{DOWN}{DOWN}{ENTER}")   'Maximize
'...
oShell.SendKeys("% {ENTER}")   'Restore
'...
oShell.SendKeys("% {DOWN}{DOWN}{DOWN}{ENTER}")   'Minimize

Application.SendKeys "%+( )+(x)", True