Set w = CreateObject(”ActiveWinamp.Application”)

dim i, x, z, c, q

q = “type = ““0”” AND length >= ““2:00”” AND title NOTHAS ““intro”” AND (playcount = 0 | playcount isempty)”

z = w.medialibrary.runqueryarray(q)

w.Playlist.Clear

for i = 1 to 100

randomize
x = int((ubound(z)-1) * Rnd)
z(x).enqueue

next

‘w.quit