Mélodies Windows

Bonjour JeNeVois,

Essaie :

Option Explicit

Private Const SND_ALIAS = &H10000
Private Const SND_ALIAS_ID = &H110000
Private Const SND_ALIAS_START = 0
Private Const SND_APPLICATION = &H80
Private Const SND_ASYNC = &H1
Private Const SND_FILENAME = &H20000
Private Const SND_LOOP = &H8
Private Const SND_MEMORY = &H4
Private Const SND_NODEFAULT = &H2
Private Const SND_NOSTOP = &H10
Private Const SND_NOWAIT = &H2000
Private Const SND_PURGE = &H40
Private Const SND_RESERVED = &HFF000000
Private Const SND_RESOURCE = &H40004
Private Const SND_SYNC = &H0
Private Const SND_TYPE_MASK = &H170007
Private Const SND_VALID = &H1F
Private Const SND_VALIDFLAGS = &H17201F

Private Declare Function PlaySoundA Lib "winmm.dll" _
(ByVal lpszName As String, _
ByVal hModule As Long, _
ByVal dwFlags As Long) As Long

Private Sub PlaySoundAsFile(fName As String, _
Optional Wait As Boolean = False)
Dim flags As Long

flags = SND_NODEFAULT Or SND_FILENAME Or SND_SYNC
If Wait = False Then flags = flags Or SND_ASYNC
PlaySoundA fName, 0&, flags
End Sub

Private Sub CommandButton1_Click()
' A adapter en fonction du son que tu veux jouer
PlaySoundAsFile Environ("SystemRoot") & _
"mediaWindows XP Ouverture de session.wav"
End Sub

Bonjour,

est-il possible en VBA de réproduire les mélodies Windows,
notemment les 2 accords lorsqu'après une mise en veille
de l'ordinateur p.exp. on clique sur le username et les fichiers
réapparaissent ?
Pour remplacer avantageusement le pauvre "beep" , j'entends ;)

Merci et salutations

--
Cordialement,

Jacques.

Petit oubli, les sons par défauts et les sons "utilisateur" sous Windows
Xp sont dans les clés :

HKEY_CURRENT_USERAppEventsSchemesApps

Au cas ou tu veuilles reprendre le son associé à un événement.

--
Cordialement,

Jacques.

Bonsoir,

merci, cela fonctionne bien :)
Mais l'emploi de cette clef reste encore mystérieux pour moi .

Salutations

Petit oubli, les sons par défauts et les sons "utilisateur" sous Windows
Xp sont dans les clés :

HKEY_CURRENT_USERAppEventsSchemesApps

Au cas ou tu veuilles reprendre le son associé à un événement.

--
Cordialement,

Jacques.