如何用AppleScript或Accessibility API确保窗口到达目标位置与尺寸？

目标 #

确保应用窗口移动至指定位置与尺寸，且完整显示在屏幕上。

现有问题 #

编写的AppleScript脚本偶尔失效，当前脚本硬编码数值，逻辑为先设置窗口位置和尺寸，再获取最终尺寸；若计算尺寸小于窗口最小尺寸，则使用最小尺寸调整定位。屏幕参数如下：

• 屏幕分辨率：1920×1080
• 菜单栏高度：24
• 程序坞高度：61
• 可见空白区域宽度：1835
  脚本目标是让窗口显示在屏幕下半部分。

原脚本代码：

tell application "System Events"
    tell application process "Craft"
        delay 0.1
        tell window 1 to set position to {1835 / 2, 25}
        tell window 1 to set size to {(1835) / 2, 994}
    end tell
    delay 0.1
    
    set {winWidth, winHeight} to size of the first window of application process "Craft"
    
    tell application process "Craft"
        delay 0.1
        tell window 1 to set position to {1835 - winWidth, 25}
        tell window 1 to set size to {(1835) / 2, 994}
        
    end tell
    delay 0.1
    return winWidth
end tell

脚本失效原因推测：

1. 固定delay时间不足，应用未完成窗口调整就执行后续逻辑
2. 未正确处理窗口最小尺寸限制，设置的尺寸被系统自动修正后，位置计算未同步更新
3. 缺乏验证步骤，无法确认窗口是否真的到达目标状态

核心疑问 #

能否用AppleScript或Accessibility API确认窗口已到达目标位置与尺寸？

解决方案 #

1. 带验证与重试的AppleScript实现 #

通过循环验证+重试逻辑解决应用响应延迟问题，同时提前处理窗口最小尺寸限制，确保设置的参数符合系统规则：

set appName to "Craft"
set screenAvailableWidth to 1835
set targetBaseHeight to 994
set targetY to 25

-- 获取窗口最小尺寸（避免设置的尺寸被系统强制修正）
tell application "System Events"
    tell application process appName
        set minSize to minimum size of window 1
        set minWidth to item 1 of minSize
        set minHeight to item 2 of minSize
    end tell
end tell

-- 计算合法的目标参数（不小于窗口最小尺寸）
set targetWidth to max (screenAvailableWidth / 2) minWidth
set targetHeight to max targetBaseHeight minHeight
set targetX to screenAvailableWidth - targetWidth -- 确保窗口右边缘不超出可用宽度

-- 验证与重试配置
set maxRetries to 3
set retryCount to 0
set windowIsValid to false

tell application "System Events"
    tell application process appName
        repeat until windowIsValid or retryCount ≥ maxRetries
            -- 应用目标设置
            tell window 1
                set position to {targetX, targetY}
                set size to {targetWidth, targetHeight}
            end tell
            delay 0.2 -- 给应用足够响应时间
            
            -- 验证窗口当前状态（允许1像素误差，避免浮点精度问题）
            set currentFrame to frame of window 1
            set currentX to item 1 of currentFrame
            set currentY to item 2 of currentFrame
            set currentWidth to item 3 of currentFrame
            set currentHeight to item 4 of currentFrame
            
            set windowIsValid to (abs(currentX - targetX) ≤ 1) and ¬
                                (abs(currentY - targetY) ≤ 1) and ¬
                                (abs(currentWidth - targetWidth) ≤ 1) and ¬
                                (abs(currentHeight - targetHeight) ≤ 1)
            
            set retryCount to retryCount + 1
        end repeat
    end tell
end tell

-- 返回结果
if windowIsValid then
    return "窗口已成功调整至目标状态"
else
    return "重试" & maxRetries & "次后仍未完成窗口调整"
end if

2. 基于Accessibility API的精准验证 #

AppleScript的System Events本身基于Accessibility API，通过读取窗口的frame属性（包含位置与尺寸的完整信息）可实现精准验证。上述脚本中已使用frame属性进行状态校验，这就是Accessibility API的实际应用。

若需更底层的操作，可通过Objective-C调用AXUIElement接口，但对于大多数场景，System Events提供的属性已足够满足需求。

内容的提问来源于stack exchange，提问作者user4150758