[QuickTime]フルスクリーン＋リピート再生

自分用

(*

QuickTimeでムービーをフルスクリーン表示する

事前設定として

スクリーンセーバー設定　しない

省エネルギー設定　画面スリープしない

*)

set theUnixPath to "/System/Library/CoreServices/Setup Assistant.app/Contents/Resources/TransitionSection.bundle/Contents/Resources/intro.mov" as text

set aliasOpenPath to (POSIX file theUnixPath) as alias

tell application "QuickTime Player"

open aliasOpenPath

tell window 1

activate

set the zoomed to true as boolean

set the visible to true as boolean

set the miniaturized to false as boolean

set the index to 1 as integer

end tell

tell document 1

activate

set the audio volume to 0.8

set the looping to true as boolean

set the presenting to true as boolean

play

end tell

activate

end tell

「QuickTimePlayerFullScreen.scpt.zip」をダウンロード

---

(*

VLCでムービーをフルスクリーン表示する

リピート設定でエンドレス

メニュー→再生→一曲リピート

事前設定として

スクリーンセーバー設定　しない

省エネルギー設定　画面スリープしない

*)

set theUnixPath to "/System/Library/CoreServices/Setup Assistant.app/Contents/Resources/TransitionSection.bundle/Contents/Resources/intro.mov" as text

set aliasOpenPath to (POSIX file theUnixPath) as alias

tell application "VLC"

activate

(open aliasOpenPath) fullscreen

end tell

「VlcFullScreen.scpt.zip」をダウンロード