Fabio
Prova con questo (utilizzare Windows Media Player per riprodurre dei suoni e' comunque piuttosto lento per quello che ho potuto vedere, cioe' c'e' una certa latenza nella riproduzione)
Option Explicit Dim oPlayer Dim sTimer Dim maxTime Dim fileName
fileName="C:\Windows\Media\tada.wav" ' nome file audio maxTime=10 ' secondi massimi durata
Set oPlayer = CreateObject("WMPlayer.OCX") oPlayer.URL = fileName oPlayer.controls.play sTimer=Timer While (oPlayer.playState <> 1)and(abs(timer-sTimer)<maxTime) ' 1 = Stopped Rdy.SysEvents Wend oPlayer.close Set oPlayer=Nothing
|