VBA

iTunesを一定間隔で自動再生するVBSスクリプト

PCで作業しながらiTunesでランダムに音楽を聞いていますが、
一曲の音楽は4、5分というのは少々長い気がします。

そんなわけで、iTunesを1分程度で自動的に次の曲に移動しないかと
丁度良いフリーソフトやiTunes用プラグインを探していましたが、
なかなか良いのが見つかりませんでした。
というか、あまりiTunes用のプラグインは少ないように思います。

そこで、iTunesを操作するために用意されたSDKでスクリプトを作りました。
作成までに色々なブログを参考にしてますが、
最終的には、Appleの開発者向けサイトで配布しているヘルプを参考にしました。

Downloads for Apple Developers
developer.apple.com/downloads/index.action

下のスクリプトを「itunes一定間隔自動再生スクリプト.vbs」などと適当なファイル名を付けて実行してください。

iTunesを一定間隔で自動再生するVBSスクリプト

Dim iTunes

'iTunesアプリケーションをセットする。
Set iTunes = WScript.CreateObject("iTunes.Application")

'プレイリストをセットします。
set pList = iTunes.LibrarySource.Playlists.ItemByName("全曲シャッフル")

'はじめの曲を再生
pList.PlayFirstTrack()
'シャッフルをON
pList.Shuffle = 1
'すぐに次の曲へ
iTunes.NextTrack ()

'60秒→次の曲へのループ(30回)
myNum = 0
Do
	WScript.Sleep(60000)
	iTunes.NextTrack ()
	myNum = myNum + 1
Loop While myNum <30

'終了したら、メッセージを表示
Wscript.echo "iTunes自動再生終了しました。"

'途中で終了する場合は、タスクマネージャからプロセスwscript.exeを終了

話は変わりますが、コードを初投稿を気に、SyntaxHighlighter Evolvedを新たに導入しました。大変きれいに表示されて重宝しそうです。
しかし、VBScriptは対応していないようです。vb用で代用してます。

-VBA