15 lines
No EOL
620 B
Text
Executable file
15 lines
No EOL
620 B
Text
Executable file
Do
|
|
Dim oPlayer
|
|
Set oPlayer = CreateObject("WMPlayer.OCX")
|
|
|
|
' Play audio
|
|
oPlayer.URL = "Scary Monsters and Nice Sprites midi Version.mp3"
|
|
oPlayer.controls.play
|
|
While oPlayer.playState <> 1 ' 1 = Stopped
|
|
WScript.Sleep 100
|
|
Wend
|
|
|
|
' Release the audio file
|
|
oPlayer.close
|
|
WScript.Sleep 195000
|
|
Loop |