powershell - Windows 11 级联 Windows : possible with e. g。 AutoHotkey，不适用于 VBScript 或 PowerShell

Question

在 Windows 10 中，我能够通过简单的 .vbs 脚本使用“Cascade Windows”:

set objShell = CreateObject("shell.application")
call objShell.CascadeWindows()

PowerShell 也可以做到这一点:

$ShellExp = New-Object -ComObject Shell.Application
$ShellExp.CascadeWindows()

但是，在 Windows 11 中，这不再可能。不过，该方法存在于 Windows 11 中。发出以下 PowerShell 命令:

New-Object -ComObject "Shell.Application" | gm | select Name, MemberType

并使用例如AutoHotkey，我可以使用以下脚本/命令“级联 Windows”:

DllCall( "CascadeWindows", uInt,0, Int,4, Int,0, Int,0, Int,0 )

有没有办法使用 VBScript 或 PowerShell 恢复正常运行的“级联 Windows”操作？

Answer 1

Powershell(带有嵌入式 C#):

$code = @"
using System;
using System.Runtime.InteropServices;

namespace Utils
{
    public class CascadeWindowsApi
    {
        [DllImport("user32.dll")]
        static extern ushort CascadeWindows(IntPtr hwndParent, uint wHow,
        IntPtr lpRect, uint cKids, IntPtr[] lpKids);

        public static void Cascade()
        {
            CascadeWindows(IntPtr.Zero, 4, IntPtr.Zero, 0, null);
        }    
    }
}
"@

Add-Type -TypeDefinition $code -Language CSharp 
iex "[Utils.CascadeWindowsApi]::Cascade()"

适用于 Windows 11。