一瞬でSafariのタブを新しいウィンドウで開いて画面の右半分の位置に設置するスクリプト

tellapplication "Finder"

--デスクトップのサイズを取得

settheScreenSizetogetboundsofwindowofdesktop

--デスクトップの横幅を取得

settheScreenWidthtoitem 3 oftheScreenSize

--デスクトップの高さを取得

settheScreenHeighttoitem 4 oftheScreenSize

--新しく開くウィンドウを一旦デスクトップのサイズで定義

settheNewWindowSizetotheScreenSize

--最初に開いているウィンドウ用のサイズを一旦0で宣言

setthePrimaryWindowSizeto {0, 0, 0, 0}

--最初に開いているウィンドウの横幅をデスクトップの横幅の半分にする

setitem 3 ofthePrimaryWindowSizetotheScreenWidth / 2

--最初に開いているウィンドウの高さをデスクトップの高さにする

setitem 4 ofthePrimaryWindowSizetotheScreenHeight

--新しく開くウィンドウの左端の位置をデスクトップの横幅の半分の位置にする

setitem 1 oftheNewWindowSizetotheScreenWidth / 2

--新しく開くウィンドウの左端の位置をデスクトップの横幅の半分の位置にする

setitem 3 oftheNewWindowSizetotheScreenWidth

endtell

--Safariを前面にする

tellapplication "System Events" totellprocess "Safari"

setfrontmosttotrue

endtell

--Safariの最初に開いているウィンドウのサイズを画面の左側半分のサイズに設定

tellapplication "Safari"

setboundsofwindow 1 tothePrimaryWindowSize

endtell

--Safariのメニューから"タブを新しいウインドウに移動"を実行

tellapplication "System Events" totellprocess "Safari"

setfrontmosttotrue

clickmenu item 8 ofmenu 1 ofmenu bar item 9 ofmenu bar 1

endtell

--新しく開いたウィンドウを画面の右側半分に設定

tellapplication "Safari"

setboundsofwindow 1 totheNewWindowSize

endtell