Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #Include <Sound.au3>
- $pFile = FileOpenDialog("Open .mp3",@ScriptDir,"MP3 (*.mp3) | WAV (*.wav)")
- If $pFile = "" Then Exit
- $aSnd_id = _SoundOpen($pFile)
- _SoundPlay($aSnd_id)
- While _SoundStatus($aSnd_id) = "playing"
- MsgBox(0, "Spiel", "Spield dieses Lied : " & $pFile)
- WEnd
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement