چگونه یک موسیقی را به صورت بک گراند بخش کنیم.

کد:
set Sound = CreateObject("wmplayer.ocx.7")

Sound.URL = "upbeat.mp3"

Sound.Controls.Play

do while Sound.currentmedia.duration = 0

wscript.sleep 100

loop

wscript.sleep (int(sound.currentmedia.duration)+1)*1000
لینک قطع کننده موسیقی:
http://s9.picofile.com/file/8344211534/STop_music.bat.html