用PowerShell缩放并保存剪切板图片到文件

; 保存之前确定剪切板中是否有图片（先截图到剪切板）
path := A_desktop "\demo.png"
MsgBox % path
SavePic(path)


; 保存【剪切板】图片到指定位置，当图片width<minW 或者 height<minH时就会缩放图片 ,默认不缩放
SavePic(path, minW:=0, minH:=0, scale:=1, imageType:="Png") {
  try {
    ps1=
    (LTrim ` %
    Add-Type -AssemblyName System.Windows.Forms;
    $image = [System.Windows.Forms.Clipboard]::GetImage();
    $width = $image.Width;
    $height = $image.Height;
    if ($width -lt {2} -or $height -lt {3})
    {$width=$width *{4};
    $height=$height *{4};};
    [System.Drawing.Image+GetThumbnailImageAbort] $callback = { return $false };
    $resizedImage=$image.GetThumbnailImage($width, $height, $callback, [System.IntPtr]::Zero);
    $resizedImage.Save('{1}', [System.Drawing.Imaging.ImageFormat]::{5});
    $resizedImage.Dispose();
    $image.Dispose();
    )
    ps1:=Format(ps1,path,minW,minH,scale,imageType)
    shellExcuter(Format("powershell.exe  -Command ""{1}""",ps1))
  } catch e {
    MsgBox % "执行powershell异常：" e.Message()
    return
  }
  return 1
}


;Func 静默执行cmd命令,返回0 就是成功！
shellExcuter(str) {
  return DllCall("shell32\ShellExecute", "uint", 0, "str","open","str", "cmd","str",Format("/c{1}",str), "uint", 0, "int", 0)
}