تشغيل الصوت دون أدوات

Declare Function sndPlaySound Lib 'winmm.dll' Alias 'sndPlaySoundA' (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long 

Global Const SND_ASYNC = &H1

rc = sndPlaySound(إسم ملف الصوت هنا, SND_ASYNC)

Private Declare Function sndPlaySound Lib 'winmm.dll' Alias 'sndPlaySoundA' (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long 

Const SND_ALIAS = &H10000 

Const SND_ASYNC = &H1 

Const SND_SYNC = &H0 

Const SND_NOWAIT = &H2000 

Const SND_LOOP = &H8 

Sub SoundCheck() 

Dim lRetVal As Long 

lRetVal = sndPlaySound('عنوان الملف هنا', SND_SYNC) 

End Sub

SoundCheck