Kindle自动翻页

set theCount to 0
repeat while (theCount < 100)
    set theCount to theCount + 1
    activate application "Kindle"
    tell application "System Events"
        click at {1355, 443}
    end tell
    set msgcount to 60
    repeat while (msgcount ≥ 0)
        set msg to "" & msgcount
        display notification msg with title "EST"
        delay 1
        set msgcount to msgcount - 1
    end repeat
    log theCount
end repeat