_WMP_SoundPlay(@ScriptDir & '\alarm.mp3')
Func _WMP_SoundPlay($sFile)
$oWMP = ObjCreate("WMPlayer.OCX.7")
While 1
$oWMP.Url = $sFile
$oWMP.Settings.Volume = 100
$oWMP.Controls.Play
Do
Until $oWMP.PlayState = 1
Sleep(500)
WEnd
EndFunc ;==>_WMP_SoundPlay