Bonsoir,
Voici ce que j'ai fait pour le moment :
Imports System.Runtime.InteropServices
Public Class Form1
Private phMx As IntPtr
Private ptr As IntPtr
Private isOpened As MMRESULT
Private isClosed As MMRESULT
Private volumCtrl As MIXERCONTROL
Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If isOpened = MMRESULT.MMSYSERR_NOERROR Then
isClosed = mixerClose(Me.phMx)
End If
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
ptr = Marshal.AllocHGlobal(4) 'allouer un secteur pour récupérer le handle de mixer
isOpened = mixerOpen(ptr, 0, IntPtr.Zero, IntPtr.Zero, False) 'ouverture du mixer
If isOpened = MMRESULT.MMSYSERR_NOERROR Then
phMx = Marshal.ReadIntPtr(ptr) 'lecture du pointer dans le pointer ;)
Marshal.FreeHGlobal(ptr) 'libérer ce pointer car nous avons lu la valeur de handle de mixer
volumCtrl = GetVolumeControl()
Else
MessageBox.Show(String.Format("Erreur d'ouverture du contrôleur son : " _
+ vbCrLf + "{0}", isOpened), _
"Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Sub
Private Function GetVolumeControl() As MIXERCONTROL
Dim mxlResult As MMRESULT
Dim mxl As MIXERLINE = New MIXERLINE()
mxl._Target = New Target()
mxl.cbStruct = Marshal.SizeOf(mxl)
mxl.dwComponentType = MIXERLINE_COMPONENTTYPE_DST_SPEAKERS
mxl.dwDestination = MIXERCONTROL_CONTROLTYPE_VOLUME
Dim mxlPtr As IntPtr = Marshal.AllocHGlobal(mxl.cbStruct)
Marshal.StructureToPtr(mxl, mxlPtr, True)
mxlResult = mixerGetLineInfo(phMx, mxlPtr, MIXER_GETLINEINFOF_COMPONENTTYPE)
If mxlResult = MMRESULT.MMSYSERR_NOERROR Then
'récupération d'info
mxl = DirectCast(Marshal.PtrToStructure(mxlPtr, mxl.GetType()), MIXERLINE)
Marshal.FreeHGlobal(mxlPtr)
'afficher le nom du périphérique audio dans listbox
_ListInfo.Items.Clear()
_ListInfo.Items.Add(String.Concat(mxl.szName))
_ListInfo.Items.Add(String.Concat(mxl.szShortName))
Dim mxlc As MIXERLINECONTROLS = New MIXERLINECONTROLS()
mxlc.union = New MIXERLINECONTROLS_union()
Dim volCtrl As MIXERCONTROL = New MIXERCONTROL() 'utilisé pour avoir la taille de la structure :/
mxlc.cbStruct = Marshal.SizeOf(mxlc)
mxlc.dwLineID = mxl.dwLineID
mxlc.union.dwControlType = MIXERCONTROL_CONTROLTYPE_VOLUME
mxlc.cControls = 1
mxlc.cbmxctrl = Marshal.SizeOf(volCtrl.GetType())
mxlc.pamxctrl = Marshal.AllocHGlobal(4)
Dim mxlcPtr As IntPtr = Marshal.AllocHGlobal(mxlc.cbmxctrl)
Marshal.StructureToPtr(mxlc, mxlcPtr, True)
Dim mxlcResult As MMRESULT
mxlcResult = mixerGetLineControls(phMx, mxlcPtr, MIXER_GETLINECONTROLSF_ONEBYTYPE)
If mxlResult = MMRESULT.MMSYSERR_NOERROR Then
'récupération d'info
mxlc = DirectCast(Marshal.PtrToStructure(mxlcPtr, mxlc.GetType()), MIXERLINECONTROLS)
Dim mxc As MIXERCONTROL = New MIXERCONTROL()
mxc = DirectCast(Marshal.PtrToStructure(mxlc.pamxctrl, mxc.GetType()), MIXERCONTROL)
'Marshal.FreeHGlobal(mxlPtr)
Return mxc
Else
Marshal.FreeHGlobal(mxlPtr)
MessageBox.Show(String.Format("Erreur d'ouverture du contrôleur son : " _
+ vbCrLf + "{0}", isOpened), _
"Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return Nothing
End If
Else
Marshal.FreeHGlobal(mxlPtr)
MessageBox.Show(String.Format("Erreur d'ouverture du contrôleur son : " _
+ vbCrLf + "{0}", isOpened), _
"Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return Nothing
End If
End Function
Private Sub setVolume(volume As Integer)
Dim mxcd As MIXERCONTROLDETAILS = New MIXERCONTROLDETAILS()
mxcd.union = New MIXERCONTROLDETAILS_union()
Dim vol As MIXERCONTROLDETAILS_UNSIGNED = New MIXERCONTROLDETAILS_UNSIGNED()
Dim volPtr As IntPtr = Marshal.AllocHGlobal(Marshal.SizeOf(vol))
Dim mxcdPtr As IntPtr = Marshal.AllocHGlobal(Marshal.SizeOf(mxcd))
Dim result As MMRESULT
vol.dwValue = volume
Marshal.StructureToPtr(vol, volPtr, True)
mxcd.dwControlID = volumCtrl.dwControlID
mxcd.union.hwndOwner = IntPtr.Zero
mxcd.union.cMultipleItems = 0
mxcd.cbStruct = Marshal.SizeOf(mxcd)
mxcd.cbDetails = Marshal.SizeOf(vol)
mxcd.cChannels = 1
mxcd.paDetails = volPtr
Marshal.StructureToPtr(mxcd, mxcdPtr, True)
result = mixerSetControlDetails(phMx, mxcdPtr, 0) 'MIXER_SETCONTROLDETAILSF_VALUE = 0 ---> googled it !
MessageBox.Show(result.ToString())
Marshal.FreeHGlobal(mxcdPtr)
Marshal.FreeHGlobal(volPtr)
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
setVolume(60000) 'de 0 à 65535
End Sub
End Class
Module :
Imports System.Runtime.InteropServices
Module Winmm
Public Const MAXPNAMELEN As Integer = 32
Public Const MIXER_LONG_NAME_CHARS As Integer = 64
Public Const MIXER_SHORT_NAME_CHARS = 16
Public Const MIXER_GETLINEINFOF_COMPONENTTYPE As Integer = &H3&
Public Const MIXER_GETCONTROLDETAILSF_VALUE As Integer = &H0&
Public Const MIXER_GETLINECONTROLSF_ONEBYTYPE As Integer = &H2&
Public Const MIXERLINE_COMPONENTTYPE_DST_FIRST As Integer = &H0&
Public Const MIXERLINE_COMPONENTTYPE_SRC_FIRST As Integer = &H1000&
Public Const MIXERLINE_COMPONENTTYPE_DST_SPEAKERS As Integer = _
(MIXERLINE_COMPONENTTYPE_DST_FIRST + 4)
Public Const MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE As Integer = _
(MIXERLINE_COMPONENTTYPE_SRC_FIRST + 3)
Public Const MIXERLINE_COMPONENTTYPE_SRC_LINE As Integer = _
(MIXERLINE_COMPONENTTYPE_SRC_FIRST + 2)
Public Const MIXERCONTROL_CT_CLASS_FADER As Integer = &H50000000
Public Const MIXERCONTROL_CT_UNITS_UNSIGNED = &H30000
Public Const MIXERCONTROL_CONTROLTYPE_FADER As Integer = _
(MIXERCONTROL_CT_CLASS_FADER Or _
MIXERCONTROL_CT_UNITS_UNSIGNED)
Public Const MIXERCONTROL_CONTROLTYPE_VOLUME As Integer = _
(MIXERCONTROL_CONTROLTYPE_FADER + 1)
Public Enum MMRESULT
MMSYSERR_NOERROR = 0
MMSYSERR_ERROR = 1
MMSYSERR_BADDEVICEID = 2
MMSYSERR_NOTENABLED = 3
MMSYSERR_ALLOCATED = 4
MMSYSERR_INVALHANDLE = 5
MMSYSERR_NODRIVER = 6
MMSYSERR_NOMEM = 7
MMSYSERR_NOTSUPPORTED = 8
MMSYSERR_BADERRNUM = 9
MMSYSERR_INVALFLAG = 10
MMSYSERR_INVALPARAM = 11
MMSYSERR_HANDLEBUSY = 12
MMSYSERR_INVALIDALIAS = 13
MMSYSERR_BADDB = 14
MMSYSERR_KEYNOTFOUND = 15
MMSYSERR_READERROR = 16
MMSYSERR_WRITEERROR = 17
MMSYSERR_DELETEERROR = 18
MMSYSERR_VALNOTFOUND = 19
MMSYSERR_NODRIVERCB = 20
WAVERR_BADFORMAT = 32
WAVERR_STILLPLAYING = 33
WAVERR_UNPREPARED = 34
End Enum
Public Structure MIXERLINE
Public cbStruct As Integer
Public dwDestination As Integer
Public dwSource As Integer
Public dwLineID As Integer
Public fdwLine As Integer
Public dwUser As IntPtr
Public dwComponentType As Integer
Public cChannels As Integer
Public cConnections As Integer
Public cControls As Integer
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=MIXER_SHORT_NAME_CHARS)> _
Public szShortName As Char()
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=MIXER_LONG_NAME_CHARS)> _
Public szName As Char()
Public _Target As Target
End Structure
Public Structure Target
Public dwType As Integer
Public dwDeviceID As Integer
Public wMid As Integer
Public wPid As Integer
Public vDriverVersion As Integer
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=MAXPNAMELEN)> _
Public szPname As Char()
End Structure
Public Structure MIXERCONTROLDETAILS
Public cbStruct As Integer
Public dwControlID As Integer
Public cChannels As Integer
Public union As MIXERCONTROLDETAILS_union
Public cbDetails As Integer
Public paDetails As IntPtr
End Structure
Structure MIXERCONTROLDETAILS_UNSIGNED
Public dwValue As UInteger
End Structure
Public Structure MIXERCONTROLDETAILS_union
Public hwndOwner As IntPtr
Public cMultipleItems As Integer
End Structure
Public Structure MIXERLINECONTROLS
Public cbStruct As Integer
Public dwLineID As Integer
Public union As MIXERLINECONTROLS_union
Public cControls As Integer
Public cbmxctrl As Integer
Public pamxctrl As IntPtr
End Structure
Public Structure MIXERLINECONTROLS_union
Public dwControlType As Integer
End Structure
Structure MIXERCONTROL
Public cbStruct As Integer
Public dwControlID As Integer
Public dwControlType As Integer
Public fdwControl As Integer
Public cMultipleItems As Integer
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=MIXER_SHORT_NAME_CHARS)> _
Public szShortName As Char()
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=MIXER_LONG_NAME_CHARS)> _
Public szName As Char()
Public Bounds As MIXERCONTROL_Bounds
Public Metrics As MIXERCONTROL_Metrics
End Structure
Structure MIXERCONTROL_Bounds
Public lMinimum As Long
Public lMaximum As Long
Public cSteps As Integer
Public cbCustomData As Integer
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=6)> _
Public dwReserved As Integer()
End Structure
Structure MIXERCONTROL_Metrics
Public cSteps As Integer
Public cbCustomData As Integer
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=6)> _
Public dwReserved As Integer()
End Structure
<DllImport("Winmm.dll")> _
Function mixerOpen(phmx As IntPtr, uMxId As UInt32, dwCallback As IntPtr, dwInstance As IntPtr, fdwOpen As Integer) As MMRESULT
End Function
<DllImport("Winmm.dll")> _
Function mixerClose(phmx As IntPtr) As MMRESULT
End Function
<DllImport("Winmm.dll")> _
Function mixerGetLineInfo(phmx As IntPtr, pmxl As IntPtr, fdwInfo As Integer) As MMRESULT
End Function
<DllImport("Winmm.dll")> _
Function mixerSetControlDetails(phmx As IntPtr, pmxcd As IntPtr, fdwDetails As Integer) As MMRESULT
End Function
<DllImport("Winmm.dll")> _
Function mixerGetLineControls(phmx As IntPtr, pmxlc As IntPtr, fdwControls As Integer) As MMRESULT
End Function
End Module
Comme je suis super occupé cette semaine, je finirais dès que possible. Il ne me reste plus que l'affectation du volume. J'ai une erreur de type INVALID_PARAM (en gros).
Merci de valider par "Proposer comme réponse" si celle-ci répond a votre demande !
Comment activer et régler le son automatiquement ?
