Hogyan lehet zenelejátszot késziteni?

'ez simán lejátsza a zenét:

set WShell=CreateObject("WScript.Shell")

'zene = "ZENE ELÉRÉSI ÚTJA"

'WShell.Run(zene,0)

' a 0 azért kell hogy ne látszódjon a media player ablak

'opcionális zenelejátszó:

'(gondolom ilyet szeretnél)

set WShell=CreateObject("WScript.Shell")

hely_majka="D:\Zenék\Majka.mp3"

hely_ihm="C:\Users\User1\Documents\Hónaljmirigy.mp3"

hely_klaypex="C:\TF2SZERVER\Musics\klaypex.mp3"

'ezek a zenék elérési útjai

nev_majka="majka: Majka ft. Curtis - Belehalok"

nev_ihm="ihm: Irigy Hónaljmirigy - Numerakirály"

nev_klaypex="klaypex: Klapex - Lights"

'ezek a beirandó kódok és a zenék nevei

nev_osszes=nev_majka &vbCrLf& nev_ihm &vbCrLF& nev_klaypex

'a zenék nevei sorközzel összerakva

kod=InputBox(nev_osszes,"zenelejátszós progi")

'bekéri a zenék kódját

if kod="majka" then zene=hely_majka

if kod="ihm" then zene=hely_ihm

if kod="klaypex" then zene=hely_klaypex

'ha a kod megyezik a zene kódnevével átállítja a zene változót a megfelelő zene elérési útjára

WShell.Run zene,0

'lejátssza az elérési úton található zenét