Systemweite Lautstärke

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von NscMike.

    Systemweite Lautstärke

    Hallo leute, ich möchte die Systemweite Lautstärke per Code verändern können. Es gab auch mal eine Libary ([Release] SysVolume) aber leider gibt es die die Datei nicht mehr. Kann jemand helfen? MfG

    Das ist nicht so einfach ich habe damit auch meine Probleme.
    Vielleicht Hilft dir mein PRoblempost weiter:

    [Allgemein] Volumen ändern funktioniert nicht O.o
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Hi

    Sieh dir mal das hier an:

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    3. Public Class Sound
    5. #Region "Comments"
    6. ' This class is responisble for all interactions for muting and controlling the master volume level
    8. ' There is no warranty associated with this code - if you use this and it blows up you machine.
    9. ' Well, that will teach you to write you own code in future, won't it ;-)
    11. ' Mark Dryden (aka Drydo@vbcity.com)
    12. #End Region
    14. #Region "Constants"
    15. Private Const MMSYSERR_NOERROR As Integer = 0
    16. Private Const MAXPNAMELEN As Integer = 32
    17. Private Const MIXER_LONG_NAME_CHARS As Integer = 64
    18. Private Const MIXER_SHORT_NAME_CHARS As Integer = 16
    19. Private Const MIXERCONTROL_CT_CLASS_FADER As Integer = &H50000000
    20. Private Const MIXERCONTROL_CT_UNITS_UNSIGNED As Integer = &H30000
    21. Private Const MIXERCONTROL_CT_UNITS_BOOLEAN As Integer = &H10000
    22. Private Const MIXERCONTROL_CT_CLASS_SWITCH As Integer = &H20000000
    23. Private Const MIXERLINE_COMPONENTTYPE_DST_FIRST As Integer = &H0&
    24. Private Const MIXERLINE_COMPONENTTYPE_DST_SPEAKERS As Integer = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 4)
    25. Private Const MIXERCONTROL_CONTROLTYPE_FADER As Integer = (MIXERCONTROL_CT_CLASS_FADER Or MIXERCONTROL_CT_UNITS_UNSIGNED)
    26. Private Const MIXERCONTROL_CONTROLTYPE_VOLUME As Integer = (MIXERCONTROL_CONTROLTYPE_FADER + 1)
    27. Private Const MIXER_GETLINEINFOF_COMPONENTTYPE As Integer = &H3&
    28. Private Const MIXER_GETLINECONTROLSF_ONEBYTYPE As Integer = &H2
    29. Private Const MIXERCONTROL_CONTROLTYPE_BASS As Integer = (MIXERCONTROL_CONTROLTYPE_FADER + 2)
    30. Private Const MIXERCONTROL_CONTROLTYPE_TREBLE As Integer = (MIXERCONTROL_CONTROLTYPE_FADER + 3)
    31. Private Const MIXERCONTROL_CONTROLTYPE_EQUALIZER As Integer = (MIXERCONTROL_CONTROLTYPE_FADER + 4)
    32. Private Const MIXERCONTROL_CONTROLTYPE_BOOLEAN As Integer = (MIXERCONTROL_CT_CLASS_SWITCH Or MIXERCONTROL_CT_UNITS_BOOLEAN)
    33. Private Const MIXERCONTROL_CONTROLTYPE_MUTE As Integer = (MIXERCONTROL_CONTROLTYPE_BOOLEAN + 2)
    34. #End Region
    36. #Region "Structs"
    38. <StructLayout(LayoutKind.Sequential)> _
    39. Private Structure MIXERCONTROL
    40. <FieldOffset(0)> Public cbStruct As Integer ' size in Byte of MIXERCONTROL
    41. <FieldOffset(4)> Public dwControlID As Integer ' unique control id for mixer device
    42. <FieldOffset(8)> Public dwControlType As Integer ' MIXERCONTROL_CONTROLTYPE_xxx
    43. <FieldOffset(12)> Public fdwControl As Integer ' MIXERCONTROL_CONTROLF_xxx
    44. <FieldOffset(16)> Public cMultipleItems As Integer ' if MIXERCONTROL_CONTROLF_MULTIPLE set
    45. <FieldOffset(20), MarshalAsAttribute(UnmanagedType.ByValTStr, SizeConst:=MIXER_SHORT_NAME_CHARS)> Public szShortName As String ' * MIXER_SHORT_NAME_CHARS ' short name of control
    46. <FieldOffset(36), MarshalAsAttribute(UnmanagedType.ByValTStr, SizeConst:=MIXER_LONG_NAME_CHARS)> Public szName As String ' * MIXER_LONG_NAME_CHARS ' Integer name of control
    47. <FieldOffset(100)> Public lMinimum As Integer ' Minimum value
    48. <FieldOffset(104)> Public lMaximum As Integer ' Maximum value
    49. <FieldOffset(108), MarshalAs(UnmanagedType.ByValArray, SizeConst:=11, ArraySubType:=UnmanagedType.AsAny)> Public reserved() As Integer ' reserved structure space
    50. End Structure
    52. <StructLayout(LayoutKind.Sequential)> _
    53. Private Structure MIXERCONTROLDETAILS
    54. <FieldOffset(0)> Public cbStruct As Integer ' size in Byte of MIXERCONTROLDETAILS
    55. <FieldOffset(4)> Public dwControlID As Integer ' control id to get/set details on
    56. <FieldOffset(8)> Public cChannels As Integer ' number of channels in paDetails array
    57. <FieldOffset(12)> Public item As Integer ' hwndOwner or cMultipleItems
    58. <FieldOffset(16)> Public cbDetails As Integer ' size of _one_ details_XX struct
    59. <FieldOffset(20)> Public paDetails As IntPtr ' pointer to array of details_XX structs
    60. End Structure
    62. <StructLayout(LayoutKind.Sequential)> _
    63. Private Structure MIXERCONTROLDETAILS_UNSIGNED
    64. <FieldOffset(0)> Public dwValue As Integer ' value of the control
    65. End Structure
    67. <StructLayout(LayoutKind.Sequential)> _
    68. Private Structure MIXERLINECONTROLS
    69. <FieldOffset(0)> Public cbStruct As Integer ' size in Byte of MIXERLINECONTROLS
    70. <FieldOffset(4)> Public dwLineID As Integer ' line id (from MIXERLINE.dwLineID)
    71. <FieldOffset(8)> Public dwControl As Integer ' MIXER_GETLINECONTROLSF_ONEBYTYPE
    72. <FieldOffset(12)> Public cControls As Integer ' count of controls pmxctrl points to
    73. <FieldOffset(16)> Public cbmxctrl As Integer ' size in Byte of _one_ MIXERCONTROL
    74. <FieldOffset(20)> Public pamxctrl As IntPtr ' pointer to first MIXERCONTROL array
    75. End Structure
    77. <StructLayout(LayoutKind.Sequential)> _
    78. Private Structure MIXERLINE
    79. <FieldOffset(0)> Public cbStruct As Integer ' size of MIXERLINE structure
    80. <FieldOffset(4)> Public dwDestination As Integer ' zero based destination index
    81. <FieldOffset(8)> Public dwSource As Integer ' zero based source index (if source)
    82. <FieldOffset(12)> Public dwLineID As Integer ' unique line id for mixer device
    83. <FieldOffset(16)> Public fdwLine As Integer ' state/information about line
    84. <FieldOffset(20)> Public dwUser As Integer ' driver specific information
    85. <FieldOffset(24)> Public dwComponentType As Integer ' component type line connects to
    86. <FieldOffset(28)> Public cChannels As Integer ' number of channels line supports
    87. <FieldOffset(32)> Public cConnections As Integer ' number of connections (possible)
    88. <FieldOffset(36)> Public cControls As Integer ' number of controls at this line
    89. <FieldOffset(40), MarshalAsAttribute(UnmanagedType.ByValTStr, SizeConst:=MIXER_SHORT_NAME_CHARS)> Public szShortName As String ' * MIXER_SHORT_NAME_CHARS
    90. <FieldOffset(56), MarshalAsAttribute(UnmanagedType.ByValTStr, SizeConst:=MIXER_LONG_NAME_CHARS)> Public szName As String ' * MIXER_LONG_NAME_CHARS
    91. <FieldOffset(120)> Public dwType As Integer
    92. <FieldOffset(124)> Public dwDeviceID As Integer
    93. <FieldOffset(128)> Public wMid As Integer
    94. <FieldOffset(132)> Public wPid As Integer
    95. <FieldOffset(136)> Public vDriverVersion As Integer
    96. <FieldOffset(168), MarshalAsAttribute(UnmanagedType.ByValTStr, SizeConst:=MAXPNAMELEN)> Public szPname As String ' * MAXPNAMELEN
    97. End Structure
    99. #End Region
    101. #Region "API Declarations"
    103. Private Declare Function mixerOpen Lib "winmm.dll" _
    104. (ByRef phmx As Integer, <MarshalAs(UnmanagedType.U4)> ByVal uMxId As Integer, ByVal dwCallback As Integer, ByVal dwInstance As Integer, ByVal fdwOpen As Integer) As Integer
    106. Private Declare Function mixerGetLineInfo Lib "winmm.dll" Alias "mixerGetLineInfoA" _
    107. (<MarshalAs(UnmanagedType.I4)> ByVal hmxobj As Integer, ByRef pmxl As MIXERLINE, ByVal fdwInfo As Integer) As Integer
    109. Private Declare Function mixerGetLineControls Lib "winmm.dll" Alias "mixerGetLineControlsA" _
    110. (<MarshalAs(UnmanagedType.I4)> ByVal hmxobj As Integer, ByRef pmxlc As MIXERLINECONTROLS, ByVal fdwControls As Integer) As Integer
    112. Private Declare Function mixerSetControlDetails Lib "winmm.dll" (<MarshalAs(UnmanagedType.I4)> ByVal hmxobj As Integer, _
    113. ByRef pmxcd As MIXERCONTROLDETAILS, ByVal fdwDetails As Integer) As Integer
    115. #End Region
    117. Public Sub SetVolume(ByVal Level As Integer)
    118. ' Sets the volume to a specific percentage as passed through
    119. Dim hmixer As Integer
    120. Dim volCtrl As New MIXERCONTROL
    121. Dim lngReturn As Integer
    122. Dim lngVolSetting As Integer
    124. ' Obtain the hmixer struct
    125. lngReturn = mixerOpen(hmixer, 0, 0, 0, 0)
    127. ' Error check
    128. If lngReturn <> 0 Then Exit Sub
    130. ' Obtain the volumne control object
    131. Call GetVolumeControl(hmixer, MIXERLINE_COMPONENTTYPE_DST_SPEAKERS, _
    132. MIXERCONTROL_CONTROLTYPE_VOLUME, volCtrl)
    134. ' Then determine the value of the volume
    135. lngVolSetting = CType(volCtrl.lMaximum * (Level / 100), Integer)
    137. ' Then set the volume
    138. SetVolumeControl(hmixer, volCtrl, lngVolSetting)
    139. End Sub
    141. Public Sub SetSound(ByVal boolMute As Boolean)
    142. ' This routine sets the volume setting of the current unit depending on the value passed through
    143. Dim hmixer As Integer
    144. Dim volCtrl As New MIXERCONTROL
    145. Dim lngReturn As Integer
    146. Dim lngVolSetting As Integer
    148. ' Obtain the hmixer struct
    149. lngReturn = mixerOpen(hmixer, 0, 0, 0, 0)
    151. ' Error check
    152. If lngReturn <> 0 Then Exit Sub
    154. ' Obtain the volumne control object
    155. Call GetVolumeControl(hmixer, MIXERLINE_COMPONENTTYPE_DST_SPEAKERS, _
    156. MIXERCONTROL_CONTROLTYPE_MUTE, volCtrl)
    158. ' Then determine the value of the volume
    159. If boolMute Then
    160. ' Mute
    161. lngVolSetting = 1
    162. Else
    163. ' Turn the sound on
    164. lngVolSetting = 0
    165. End If
    167. ' Then set the volume
    168. SetVolumeControl(hmixer, volCtrl, lngVolSetting)
    169. End Sub
    171. Private Function GetVolumeControl(ByVal hmixer As Integer, ByVal componentType As Integer, ByVal ctrlType As Integer, _
    172. ByRef mxc As MIXERCONTROL) As Boolean
    173. ' Obtains an appropriate pointer and info for the volume control
    175. ' [Note: original source taken from MSDN http://support.microsoft.com/default.aspx?scid=KB;EN-US;Q178456&]
    177. ' This function attempts to obtain a mixer control. Returns True if successful.
    178. Dim mxlc As New MIXERLINECONTROLS
    179. Dim mxl As New MIXERLINE
    180. Dim rc As Integer, pmem As IntPtr
    182. mxl.cbStruct = Marshal.SizeOf(mxl)
    183. mxl.dwComponentType = componentType
    185. ' Obtain a line corresponding to the component type
    186. rc = mixerGetLineInfo(hmixer, mxl, MIXER_GETLINEINFOF_COMPONENTTYPE)
    188. If (MMSYSERR_NOERROR = rc) Then
    189. mxlc.cbStruct = Marshal.SizeOf(mxlc)
    190. mxlc.dwLineID = mxl.dwLineID
    191. mxlc.dwControl = ctrlType
    192. mxlc.cControls = 1
    193. mxlc.cbmxctrl = Marshal.SizeOf(mxc)
    195. ' Allocate a buffer for the control
    196. pmem = Marshal.AllocHGlobal(Marshal.SizeOf(mxc))
    197. mxlc.pamxctrl = pmem
    199. mxc.cbStruct = Marshal.SizeOf(mxc)
    201. ' Get the control
    202. rc = mixerGetLineControls(hmixer, _
    203. mxlc, _
    204. MIXER_GETLINECONTROLSF_ONEBYTYPE)
    206. If (MMSYSERR_NOERROR = rc) Then
    208. mxc = CType(Marshal.PtrToStructure(mxlc.pamxctrl, GetType(MIXERCONTROL)), MIXERCONTROL)
    210. Marshal.FreeHGlobal(pmem)
    211. Return True
    212. End If
    213. Marshal.FreeHGlobal(pmem)
    214. Exit Function
    215. End If
    217. Return False
    218. End Function
    220. Private Function SetVolumeControl(ByVal hmixer As Integer, _
    221. ByVal mxc As MIXERCONTROL, _
    222. ByVal volume As Integer) As Boolean
    223. ' Sets the volumne from the pointer of the object passed through
    225. ' [Note: original source taken from MSDN http://support.microsoft.com/default.aspx?scid=KB;EN-US;Q178456&]
    227. 'This function sets the value for a volume control. Returns True if successful
    229. Dim mxcd As MIXERCONTROLDETAILS
    230. Dim vol As MIXERCONTROLDETAILS_UNSIGNED
    231. Dim rc As Integer
    233. Dim hptr As IntPtr
    235. mxcd.item = 0
    236. mxcd.dwControlID = mxc.dwControlID
    237. mxcd.cbStruct = Marshal.SizeOf(mxcd)
    238. mxcd.cbDetails = Marshal.SizeOf(vol)
    240. hptr = Marshal.AllocHGlobal(Marshal.SizeOf(vol))
    242. ' Allocate a buffer for the control value buffer
    243. mxcd.paDetails = hptr
    244. mxcd.cChannels = 1
    245. vol.dwValue = volume
    247. Marshal.StructureToPtr(vol, hptr, False)
    249. ' Set the control value
    250. rc = mixerSetControlDetails(hmixer, _
    251. mxcd, _
    252. 0)
    254. Marshal.FreeHGlobal(hptr)
    256. If (MMSYSERR_NOERROR = rc) Then
    257. Return True
    258. Else
    259. Return False
    260. End If
    261. End Function
    262. End Class




    Der Code stammt zwar nicht von mir, sollte aber funktionieren. Fragt mich bitte nicht wo ich den her habe... Ich weis es nicht mehr