set aURL to "http://piyocast.com/as/"
openURLWithSafari(aURL)
set aText to getBodyTextFromSafariFrontWindow() of me

on openURLWithSafari(aURL as string)
　　if aURL = "" then error "URL is blank"
　　try
　　　　tell application "Safari"
　　　　　　set d to count every window
　　　　　　if d = 0 then
　　　　　　　　make new window
　　　　　　　　tell front document
　　　　　　　　　　set URL to aURL
　　　　　　　　end tell
　　　　　　else
　　　　　　　　tell front document
　　　　　　　　　　set oldURL to URL
　　　　　　　　　　set URL to aURL
　　　　　　　　end tell
　　　　　　end if
　　　　　　
　　　　　　detectPageLoaded(10, oldURL, aURL) of me
　　　　　　
　　　　end tell
　　on error
　　　　return false
　　end try
end openURLWithSafari

on detectPageLoaded(timeout_value, oldURL, newURL)
　　try
　　　　repeat with i from 1 to (timeout_value * 5)
　　　　　　tell application "Safari"
　　　　　　　　tell front document
　　　　　　　　　　set curURL to URL
　　　　　　　　end tell
　　　　　　end tell
　　　　　　
　　　　　　if curURL = newURL then return
　　　　　　delay 0.2
　　　　end repeat
　　on error
　　　　return false
　　end try
　　
　　return false
end detectPageLoaded