SafariでURLをローディング

本処理は最近のSafariでは正しくローディング検出できないようになってきたため、書き直したルーチン「SafariでURLローディング検出」を利用してください。

AppleScript名：SafariでURLをローディング

set aURL to "http://www.piyocast.com/as/"
–set aURL to ""

tell application "Safari"
　　set d to count every window
　　if d = 0 then
　　　　make new window
　　　　tell document 1
　　　　　　set URL to aURL
　　　　end tell
　　else
　　　　if aURL is not equal to "" then
　　　　　　tell document 1
　　　　　　　　set URL to aURL
　　　　　　end tell
　　　　end if
　　end if
　　
　　page_loaded(10) of me
　　
　　set a to do JavaScript "document.title" in document 1
end tell

on page_loaded(timeout_value)
　　repeat with i from 1 to (timeout_value * 10)
　　　　tell application "Safari"
　　　　　　if (do JavaScript "document.readyState" in document 1) is "complete" then
　　　　　　　　return true
　　　　　　else if i is the timeout_value then
　　　　　　　　return false
　　　　　　else
　　　　　　　　delay 0.1
　　　　　　end if
　　　　end tell
　　end repeat
　　return false
end page_loaded