2007-12-25 23:34:57 PST
Love iTuny!
However one of my most used shortcuts in iTunes (Shift + -> to skip an album) was missing... so I had go at adding it. It's working for me so I am posting the code in the hope it's useful to someone else.
It's my first time with au3 so apologies for the code quality.
Code (added into the main switch statement):
Case "nextalbum"
Dim $track = $iTunesApp.CurrentTrack().Name()
Dim $trackColl = $iTunesApp.CurrentPlaylist().Tracks()
Dim $found = false
Dim $foundTrack = false
For $trackCount = 1 To $trackColl.Count()
If $found And Not($currentAlbum = $trackColl.ItemByPlayOrder($trackCount).Album()) Then
Dim $nextTrack = $trackColl.ItemByPlayOrder($trackCount)
$foundTrack = true
$trackCount = $trackColl.Count() + 1
ElseIf Not($found) And $track = $trackColl.ItemByPlayOrder($trackCount).Name() Then
Dim $currentAlbum = $trackColl.ItemByPlayOrder($trackCount).Album()
$found = true;
EndIf
Next
If $foundTrack Then
$nextTrack.Play()
EndIF
Case "prevalbum"
Dim $track = $iTunesApp.CurrentTrack().Name()
Dim $trackColl = $iTunesApp.CurrentPlaylist().Tracks()
Dim $found = false
Dim $foundPrev = false
Dim $foundTrack = false
For $trackCount = $trackColl.Count() To 1 Step -1
If $foundPrev And Not($previousAlbum = $trackColl.ItemByPlayOrder($trackCount).Album()) Then
Dim $nextTrack = $trackColl.ItemByPlayOrder($trackCount + 1)
$foundTrack = true
$trackCount = 1
ElseIf $found And Not($currentAlbum = $trackColl.ItemByPlayOrder($trackCount).Album()) Then
Dim $previousAlbum = $trackColl.ItemByPlayOrder($trackCount).Album()
$foundPrev = true
if $trackCount = 1 Then
Dim $nextTrack = $trackColl.ItemByPlayOrder($trackCount)
$foundTrack = true
EndIf
ElseIf Not($found) And $track = $trackColl.ItemByPlayOrder($trackCount).Name() Then
Dim $currentAlbum = $trackColl.ItemByPlayOrder($trackCount).Album()
$found = true
EndIf
Next
If $foundTrack Then
$nextTrack.Play()
EndIf