Applescript：Quicktime X 导出到 720

Question

通过 script/automator 操作寻求帮助（真正要做）以在 QT X 中打开文件并使用 export 720p 命令。我不想使用取景器内置的编码功能。将 QT X 中的 "export" 功能与我正在处理的文件一起使用可以解决问题，并且不会重新编码文件。我尝试使用 automator，但没有 "export" 操作，只有 "encode" 可以重新编码文件。

我在字典中看到了命令，但似乎无法使它工作。

我见过很多脚本帮助，但主要是针对 QT 7 和 Pro。 X

没那么多

这可能吗？

提前感谢您的才华和技能，

干杯！

Answer 1

寻找 QuickTime Player Applescript 字典，使用导出命令看起来非常简单，如下面的脚本所示：

set MyFile to choose file name  -- open save as dialog to fill path and file name
tell application "QuickTime Player"
    activate
    export (document 1) in MyFile using settings preset "720p"
end tell

但是，如果 QuickTime 正确执行导出（您可以看到 QuickTime 导出的进度条），我总是以错误结束（没有写入导出文件的权限）...即使目标文件夹是我的桌面 !!

我认为这是 QuickTime Applescript 命令中的错误。可能有人知道如何处理吗？

然后，我使用了一种使用 GUI 脚本的变通方法。我尽量避免使用 GUI 脚本，但在这种情况下，我没有找到方法。因此，脚本必须模拟用户点击导出菜单，然后填充另存为对话框。这样做，QuickTime 没有权限问题！

这是有很多评论的脚本：

set FileName to "test720p" -- your file name for the 720p exported video
set DestFolder to "myFolder/mySubFolder" -- path from Documents folder (folders should exit !!)
tell application "QuickTime Player" to activate
tell application "System Events" to tell process "QuickTime Player"

    --click menu 720p  of menu "Export" which is item 16 of menu File which is 3rd menu of main menu bar
    click menu item 2 of menu 1 of menu item 16 of menu 1 of menu bar item 3 of menu bar 1
    delay 1 -- leave time to open save as dialog

    -- need to fill the save as dialog box
    keystroke "h" using {command down, shift down} -- go home directory
    keystroke "g" using {command down, shift down} -- go-to dialog
    keystroke DestFolder
    keystroke return -- close go-to dialog
    keystroke FileName -- fill save as file name on top
    keystroke return -- close the save-as dialog    
end tell

标准另存为对话框中还有其他命令键（用于转到其他标准文件夹）。您可以根据自己的需要进行调整。请确保您在 DestFolder 中的文件夹已在 !

之前创建

Answer 2

tell application "QuickTime Player"
    set movieName to the name of the front document
    set savePath to a reference to POSIX file ¬
        ("/Users/WBTVPOST/Desktop/" & movieName & ".mov")
    export the front document in savePath using settings preset "720p"
end tell

^{系统信息： AppleScript 版本： 2.7 系统版本： 10.13.6}

Applescript：Quicktime X 导出到 720

Applescript : Quicktime X Export to 720

macos

applescript

automator

quicktime