Creare il proprio lettore di iTunes

Se usate iTunes, potreste voler qualcosa di diverso o più leggero da usare per sentire le vostre musiche preferite. Oggi mostrerò come farsi il proprio lettore di iTunes. Il seguente codice funziona sia su Windows che Mac.

Prima di tutto ci serve di scrivere delle righe di codice che metteremo  nelle proprietà personalizzare (custom properties) del nostro lettore. Questi codici saranno VBscript o Applescript per interfacciarsi con iTunes, a seconda se siamo su Windows o Mac. L'unico modo per interfacciarsi con iTunes, infatti, è sfruttare i driver che installa.
Creiamo un pulsante PLAY e inseriamo la prima proprietà, chiamandola cWinPlayScript, e inserendoci il seguente codice:

Dim thePlayLists, theTrack, theLibrary, thePlayList, i
Dim iTunesApp
Set iTunesApp = CreateObject("iTunes.Application")
Set theLibrary = iTunesApp.LibrarySource
Set thePlayLists = theLibrary.Playlists
Set thePlayList = thePlayLists.ItemByName("Library")
Set theTrack = thePlayList.Tracks.Item(1)
theTrack.Play()

Creiamo la seconda proprietà, chiamandola cMacPlayScript, e inseriamo il seguente codice:

tell application "iTunes"
tell source "Library"
   tell playlist "Library"
   play track 1
   end tell
 end tell
end tell

Ora nel codice del pulsante possiamo mettere:

on mouseUp
   if the platform is "win32" then
      put the cWinPlayScript of me into tScript
      do tScript as "vbscript"
   else
      put the cMacPlayScript of me into tScript
      do tScript as "applescript"
   end if
end mouseUp

Finito, questo ci basta per avviare una musica.

Alla stessa maniera possiamo creare il codice per il pulsante STOP. La proprietà personalizzata cWinStopScript sarà:

Dim iTunesApp
Set iTunesApp = CreateObject("iTunes.Application")
iTunesApp.Stop

mentre quella cMacStopScript sarà:

tell application "iTunes"
  stop
end tell

e il codice del pulsante:

on mouseUp
   if the platform is "win32" then
      put the cWinStopScript of me into tScript
      do tScript as "vbscript"
   else
      put the cMacStopScript of me into tScript
      do tScript as "applescript"
   end if
end mouseUp

Alla stessa maniera sono disponibili tanti altri comandi in script (Applescript o VisualBasic) per interagire con iTunes: scegliere la musica, cambiare il volume, andare alla canzone successiva, ecc.
Questa tecnica può essere utilizzata anche per interagire con programmi che rilasciano solo driver che possono essere chiamati solo tramite script, generalmente sono software chiusi e proprietari.