Avvia Genius tramite AppleScript

2

Vorrei avviare una playlist Genius per il brano attualmente in riproduzione in iTunes tramite un AppleScript.

Un prerequisito sarebbe che lo script funzioni quando iTunes è a schermo intero.

E idealmente, non sarebbe:

  • porta in primo piano iTunes
  • lascia un messaggio di errore quando genio non è disponibile per quel brano
  • dipende dalla lingua del sistema

Ho trovato questo script , ma non funziona per me quando iTunes è a schermo intero. Eppure, è un ottimo inizio.

Potrebbe essere possibile utilizzare il protocollo utilizzato dall'app iOS "Remote", ma sembra essere eccessivo.

Qualsiasi aiuto sarebbe apprezzato.

(l'obiettivo è quello di lanciare il genio da software come Keyboard Maestro o Alfred)

    
posta olivier 16.07.2012 - 10:53
fonte

1 risposta

1

Prova questo:

tell application "iTunes" to try
    activate
    with timeout of 10 seconds
        reveal current track -- error if no current track
        set tName to name of (first window whose its class is browser window or its class is playlist window)
    end timeout
on error
    return "Can't find track!"
end try

tell application "System Events"
    tell application process "iTunes"
        try
            set b to (first button of window tName whose value of attribute "AXDescription" is "Genius")
            if not (enabled of b) then return "Genius button disabled" -- (film, video clip,...)
            perform action "AXPress" of b
        on error -- no Genius button (radio, podcast, .....) playlist
            return "Can't create genius list from that track!"
        end try
        delay 2
        tell front window to if value of attribute "AXSubRole" is "AXDialog" then -- dialog opened.
            perform action "AXPress" of button "OK" -- close the dialog
            return "Can't create genius list from that track!"
        end if
    end tell
end tell
return "Done"
    
risposta data 17.07.2012 - 14:54
fonte

Leggi altre domande sui tag