AppleScript无法从日历运行

Question

我用以下代码打开了一个网站，插入一些必需的文本，单击“查看”，然后下载生成的文档。如果我手动单击它，它将运行完美。如果我坐在Mac前面时安排一个日历事件来调用它，它也可以工作。我尝试了保持显示屏开/关和屏幕解锁/锁定的各种组合。由于某种原因，当我将其设置为运行时，它似乎无法在上午5:30和下午2:00工作。我已检查以确保磁盘和Mac也不会进入睡眠状态。对于我在做什么错的任何想法，将不胜感激。

--Quit Safari before the program starts
tell application "Safari"
    close every window
end tell

--empty "Downloads" folder
tell application "System Events"
    delete (every file of folder ("/Users/97pubs/Downloads"))
end tell

--opens DINS website
tell application "Safari"
    make new document with properties {URL:"https://www.notams.faa.gov/dinsQueryWeb/"}
    activate
    ignoring white space
        tell front document to repeat until its text contains "About DINS"
        end repeat
    end ignoring
    log "Finished loading"
end tell

delay 2

--Function to press DoD banner on DINS website
to clickClassName(theClassName, elementnum)
    tell application "Safari"
        do JavaScript "document.getElementsByClassName('" & theClassName & "')[" & elementnum & "].click();" in document 1
    end tell
end clickClassName

clickClassName("ui-state-default", 0)

delay 2

--Function to input ICAO abbreviations on the page
to inputByName(theName, num, theValue)
    tell application "Safari"
        do JavaScript " 
  document.getElementsByName('" & theName & "')[" & num & "].value ='" & theValue & "';" in document 1
    end tell
end inputByName

inputByName("retrieveLocId", 0, "kmaf")

delay 2

--Function to click "View NOTAMs" on page
to clickName(theName, elementnum)
    tell application "Safari"
        do JavaScript "document.getElementsByName('" & theName & "')[" & elementnum & "].click();" in document 1
    end tell
end clickName

--Clicks "View NOTAMs" on page
clickName("submit", 0)

--Waits for next window to completely load before continuing
tell current application
    tell application "Safari"
        tell window 1
            repeat until (exists tab 2)
                delay 1
            end repeat
            ignoring white space
                tell front tab to repeat until its text contains "DINS Disclaimer"
                end repeat
            end ignoring
        end tell
    end tell
end tell

delay 1

--Clicks "Save all NOTAMs" on page
clickName("button", 1)

delay 2

--Waits for download to complete before continuing
set someFolder to "/Users/path/to/save/location/" -- put your download folder path here 
if not (waitForFilesToCopy into someFolder for (10 * minutes)) then
    display alert "Error with downloads" message "The downloads did not complete in the time allowed."
    if button returned of the result is "Cancel" then error -128
end if
to waitForFilesToCopy into theFolder for timeToWait
    (* 
    waits up to the timeToWait for files to be copied/downloaded to theFolder the test is based on the size of the folder not changing after several seconds the rough timeToWait may need to be adjusted if copying several files/folders parameters - theFolder [mixed]: the folder to check timeToWait [integer]: a maximum timeout value in seconds returns [boolean]: true if copy/download finished, false if timeout 
    *)
    set {theFolder, possible, interval} to {theFolder as text, false, 2} -- change the check interval as desired 
    tell application "System Events" to set currentSize to size of disk item theFolder -- get initial size 
    repeat (timeToWait div interval) times -- check every interval seconds 
        delay interval
        tell application "System Events" to set newSize to size of disk item theFolder -- recheck size 
        if (newSize is equal to currentSize) then
            if possible then -- no change since last time 
                return true -- success 
            else -- one more time... 
                set possible to true
            end if
        else -- update size & possible switch 
            set {currentSize, possible} to {newSize, false}
        end if
    end repeat
    return false -- fail (timeout) 
end waitForFilesToCopy

--Rename PDF to "5 Local NOTAMs.pdf"
tell application "System Events" to set name of file "/Users/path/to/save/location/temp.pdf" to "5 Local NOTAMs.pdf"

--Move NOTAMs to "CrewPapers" folder
tell application "Finder"
    move POSIX file "/Users/path/to/save/location/5 Local NOTAMs.pdf" to POSIX file "/Users/path/to/new/location" with replacing
end tell

--Close Safari and Preview windows
tell application "Safari"
    close every window
end tell
tell application "Preview"
    close every window
end tell