Windows Master Volume stellen

  • VB.NET

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von thefiloe.

    Windows Master Volume stellen

    Hi

    Ich nehme mal an, das folgende Frage schon hunderte mal gestellt wurde, aber: Wie stelle ich die Hauptlautstärke und Balance für Windows ein (mithilfe von netframework 4).

    Alle Ansätze im Netz haben mich irgendwie immer gegen ne Wand gesetzt, weil irgendwelche Objekte nicht existierten. So schwer kann es doch eigentlich gar nicht sein.

    Hoffe, ihr könnt mir da helfen.
    Liebe Grüße
    sothere

    Kannste mit meiner Lib machen. Link ist im Anhang. Installation am Besten über NuGet. Brauchste die AudioEndpointVolume Klasse aus dem CSCore.CoreAudioAPI namespace.
    Mehr infos findest du hier: [VB.NET] Systemlautstärke auslesen und ändern


    Opensource Audio-Bibliothek auf github: KLICK, im Showroom oder auf NuGet.

    Glaub mir, es geht nur über WASAPI, alle anderen APIs setzen nur entweder die Lautstärke des eigenen Programmes oder die Lautstärke der Wiedergabe. Das liegt einfach daran, dass seit Windows Vista alles nur noch über WASAPI läuft und auch die Geräte von WASAPI verwaltet werden. Alles andere wurde dann darauf angepasst, aber die alten APIs hatten da halt noch keine Unterscheidung und sie wurden auch nicht entsprechend erweitert, da Microsoft eben nur noch WASAPI entwickelt.

    Wenn du den Ton schon anderweitig abspielst ist das doch egal. Du kannst damit trotzdem die Systemlautstärke ändern.
    Mit WASAPI oder genauer CoreAudioAPI bist du sicher am Besten beraten(läuft aber nur Vista+). Du kannst damit sehr schnell und einfach die Lautstärke setzen. Falls du Hilfe beim Code brauchst, kann ich dir helfen(die Lib ist leider nicht wirklich dokumentiert). Ach ja falls es unter auch auf XP,... laufen soll, solltest du im Fall von XP die CSCore.SoundOut.MMInterop.SetVolume bzw. CSCore.SoundOut.MMInterop.GetVolume Methode verwenden. MMInterop.SetVolume(IntPtr.Zero, 1, 1) entspricht 100% und 0 anstatt der 1 ist dann 0%. 0.5 = 50% @sothere


    Opensource Audio-Bibliothek auf github: KLICK, im Showroom oder auf NuGet.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „thefiloe“ ()

    Du könntest ja auch einfach mal den Code von thefiloe anschauen und versuchen, ihn zu verstehen. Das ist ja eine der schönen Nebeneffekte bei OpenSource, man kann ziemlich einfach ziemlich viel dabei lernen :).

    Hallo,

    mit der winmm.dll funktioniert es auch, hab irgendwann mal ein VB6 Sample gefunden und .Net-conform umgeschrieben.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    3. Public Class Mixer
    5. Const MMSYSERR_NOERROR As Integer = 0
    6. Const MAXPNAMELEN As Integer = 32
    7. Const MIXER_LONG_NAME_CHARS As Integer = 64
    8. Const MIXER_SHORT_NAME_CHARS As Integer = 16
    9. Const MIXER_GETLINEINFOF_COMPONENTTYPE As Integer = &H3
    10. Const MIXER_GETCONTROLDETAILSF_VALUE As Integer = &H0
    11. Const MIXER_GETLINECONTROLSF_ONEBYTYPE As Integer = &H2
    12. Const MIXER_SETCONTROLDETAILSF_VALUE As Integer = &H0
    13. Const MIXERLINE_COMPONENTTYPE_DST_FIRST As Integer = &H0
    14. Const MIXERLINE_COMPONENTTYPE_SRC_FIRST As Integer = &H1000
    15. Const MIXERLINE_COMPONENTTYPE_DST_SPEAKERS As Integer = MIXERLINE_COMPONENTTYPE_DST_FIRST + 4
    16. Const MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE As Integer = MIXERLINE_COMPONENTTYPE_SRC_FIRST + 3
    17. Const MIXERLINE_COMPONENTTYPE_SRC_LINE As Integer = MIXERLINE_COMPONENTTYPE_SRC_FIRST + 2
    18. Const MIXERCONTROL_CT_CLASS_FADER As Integer = &H50000000
    19. Const MIXERCONTROL_CT_UNITS_UNSIGNED As Integer = &H30000
    20. Const MIXERCONTROL_CONTROLTYPE_FADER As Integer = MIXERCONTROL_CT_CLASS_FADER Or MIXERCONTROL_CT_UNITS_UNSIGNED
    21. Const MIXERCONTROL_CONTROLTYPE_VOLUME As Integer = MIXERCONTROL_CONTROLTYPE_FADER + 1
    23. <DllImport("winmm.dll")> _
    24. Public Shared Function mixerClose(ByVal hmx As IntPtr) As Integer
    25. End Function
    27. <DllImport("winmm.dll")> _
    28. Public Shared Function mixerGetControlDetails(<MarshalAs(UnmanagedType.I4)> ByVal hmxobj As Integer, ByRef pmxcd As MIXERCONTROLDETAILS, ByVal fdwDetails As Integer) As Integer
    29. End Function
    31. <DllImport("winmm.dll")> _
    32. Public Shared Function mixerGetLineControls(ByVal hmxobj As IntPtr, ByRef pmxlc As MIXERLINECONTROLS, ByVal fdwControls As Integer) As Integer
    33. End Function
    35. <DllImport("winmm.dll")> _
    36. Shared Function mixerGetLineInfo(<MarshalAs(UnmanagedType.I4)> ByVal hmxobj As Integer, ByRef pmxl As MIXERLINE, ByVal fdwInfo As MixerFlags) As MMRESULT
    37. End Function
    39. <DllImport("winmm.dll")> _
    40. Public Shared Function mixerOpen(ByRef phmx As IntPtr, ByVal uMxId As UInteger, ByVal dwCallback As IntPtr, ByVal dwInstance As IntPtr, ByVal fdwOpen As UInteger) As Integer
    41. End Function
    43. <DllImport("winmm.dll")> _
    44. Private Shared Function mixerSetControlDetails(ByVal hmxobj As IntPtr, ByRef pmxcd As MIXERCONTROLDETAILS, ByVal fdwDetails As Integer) As Integer
    45. End Function
    47. <Flags()> _
    48. Public Enum MixerFlags
    49. MIXER_GETLINEINFOF_DESTINATION = 0
    50. MIXER_GETLINEINFOF_SOURCE = 1
    51. MIXER_GETLINEINFOF_LINEID = 2
    52. MIXER_GETLINEINFOF_COMPONENTTYPE = 3
    53. MIXER_GETLINEINFOF_TARGETTYPE = 4
    54. MIXER_OBJECTF_MIXER = &H0
    55. MIXER_OBJECTF_HMIXER = &H80000000
    56. MIXER_OBJECTF_WAVEOUT = &H10000000
    57. MIXER_OBJECTF_HWAVEOUT = &H90000000
    58. MIXER_OBJECTF_WAVEIN = &H20000000
    59. MIXER_OBJECTF_HWAVEIN = &HA0000000
    60. MIXER_OBJECTF_MIDIOUT = &H30000000
    61. MIXER_OBJECTF_HMIDIOUT = &HB0000000
    62. MIXER_OBJECTF_MIDIIN = &H40000000
    63. MIXER_OBJECTF_HMIDIIN = &HC0000000
    64. MIXER_OBJECTF_AUX = &H50000000
    65. End Enum
    67. Enum MMRESULT
    68. MMSYSERR_NOERROR = 0
    69. MMSYSERR_ERROR = 1
    70. MMSYSERR_BADDEVICEID = 2
    71. MMSYSERR_NOTENABLED = 3
    72. MMSYSERR_ALLOCATED = 4
    73. MMSYSERR_INVALHANDLE = 5
    74. MMSYSERR_NODRIVER = 6
    75. MMSYSERR_NOMEM = 7
    76. MMSYSERR_NOTSUPPORTED = 8
    77. MMSYSERR_BADERRNUM = 9
    78. MMSYSERR_INVALFLAG = 10
    79. MMSYSERR_INVALPARAM = 11
    80. MMSYSERR_HANDLEBUSY = 12
    81. MMSYSERR_INVALIDALIAS = 13
    82. MMSYSERR_BADDB = 14
    83. MMSYSERR_KEYNOTFOUND = 15
    84. MMSYSERR_READERROR = 16
    85. MMSYSERR_WRITEERROR = 17
    86. MMSYSERR_DELETEERROR = 18
    87. MMSYSERR_VALNOTFOUND = 19
    88. MMSYSERR_NODRIVERCB = 20
    89. WAVERR_BADFORMAT = 32
    90. WAVERR_STILLPLAYING = 33
    91. WAVERR_UNPREPARED = 34
    92. End Enum
    94. Public Structure MIXERCAPS
    95. Public wMid As Integer
    96. Public wPid As Integer
    97. Public vDriverVersion As Integer
    98. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=MAXPNAMELEN)> Public szPname As String
    99. Public fdwSupport As Integer
    100. Public cDestinations As Integer
    101. End Structure
    103. Public Structure MIXERCONTROL
    104. Public cbStruct As Integer
    105. Public dwControlID As Integer
    106. Public dwControlType As Integer
    107. Public fdwControl As Integer
    108. Public cMultipleItems As Integer
    109. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=MIXER_SHORT_NAME_CHARS)> Public szShortName As String
    110. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=MIXER_LONG_NAME_CHARS)> Public szName As String
    111. Public lMinimum As Integer
    112. Public lMaximum As Integer
    113. <MarshalAs(UnmanagedType.U4, SizeConst:=10)> Public reserved As Integer
    114. End Structure
    116. Public Structure MIXERCONTROLDETAILS
    117. Public cbStruct As Integer
    118. Public dwControlID As Integer
    119. Public cChannels As Integer
    120. Public item As Integer
    121. Public cbDetails As Integer
    122. Public paDetails As IntPtr
    123. End Structure
    125. Public Structure MIXERCONTROLDETAILS_UNSIGNED
    126. Public dwValue As Integer
    127. End Structure
    129. Public Structure MIXERLINE
    130. Public cbStruct As Integer
    131. Public dwDestination As Integer
    132. Public dwSource As Integer
    133. Public dwLineID As Integer
    134. Public fdwLine As Integer
    135. Public dwUser As Integer
    136. Public dwComponentType As Integer
    137. Public cChannels As Integer
    138. Public cConnections As Integer
    139. Public cControls As Integer
    140. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=MIXER_SHORT_NAME_CHARS)> Public szShortName As String
    141. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=MIXER_LONG_NAME_CHARS)> Public szName As String
    142. Public dwType As Integer
    143. Public dwDeviceID As Integer
    144. Public wMid As Integer
    145. Public wPid As Integer
    146. Public vDriverVersion As Integer
    147. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=MAXPNAMELEN)> Public szPname As String
    148. End Structure
    150. Public Structure MIXERLINECONTROLS
    151. Public cbStruct As Integer
    152. Public dwLineID As Integer
    153. Public dwControl As Integer
    154. Public cControls As Integer
    155. Public cbmxctrl As Integer
    156. Public pamxctrl As IntPtr
    157. End Structure
    159. Public Function GetVolumeControl(ByVal hmixer As Integer, ByVal componentType As Integer, ByVal ctrlType As Integer, ByRef mxc As MIXERCONTROL, ByRef vCurrentVol As Integer) As Boolean
    160. Dim mxlc As New MIXERLINECONTROLS
    161. Dim mxl As New MIXERLINE
    162. Dim pmxcd As New MIXERCONTROLDETAILS
    163. Dim du As New MIXERCONTROLDETAILS_UNSIGNED
    164. mxc = New MIXERCONTROL
    165. Dim rc As Integer
    166. Dim retValue As Boolean
    167. vCurrentVol = -1
    168. mxl.cbStruct = Marshal.SizeOf(mxl)
    169. mxl.dwComponentType = componentType
    170. rc = mixerGetLineInfo(hmixer, mxl, CType(MIXER_GETLINEINFOF_COMPONENTTYPE, MixerFlags))
    171. If MMSYSERR_NOERROR = rc Then
    172. Dim sizeofMIXERCONTROL As Integer = 152
    173. Dim ctrl As Integer = Marshal.SizeOf(GetType(MIXERCONTROL))
    174. mxlc.pamxctrl = Marshal.AllocCoTaskMem(sizeofMIXERCONTROL)
    175. mxlc.cbStruct = Marshal.SizeOf(mxlc)
    176. mxlc.dwLineID = mxl.dwLineID
    177. mxlc.dwControl = ctrlType
    178. mxlc.cControls = 1
    179. mxlc.cbmxctrl = sizeofMIXERCONTROL
    180. mxc.cbStruct = sizeofMIXERCONTROL
    181. rc = mixerGetLineControls(CType(hmixer, IntPtr), mxlc, MIXER_GETLINECONTROLSF_ONEBYTYPE)
    182. If MMSYSERR_NOERROR = rc Then
    183. retValue = True
    184. mxc = CType(Marshal.PtrToStructure(mxlc.pamxctrl, GetType(MIXERCONTROL)), MIXERCONTROL)
    185. Else : retValue = False
    186. End If
    187. Dim sizeofMIXERCONTROLDETAILS As Integer = Marshal.SizeOf(GetType(MIXERCONTROLDETAILS))
    188. Dim sizeofMIXERCONTROLDETAILS_UNSIGNED As Integer = Marshal.SizeOf(GetType(MIXERCONTROLDETAILS_UNSIGNED))
    189. pmxcd.cbStruct = sizeofMIXERCONTROLDETAILS
    190. pmxcd.dwControlID = mxc.dwControlID
    191. pmxcd.paDetails = Marshal.AllocCoTaskMem(sizeofMIXERCONTROLDETAILS_UNSIGNED)
    192. pmxcd.cChannels = 1
    193. pmxcd.item = 0
    194. pmxcd.cbDetails = sizeofMIXERCONTROLDETAILS_UNSIGNED
    195. rc = mixerGetControlDetails(hmixer, pmxcd, MIXER_GETCONTROLDETAILSF_VALUE)
    196. du = CType(Marshal.PtrToStructure(pmxcd.paDetails, GetType(MIXERCONTROLDETAILS_UNSIGNED)), MIXERCONTROLDETAILS_UNSIGNED)
    197. vCurrentVol = du.dwValue
    198. Return retValue
    199. End If
    200. retValue = False
    201. Return retValue
    202. End Function
    204. Private Function SetVolumeControl(ByVal hmixer As Integer, ByVal mxc As MIXERCONTROL, ByVal volume As Integer) As Boolean
    205. Dim retValue As Boolean
    206. Dim rc As Integer
    207. Dim mxcd As New MIXERCONTROLDETAILS
    208. Dim vol As New MIXERCONTROLDETAILS_UNSIGNED
    209. mxcd.item = 0
    210. mxcd.dwControlID = mxc.dwControlID
    211. mxcd.cbStruct = Marshal.SizeOf(mxcd)
    212. mxcd.cbDetails = Marshal.SizeOf(vol)
    213. mxcd.cChannels = 1
    214. vol.dwValue = volume
    215. mxcd.paDetails = Marshal.AllocCoTaskMem(Marshal.SizeOf(GetType(MIXERCONTROLDETAILS_UNSIGNED)))
    216. Marshal.StructureToPtr(vol, mxcd.paDetails, False)
    217. rc = mixerSetControlDetails(CType(hmixer, IntPtr), mxcd, MIXER_SETCONTROLDETAILSF_VALUE)
    218. If MMSYSERR_NOERROR = rc Then
    219. retValue = True
    220. Else : retValue = False
    221. End If
    222. Return retValue
    223. End Function
    225. Public Function GetVolume() As Integer
    226. Dim volCtrl As New MIXERCONTROL
    227. Dim currentVol As Integer
    228. mixerOpen(IntPtr.Zero, 0, IntPtr.Zero, IntPtr.Zero, 0)
    229. GetVolumeControl(0, MIXERLINE_COMPONENTTYPE_DST_SPEAKERS, MIXERCONTROL_CONTROLTYPE_VOLUME, volCtrl, currentVol)
    230. mixerClose(IntPtr.Zero)
    231. Return CInt(10 / (65535 / currentVol))
    232. End Function
    234. Public Sub SetVolume(ByVal vVolume As Integer)
    235. Dim volCtrl As New MIXERCONTROL
    236. Dim currentVol As Integer
    237. mixerOpen(IntPtr.Zero, 0, IntPtr.Zero, IntPtr.Zero, 0)
    238. GetVolumeControl(0, MIXERLINE_COMPONENTTYPE_DST_SPEAKERS, MIXERCONTROL_CONTROLTYPE_VOLUME, volCtrl, currentVol)
    239. If vVolume > volCtrl.lMaximum Then
    240. vVolume = volCtrl.lMaximum
    241. End If
    242. If vVolume < volCtrl.lMinimum Then
    243. vVolume = volCtrl.lMinimum
    244. End If
    245. Dim L As Integer = CInt(65535 * vVolume / 10)
    246. SetVolumeControl(0, volCtrl, L)
    247. GetVolumeControl(0, MIXERLINE_COMPONENTTYPE_DST_SPEAKERS, MIXERCONTROL_CONTROLTYPE_VOLUME, volCtrl, currentVol)
    248. If L <> currentVol Then
    249. Throw New Exception("Can´t Set Volume")
    250. End If
    251. mixerClose(IntPtr.Zero)
    252. End Sub
    254. End Class


    mfG

    Derfuhr

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