【Apple Script】ブログに本文を自動で入力するコツ

FC２や、アメーバなど人気のブログはいくつかあるが、

Apple Script を使って、記事を自動で投稿したい時、

タイトルは簡単に入れられるけど、

本文を入力するのは手間がかかるなんてことがよくある。

これは、HTML入力するからとか、そこだけプレビュー機能が備わってて、iframeタグが使われていたりするから。

タイトルにフォーカス移動はできるので、

その後、タブを押してフォーカスを移動させると、

本文を入力しやすい。

その際、クリップボードと、ペーストを使ってみた。

set the clipboard to text --クリップボードにコピー
my moveFocusByXPath(【XPathが入る】)
my sendTab() --ブログによってタブ移動の回数が変わる
my sendPaste()

on sendTab()
    tell application "System Events"
        keystroke tab
    end tell
end sendTab

on sendPaste()
    tell application "System Events"
        keystroke "v" using {command down}
    end tell
end sendPaste

on moveFocusByXPath(theXPath)
    tell application "Safari"
        do JavaScript "
                    var xpaths = document.evaluate('" & theXPath & "', document, null, XPathResult.ORDERED_NODE_SNAPSHOT_TYPE, null );
                    xpaths.snapshotItem(0).focus();
        " in document 1

    end tell
end moveFocusByXPath