通过 AppleScript 更改 MacBook 屏幕缩放比例

Question

我正在尝试通过 AppleScript 更改 MacBook Pro 14 的比例设置。
该设置应切换两个分辨率设置。
我在这里找到了以下脚本：https://stackoverflow.com/a/62664159/15705553

on run {input, parameters}
    
    tell application "System Preferences"
        reveal anchor "displaysDisplayTab" of pane "com.apple.preference.displays"
    end tell
    
    set lowResolutionSettingIndex to 4
    set highResolutionSettingIndex to 5
    
    tell application "System Events" to tell process "System Preferences" to tell window "Built-in Retina Display"
        click radio button "Display" of tab group 1
        click radio button "Scaled" of tab group 1
        tell radio group 1 of group 1 of tab group 1
            set isHighResolutionSet to get value of radio button highResolutionSettingIndex
        end tell
        if isHighResolutionSet then
            -- Toggle native resolution
            click radio button lowResolutionSettingIndex of radio group 1 of group 1 of tab group 1
        else
            -- Toggle Default setting - "Retina optimized"
            click radio button highResolutionSettingIndex of radio group 1 of group 1 of tab group 1
        end if
    end tell
    
    quit application "System Preferences"
    
    return input
end run

我将“内置 Retina 显示屏”更改为“内置 Liquid Retina XDR 显示屏”，如系统偏好设置中所示，但出现两个错误：

• 如果我通过 Automator 执行此脚本，则会收到以下错误：

Syntax Error: System Events got an error: Can’t get window "Built-in Liquid Retina XDR Display" of process "System Preferences".

• 如果我通过 shortcuts.app 执行它，我会收到以下错误，即使我在系统偏好设置中授予了对快捷方式辅助功能的访问权限

System Events got an error: Shortcuts is not allowed assistive access.

Answer 1

以下是我如何选择列表中的第一台显示器（Macbook Pro 内置 Retina 显示器）以访问屏幕缩放等设置：

tell application "System Preferences"
    activate
    reveal anchor "universalControlTab" of pane id "com.apple.preference.displays"
end tell
tell application "System Events"
    tell application process "System Preferences"
        tell window "Displays"
            select row 1 of outline 1 of scroll area 1 of sheet 1
        end tell
    end tell
end tell

如果您想访问这些设置，请选择列表中的第二台显示器：

tell application "System Preferences"
    activate
    reveal anchor "universalControlTab" of pane id "com.apple.preference.displays"
end tell
tell application "System Events"
    tell application process "System Preferences"
        tell window "Displays"
            select row 2 of outline 1 of scroll area 1 of sheet 1
        end tell
    end tell
end tell

干杯。