[..] Equivalent SoundSetWaveVolume moins global

[TomAijerrie]

Bonjour,

je cherche une fonction permettant de changer le volume de mon lecteur audio uniquement
(qui fonctionne comme SoundSetWaveVolume sous Vista selon la doc)

On Windows Vista, there is no system-wide wave volume. This function only changes the wave volume for the script. It can not be used to change the wave volume of other programs.

Si vous connaissez une fonction permettant d'ajuster le son d'un seul des sons joués par mon lecteur, c'est encore mieux.
(je pourrai faire un mixer)

je met une version très simplifiée (bien que longue et tordue) de mon code actuel.

► Afficher le texteScript

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Sound.au3>

Opt("GUIOnEventMode",1)

Global $id1 = -1
Global $id2 = -1
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Lecteur audio", 427, 199, 234, 176)
GUISetOnEvent(-3,"Quitter")
Global $Group1 = GUICtrlCreateGroup("Fichier 1", 8, 8, 409, 73)
Global $Input1 = GUICtrlCreateInput("", 16, 24, 361, 21)
Global $Button1 = GUICtrlCreateButton("...", 376, 24, 33, 21)
GUICtrlSetOnEvent(-1,"chose1")
Global $Button2 = GUICtrlCreateButton("Ouvrir", 16, 48, 57, 25)
GUICtrlSetOnEvent(-1,"Open1")
Global $Button3 = GUICtrlCreateButton("Play", 80, 48, 49, 25)
GUICtrlSetState(-1,128)
GUICtrlSetOnEvent(-1,"Play1")
Global $Button4 = GUICtrlCreateButton("Pause", 136, 48, 49, 25)
GUICtrlSetState(-1,128)
GUICtrlSetOnEvent(-1,"Pause1")
Global $Button5 = GUICtrlCreateButton("Stop", 192, 48, 49, 25)
GUICtrlSetState(-1,128)
GUICtrlSetOnEvent(-1,"Stop1")
Global $Label1 = GUICtrlCreateLabel("Volume :", 264, 48, 45, 25, BitOR($SS_CENTER,$SS_CENTERIMAGE))
Global $Slider1 = GUICtrlCreateSlider(312, 48, 97, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group2 = GUICtrlCreateGroup("Fichier 2", 9, 88, 409, 73)
Global $Input2 = GUICtrlCreateInput("", 17, 104, 361, 21)
Global $Button6 = GUICtrlCreateButton("...", 377, 104, 33, 21)
GUICtrlSetOnEvent(-1,"chose2")
Global $Button7 = GUICtrlCreateButton("Ouvrir", 17, 128, 57, 25)
GUICtrlSetOnEvent(-1,"Open2")
Global $Button8 = GUICtrlCreateButton("Play", 81, 128, 49, 25)
GUICtrlSetState(-1,128)
GUICtrlSetOnEvent(-1,"Play2")
Global $Button9 = GUICtrlCreateButton("Pause", 137, 128, 49, 25)
GUICtrlSetState(-1,128)
GUICtrlSetOnEvent(-1,"Pause2")
Global $Button10 = GUICtrlCreateButton("Stop", 193, 128, 49, 25)
GUICtrlSetState(-1,128)
GUICtrlSetOnEvent(-1,"Stop2")
Global $Label2 = GUICtrlCreateLabel("Volume :", 265, 128, 45, 25, BitOR($SS_CENTER,$SS_CENTERIMAGE))
Global $Slider2 = GUICtrlCreateSlider(313, 128, 97, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Button11 = GUICtrlCreateButton("Quitter", 320, 168, 97, 25)
GUICtrlSetOnEvent(-1,"Quitter")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    If $id1 <> -1 And _SoundLength($id1,2) <= _SoundPos($id1,2) Then stop1()
        If $id2 <> -1 And _SoundLength($id2,2) <= _SoundPos($id2,2) Then stop2()
WEnd

Func Quitter()
    Exit
EndFunc

Func open1()
    $id1 = _SoundOpen(GUICtrlRead($Input1))
    If @error Then
        $id1 = -1
        Return
    EndIf
    GUICtrlSetState($Input1,128)
    GUICtrlSetState($Button1,128)
    GUICtrlSetState($Button2,128)
    GUICtrlSetState($Button3,64)
EndFunc

Func open2()
    $id2 = _SoundOpen(GUICtrlRead($Input2))
    If @error Then
        $id1 = -1
        Return
    EndIf
    GUICtrlSetState($Input2,128)
    GUICtrlSetState($Button6,128)
    GUICtrlSetState($Button7,128)
    GUICtrlSetState($Button8,64)
EndFunc

Func Play1()
    _SoundPlay($id1)
    GUICtrlSetState($Button3,128)
    GUICtrlSetState($Button4,64)
    GUICtrlSetState($Button5,64)
EndFunc

Func Play2()
    _SoundPlay($id2)
    GUICtrlSetState($Button8,128)
    GUICtrlSetState($Button9,64)
    GUICtrlSetState($Button10,64)
EndFunc

Func chose1()
    GUICtrlSetData($Input1,FileOpenDialog("Ouvrir un fichier","","Sons (*.mp3;*.wav;*.wma)|Tous les fichiers (*.*)",1))
EndFunc

Func chose2()
    GUICtrlSetData($Input2,FileOpenDialog("Ouvrir un fichier","","Sons (*.mp3;*.wav;*.wma)|Tous les fichiers (*.*)",1))
EndFunc

Func Pause1()
    _SoundPause($id1)
    GUICtrlSetState($Button3,64)
    GUICtrlSetState($Button4,128)
EndFunc

Func Pause2()
    _SoundPause($id2)
    GUICtrlSetState($Button8,64)
    GUICtrlSetState($Button9,128)
EndFunc

Func Stop1()
    _SoundStop($id1)
    GUICtrlSetState($Button3,64)
    GUICtrlSetState($Button4,128)
    GUICtrlSetState($Button5,128)
EndFunc

Func Stop2()
    _SoundStop($id2)
    GUICtrlSetState($Button8,64)
    GUICtrlSetState($Button9,128)
    GUICtrlSetState($Button10,128)
EndFunc
 

Je travaille sous XP et sous Seven, si vous avez une solution pour uniquement l'un de ces deux os, je prends quand même.

[TomAijerrie]

Rectification

Sous Seven, si deux compilations différentes sont exécutées simultanément, changer le volume de l'un ne modifie pas celui de l'autre.
Cependant, sous XP, Le volume de plusieurs applications dont le lecteur Windows Media changent.

A votre avis, est-il facile de faire un programme qui contrôle discrètement l'autre :
- Le premier qui reçoit les ordres du second et qui ouvre, lit , ferme des sons, modifie le volume de lecture de ce dernier...
et sans interface(s).
- Le second qui lance le premier, fais une interface et envoie des ordres au programme lecteur.

je pense à des contrôles qui pourraient déborder de l'interface (donc non visibles par l'utilisateur) où il y aurait les ordre pour le premier programme. Celui-ci irai lire régulièrement ces contrôles.
Il y a-t-il plus simple ?
(cette solution serai pour Seven)