Aktuelle Lautstärkeeinstellung von Windows auslesen

  • VB.NET

Es gibt 16 Antworten in diesem Thema. Der letzte Beitrag () ist von pc-freack.

    Aktuelle Lautstärkeeinstellung von Windows auslesen

    Glaubt mir, ich hab die SuFu verwendet.
    Dieses Thema wurde schon oft behandelt, aber bisher hat bei mir nichts gefunzt.
    Die GetVolume() Funktion der SysVolume.dll gibt bei mir immer den Wert 10 zurück.
    Die Bass.dll funktioniert bei mir aus irgendeinem Grund nicht.

    Die genaue Problembeschreibung:

    Die Lautstärke, die im Mixer eingestellt ist, nicht der Pegel sollte in einem Label angezeigt werden (0 bedeutet Minimum, 100 bedeutet Maximum).

    Das Programm selbst hab ich bereits fertig, nur dass eben die GetVolume() Funktion immer 10 zurückgibt. Darum funktioniert es noch nicht.


    Ich bitte euch noch:
    Postet bitte keine Links. Das führt dann wieder dazu, dass ich kreuz und quer durch Foren verwießen werde.
    Andererseits sind C&P Codes auch nicht nötig ;)
    "Luckily luh... luckily it wasn't poi-"
    -- Brady in Wonderland, 23. Februar 2015, 1:56
    Desktop Pinner | ApplicationSettings | OnUtils

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Niko Ortner“ ()

    ich hab das gleiche Problem.
    Bei mir wird auch immer nur 10 ausgegeben.

    Hier ist der ganze code:

    Code

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Runtime.InteropServices
    3. Public Class Form1
    4. Private S As New AudioMixerHelper
    6. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    7. Timer1.Start()
    8. End Sub
    10. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    11. Label1.Text = "Aktuelle Lautstärke: " & S.GetVolume
    12. End Sub
    13. End Class
    15. Public Class AudioMixerHelper
    16. Private Const MMSYSERR_NOERROR As Integer = 0
    17. Private Const MAXPNAMELEN As Integer = 32
    18. Private Const MIXER_LONG_NAME_CHARS As Integer = 64
    19. Private Const MIXER_SHORT_NAME_CHARS As Integer = 16
    20. Private Const MIXER_GETLINEINFOF_COMPONENTTYPE As Integer = &H3
    21. Private Const MIXER_GETCONTROLDETAILSF_VALUE As Integer = &H0
    22. Private Const MIXER_GETLINECONTROLSF_ONEBYTYPE As Integer = &H2
    23. Private Const MIXER_SETCONTROLDETAILSF_VALUE As Integer = &H0
    24. Private Const MIXERLINE_COMPONENTTYPE_DST_FIRST As Integer = &H0
    25. Private Const MIXERLINE_COMPONENTTYPE_SRC_FIRST As Integer = &H1000
    26. Private Const MIXERLINE_COMPONENTTYPE_DST_SPEAKERS As Integer = MIXERLINE_COMPONENTTYPE_DST_FIRST + 4
    27. Private Const MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE As Integer = MIXERLINE_COMPONENTTYPE_SRC_FIRST + 3
    28. Private Const MIXERLINE_COMPONENTTYPE_SRC_LINE As Integer = MIXERLINE_COMPONENTTYPE_SRC_FIRST + 2
    29. Private Const MIXERCONTROL_CT_CLASS_FADER As Integer = &H50000000
    30. Private Const MIXERCONTROL_CT_UNITS_UNSIGNED As Integer = &H30000
    31. Private Const MIXERCONTROL_CONTROLTYPE_FADER As Integer = MIXERCONTROL_CT_CLASS_FADER Or MIXERCONTROL_CT_UNITS_UNSIGNED
    32. Private Const MIXERCONTROL_CONTROLTYPE_VOLUME As Integer = MIXERCONTROL_CONTROLTYPE_FADER + 1
    34. Private Declare Ansi Function mixerClose Lib "winmm.dll" (ByVal hmx As Integer) As Integer
    36. Private Declare Ansi Function mixerGetControlDetailsA Lib "winmm.dll" (ByVal hmxobj As Integer, ByRef pmxcd As MIXERCONTROLDETAILS, ByVal fdwDetails As Integer) As Integer
    38. Private Declare Ansi Function mixerGetDevCapsA Lib "winmm.dll" (ByVal uMxId As Integer, ByVal pmxcaps As MIXERCAPS, ByVal cbmxcaps As Integer) As Integer
    40. Private Declare Ansi Function mixerGetID Lib "winmm.dll" (ByVal hmxobj As Integer, ByVal pumxID As Integer, ByVal fdwId As Integer) As Integer
    42. Private Declare Ansi Function mixerGetLineControlsA Lib "winmm.dll" (ByVal hmxobj As Integer, ByRef pmxlc As MIXERLINECONTROLS, ByVal fdwControls As Integer) As Integer
    44. Private Declare Ansi Function mixerGetLineInfoA Lib "winmm.dll" (ByVal hmxobj As Integer, ByRef pmxl As MIXERLINE, ByVal fdwInfo As Integer) As Integer
    46. Private Declare Ansi Function mixerGetNumDevs Lib "winmm.dll" () As Integer
    48. Private Declare Ansi Function mixerMessage Lib "winmm.dll" (ByVal hmx As Integer, ByVal uMsg As Integer, ByVal dwParam1 As Integer, ByVal dwParam2 As Integer) As Integer
    50. Private Declare Ansi Function mixerOpen Lib "winmm.dll" (ByRef phmx As Integer, ByVal uMxId As Integer, ByVal dwCallback As Integer, ByVal dwInstance As Integer, ByVal fdwOpen As Integer) As Integer
    52. Private Declare Ansi Function mixerSetControlDetails Lib "winmm.dll" (ByVal hmxobj As Integer, ByRef pmxcd As MIXERCONTROLDETAILS, ByVal fdwDetails As Integer) As Integer
    54. Private Structure MIXERCAPS
    55. Public wMid As Integer
    56. Public wPid As Integer
    57. Public vDriverVersion As Integer
    58. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=MAXPNAMELEN)> Public szPname As String
    59. Public fdwSupport As Integer
    60. Public cDestinations As Integer
    61. End Structure 'MIXERCAPS
    63. Private Structure MIXERCONTROL
    64. Public cbStruct As Integer
    65. Public dwControlID As Integer
    66. Public dwControlType As Integer
    67. Public fdwControl As Integer
    68. Public cMultipleItems As Integer
    69. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=MIXER_SHORT_NAME_CHARS)> Public szShortName As String
    70. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=MIXER_LONG_NAME_CHARS)> Public szName As String
    71. Public lMinimum As Integer
    72. Public lMaximum As Integer
    73. <MarshalAs(UnmanagedType.U4, SizeConst:=10)> Public reserved As Integer
    74. End Structure 'MIXERCONTROL
    76. Private Structure MIXERCONTROLDETAILS
    77. Public cbStruct As Integer
    78. Public dwControlID As Integer
    79. Public cChannels As Integer
    80. Public item As Integer
    81. Public cbDetails As Integer
    82. Public paDetails As IntPtr
    83. End Structure 'MIXERCONTROLDETAILS
    85. Private Structure MIXERCONTROLDETAILS_UNSIGNED
    86. Public dwValue As Integer
    87. End Structure 'MIXERCONTROLDETAILS_UNSIGNED
    89. Private Structure MIXERLINE
    90. Public cbStruct As Integer
    91. Public dwDestination As Integer
    92. Public dwSource As Integer
    93. Public dwLineID As Integer
    94. Public fdwLine As Integer
    95. Public dwUser As Integer
    96. Public dwComponentType As Integer
    97. Public cChannels As Integer
    98. Public cConnections As Integer
    99. Public cControls As Integer
    100. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=MIXER_SHORT_NAME_CHARS)> Public szShortName As String
    101. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=MIXER_LONG_NAME_CHARS)> Public szName As String
    102. Public dwType As Integer
    103. Public dwDeviceID As Integer
    104. Public wMid As Integer
    105. Public wPid As Integer
    106. Public vDriverVersion As Integer
    107. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=MAXPNAMELEN)> Public szPname As String
    108. End Structure 'MIXERLINE
    110. Private Structure MIXERLINECONTROLS
    111. Public cbStruct As Integer
    112. Public dwLineID As Integer
    113. Public dwControl As Integer
    114. Public cControls As Integer
    115. Public cbmxctrl As Integer
    116. Public pamxctrl As IntPtr
    117. End Structure 'MIXERLINECONTROLS
    119. Private Function GetVolumeControl(ByVal hmixer As Integer, ByVal componentType As Integer, ByVal ctrlType As Integer, ByRef mxc As MIXERCONTROL, ByRef vCurrentVol As Integer) As Boolean
    120. ' This function attempts to obtain a mixer control.
    121. ' Returns True if successful.
    122. Dim mxlc As New MIXERLINECONTROLS
    123. Dim mxl As New MIXERLINE
    124. Dim pmxcd As New MIXERCONTROLDETAILS
    125. Dim du As New MIXERCONTROLDETAILS_UNSIGNED
    126. mxc = New MIXERCONTROL
    127. Dim rc As Integer
    128. Dim retValue As Boolean
    129. vCurrentVol = -1
    131. mxl.cbStruct = Marshal.SizeOf(mxl)
    132. mxl.dwComponentType = componentType
    134. rc = mixerGetLineInfoA(hmixer, mxl, MIXER_GETLINEINFOF_COMPONENTTYPE)
    136. If MMSYSERR_NOERROR = rc Then
    137. Dim sizeofMIXERCONTROL As Integer = 152
    138. Dim ctrl As Integer = Marshal.SizeOf(GetType(MIXERCONTROL))
    139. mxlc.pamxctrl = Marshal.AllocCoTaskMem(sizeofMIXERCONTROL)
    140. mxlc.cbStruct = Marshal.SizeOf(mxlc)
    141. mxlc.dwLineID = mxl.dwLineID
    142. mxlc.dwControl = ctrlType
    143. mxlc.cControls = 1
    144. mxlc.cbmxctrl = sizeofMIXERCONTROL
    146. ' Allocate a buffer for the control
    147. mxc.cbStruct = sizeofMIXERCONTROL
    149. ' Get the control
    150. rc = mixerGetLineControlsA(hmixer, mxlc, MIXER_GETLINECONTROLSF_ONEBYTYPE)
    152. If MMSYSERR_NOERROR = rc Then
    153. retValue = True
    155. ' Copy the control into the destination structure
    156. mxc = CType(Marshal.PtrToStructure(mxlc.pamxctrl, GetType(MIXERCONTROL)), MIXERCONTROL)
    157. Else
    158. retValue = False
    159. End If
    160. Dim sizeofMIXERCONTROLDETAILS As Integer = Marshal.SizeOf(GetType(MIXERCONTROLDETAILS))
    161. Dim sizeofMIXERCONTROLDETAILS_UNSIGNED As Integer = Marshal.SizeOf(GetType(MIXERCONTROLDETAILS_UNSIGNED))
    162. pmxcd.cbStruct = sizeofMIXERCONTROLDETAILS
    163. pmxcd.dwControlID = mxc.dwControlID
    164. pmxcd.paDetails = Marshal.AllocCoTaskMem(sizeofMIXERCONTROLDETAILS_UNSIGNED)
    165. pmxcd.cChannels = 1
    166. pmxcd.item = 0
    167. pmxcd.cbDetails = sizeofMIXERCONTROLDETAILS_UNSIGNED
    169. rc = mixerGetControlDetailsA(hmixer, pmxcd, MIXER_GETCONTROLDETAILSF_VALUE)
    171. du = CType(Marshal.PtrToStructure(pmxcd.paDetails, GetType(MIXERCONTROLDETAILS_UNSIGNED)), Global.SoundDevice.AudioMixerHelper.MIXERCONTROLDETAILS_UNSIGNED)
    173. vCurrentVol = du.dwValue
    175. Return retValue
    176. End If
    178. retValue = False
    179. Return retValue
    180. End Function 'GetVolumeControl
    182. Private Function SetVolumeControl(ByVal hmixer As Integer, ByVal mxc As MIXERCONTROL, ByVal volume As Integer) As Boolean
    183. ' This function sets the value for a volume control.
    184. ' Returns True if successful
    185. Dim retValue As Boolean
    186. Dim rc As Integer
    187. Dim mxcd As New MIXERCONTROLDETAILS
    188. Dim vol As New MIXERCONTROLDETAILS_UNSIGNED
    190. mxcd.item = 0
    191. mxcd.dwControlID = mxc.dwControlID
    192. mxcd.cbStruct = Marshal.SizeOf(mxcd)
    193. mxcd.cbDetails = Marshal.SizeOf(vol)
    195. ' Allocate a buffer for the control value buffer
    196. mxcd.cChannels = 1
    197. vol.dwValue = volume
    199. ' Copy the data into the control value buffer
    200. mxcd.paDetails = Marshal.AllocCoTaskMem(Marshal.SizeOf(GetType(MIXERCONTROLDETAILS_UNSIGNED)))
    201. Marshal.StructureToPtr(vol, mxcd.paDetails, False)
    203. ' Set the control value
    204. rc = mixerSetControlDetails(hmixer, mxcd, MIXER_SETCONTROLDETAILSF_VALUE)
    206. If MMSYSERR_NOERROR = rc Then
    207. retValue = True
    208. Else
    209. retValue = False
    210. End If
    211. Return retValue
    212. End Function 'SetVolumeControl
    214. Public Function GetVolume() As Integer
    215. Dim mixer As Integer
    216. Dim volCtrl As New MIXERCONTROL
    217. Dim currentVol As Integer
    218. Dim type As Integer = MIXERCONTROL_CONTROLTYPE_VOLUME
    220. mixerOpen(mixer, 0, 0, 0, 0)
    221. GetVolumeControl(mixer, MIXERLINE_COMPONENTTYPE_DST_SPEAKERS, Type, volCtrl, currentVol)
    222. mixerClose(mixer)
    224. Return CInt(10 / (65535 / currentVol))
    226. End Function 'GetVolume
    228. Public Sub SetVolume(ByVal vVolume As Integer)
    229. Dim mixer As Integer
    230. Dim volCtrl As New MIXERCONTROL
    231. Dim currentVol As Integer
    232. Dim type As Integer = MIXERCONTROL_CONTROLTYPE_VOLUME
    234. mixerOpen(mixer, 0, 0, 0, 0)
    236. GetVolumeControl(mixer, MIXERLINE_COMPONENTTYPE_DST_SPEAKERS, type, volCtrl, currentVol)
    238. If vVolume > volCtrl.lMaximum Then
    239. vVolume = volCtrl.lMaximum
    240. End If
    242. If vVolume < volCtrl.lMinimum Then
    243. vVolume = volCtrl.lMinimum
    244. End If
    246. Dim L As Integer = CInt(65535 * vVolume / 10)
    248. SetVolumeControl(mixer, volCtrl, L)
    249. GetVolumeControl(mixer, MIXERLINE_COMPONENTTYPE_DST_SPEAKERS, type, volCtrl, currentVol)
    251. If L <> currentVol Then
    252. Throw New Exception("Cannot Set Volume")
    253. End If
    255. mixerClose(mixer)
    257. End Sub 'SetVolume
    259. End Class 'AudioMixerHelper




    Ich hoffe ihr könnt mir helfen

    VB.NET-Quellcode

    1. Public Function GetVolume() As Integer
    2. Dim mixer As Integer
    3. Dim volCtrl As New MIXERCONTROL
    4. Dim currentVol As Integer
    5. Dim type As Integer = MIXERCONTROL_CONTROLTYPE_VOLUME
    7. mixerOpen(mixer, 0, 0, 0, 0)
    8. GetVolumeControl(mixer, MIXERLINE_COMPONENTTYPE_DST_SPEAKERS, Type, volCtrl, currentVol)
    9. mixerClose(mixer)
    11. Return CInt(100 / (65535 / currentVol)) '###########################################
    14. End Function 'GetVolume


    Returnwert jetzt bis 100.

    du = CType(Marshal.PtrToStructure(pmxcd.paDetails, GetType(MIXERCONTROLDETAILS_UNSIGNED)), AudioMixerHelper.MIXERCONTROLDETAILS_UNSIGNED)
    Dies mußte ich auch Änder ,sonst lief dein Cod nicht,hat aber mit dem Wert nichts gemein.

    Gruß

    VB.NET-Quellcode

    1. Public Function GetVolume() As Integer
    2. Dim mixer As Integer
    3. Dim volCtrl As New MIXERCONTROL
    4. Dim currentVol As Integer
    5. Dim type As Integer = MIXERCONTROL_CONTROLTYPE_VOLUME
    7. mixerOpen(mixer, 0, 0, 0, 0)
    8. GetVolumeControl(mixer, MIXERLINE_COMPONENTTYPE_DST_SPEAKERS, Type, volCtrl, currentVol)
    9. mixerClose(mixer)
    11. Return CInt(100 / (65535 / currentVol)) '###########################################
    14. End Function 'GetVolume


    Returnwert jetzt bis 100.

    du = CType(Marshal.PtrToStructure(pmxcd.paDetails, GetType(MIXERCONTROLDETAILS_UNSIGNED)), AudioMixerHelper.MIXERCONTROLDETAILS_UNSIGNED)
    Dies mußte ich auch Änder ,sonst lief dein Cod nicht,hat aber mit dem Wert nichts gemein.

    Gruß

    Da hab ich jetzt echt keinen Durchblick. ?(
    "Luckily luh... luckily it wasn't poi-"
    -- Brady in Wonderland, 23. Februar 2015, 1:56
    Desktop Pinner | ApplicationSettings | OnUtils

    Hallo
    Du hast kein XP?

    Verändere mal den Regler und Starte jedesmal dein Prog neu.
    Vielleicht wird nur einmal gelesen,da du mal 100 und auch 0 gelesen hast

    Sonnst könnte es an W7 liegen ,wenn du dies benutzt, ich kann es nicht testen.

    Teste ob der Timer auch tickt!

    MfG

    Bei XP funzts

    Hab's gerade bei Windows XP auf der VM probiert. Es funktioniert.
    Wenn ich in 7 den Kompatiblitätsmodus für WinXP SP3 aktiviere funktioniert es auch. Nur kann das Debugging nicht im Kompatiblitätsmodus laufen, oder doch? Wenn ja, Wie? Oder lässt sich das auch im Code unterbringen?
    "Luckily luh... luckily it wasn't poi-"
    -- Brady in Wonderland, 23. Februar 2015, 1:56
    Desktop Pinner | ApplicationSettings | OnUtils

Facebook
Telefonspende