Advertisement
Guest User

Untitled

a guest
Dec 12th, 2012
70
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 0.28 KB | None | 0 0
  1. #Include <Sound.au3>
  2.  
  3. $pFile = FileOpenDialog("Open .mp3",@ScriptDir,"MP3 (*.mp3) | WAV (*.wav)")
  4.  
  5. If $pFile = "" Then Exit
  6.  
  7. $aSnd_id = _SoundOpen($pFile)
  8.  
  9. _SoundPlay($aSnd_id)
  10.  
  11. While _SoundStatus($aSnd_id) = "playing"
  12.     MsgBox(0, "Spiel", "Spield dieses Lied : " & $pFile)
  13. WEnd
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement