NameThatiTune.vbs

[« Access One iTunes Library from Two PCs]
[Download shared music over LAN with OurTunes »]

Article Image
Tags:

Added On: 28th Jan 08

Links: [download]

A simple game that tests your knowledge of your music library. Similar to the “Music Quiz” game on the iPod, we can now play a simple version on our computers!

NameThatiTune

When i say simple version, i really do mean this! There’s no aspect of time penalties or score, but you’re played a song, and you simply test whether you know the title and/or artist, and then you’re told them when you click OK.

NameThatiTune 2

Set objApp = CreateObject("iTunes.Application")

Set objPlaylist = objApp.LibraryPlaylist
Set colTracks = objPlaylist.Tracks

intTracks = colTracks.Count

intHighNumber = intTracks
intLowNumber = 1

Randomize
intNumber = Int((intHighNumber - intLowNumber + 1) * Rnd + intLowNumber)

Set objSong = colTracks.Item(intNumber)
objSong.Play
Wscript.Echo "Guess the name of this song... Click OK for the answer..."
Wscript.Sleep 1000

Wscript.Echo "SONG: " & objSong.Name
Wscript.Echo "ARTIST: " & objSong.Artist

UnRelated Posts:

This post has been read 484 times.
[« Access One iTunes Library from Two PCs]
[Download shared music over LAN with OurTunes »]

No Comments

Leave a comment