Dangerous script

on isRunning(appName)
    tell application "System Events" to (name of processes) contains appName
end isRunning

repeat until isRunning("Keynote")
end repeat

tell application "Keynote"
    repeat
        try
            get the name of front document
            exit repeat
        on error errorMessage number errorNumber
        end try
    end repeat
end tell

tell application "Keynote"
    export documents as slide images to (path to desktop) with properties {image format:JPEG, skipped slides:true, compression factor:1.0}
end tell