Hallo,
bei YouTube stört mich die laute Werbung. Auch mitten in Filmen oder am Anfang. Wollte mir etwas schreiben wo ich die Lautstärke auf Zimmerlautstärke begrenzen kann. (Einfacher Windows 8.1 Laptop.) Unten ist das was ich gefunden habe und was funktioniert.
Im Code sind es Buttons. Es würde dann über eine Timer Funktion gehen die wenn es lauter wird auf den gewünschten Maximalwert herabregelt und dann wieder auf den Ausgangswert.
Aber: Wie kann ich die aktuelle Lautstärke feststellen? Fast glaube ich so etwas geht nicht. Also einfach das zu Laute rausnehmen.
Grüße
Markus
Imports System.Runtime.InteropServices
Public Class Form1
<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
End Function
Declare Function waveOutGetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, lpdwVolume As Long) As Long
Const WM_APPCOMMAND As UInteger = &H319
Const APPCOMMAND_VOLUME_UP As UInteger = &HA
Const APPCOMMAND_VOLUME_DOWN As UInteger = &H9
Const APPCOMMAND_VOLUME_MUTE As UInteger = &H8
Private Sub Button_Lauter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Lauter.Click
SendMessage(Me.Handle, WM_APPCOMMAND, &H30292, APPCOMMAND_VOLUME_UP * &H10000)
End Sub
Private Sub Button_Leiser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Leiser.Click
SendMessage(Me.Handle, WM_APPCOMMAND, &H30292, APPCOMMAND_VOLUME_DOWN * &H10000)
End Sub
Private Sub Button_TonAus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Ton_Aus.Click
SendMessage(Me.Handle, WM_APPCOMMAND, &H200EB0, APPCOMMAND_VOLUME_MUTE * &H10000)
End Sub
End Class
