Systemlautstärke Reloaded

VBGameCoder · 18. Juli 2016, 09:37

VB.NET-Quellcode

#Region "Systemlautstärke"
' Leiser
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Lautstaerke.Leiser()
End Sub
' Lauter
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
Lautstaerke.Lauter()
End Sub
' Stumm
Private Sub Button18_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
Lautstaerke.Stumm()
End Sub
#End Region
' Class Lautstärke
Public Class Lautstaerke
'Windows zugriff
Private Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
Const KEYEVENTF_KEYDOWN As Integer = 0
Const KEYEVENTF_KEYUP As Integer = 2
' Lauter
Public Shared Sub Leiser()
Call keybd_event(CByte(System.Windows.Forms.Keys.VolumeDown), 0, KEYEVENTF_KEYDOWN, 0) ' Taste runter
Call keybd_event(CByte(System.Windows.Forms.Keys.VolumeDown), 0, KEYEVENTF_KEYUP, 0) ' Taste rauf
End Sub
' Leiser
Public Shared Sub Lauter()
Call keybd_event(CByte(System.Windows.Forms.Keys.VolumeUp), 0, KEYEVENTF_KEYDOWN, 0)
Call keybd_event(CByte(System.Windows.Forms.Keys.VolumeUp), 0, KEYEVENTF_KEYUP, 0)
End Sub
' Mute
Public Shared Sub Stumm()
Call keybd_event(CByte(System.Windows.Forms.Keys.VolumeMute), 0, KEYEVENTF_KEYDOWN, 0)
Call keybd_event(CByte(System.Windows.Forms.Keys.VolumeMute), 0, KEYEVENTF_KEYUP, 0)
End Sub
End Class

Dies ist nicht mein Code aba ich habe dazu eine Frage und zwar könnte man den Code so umprogrammieren das man nur ein Programm Gezielt lauter leiser oder stumm schalten kann stat die ganze Lautstärke ? und wen ja wie ?

Vielen dank für eure hilfe

Admin-Anmerkung: Code stammt aus diesem Thread: Lautstärke von Windows verändern

Pasta · 18. Juli 2016, 12:59

Sieht cool aus !

Hier kannst du BB-Codes ausprobieren, oder mach dir einen Entwurf (unter Konversationen) und teste dort.

[Forum] Welche BBCodes (Tags) sind im Forum zur Gestaltung der Postings verfügbar? (Anleitung zur Benutzung)
[Forum] Welche BBCodes (Tags) gibt es hier im Forum zum Einfärben von Quellcodes (Syntax-Highlighting)?

VBGameCoder · 18. Juli 2016, 13:14

Habs endlich Hinbekommen xD danke dafür hättest du den auch für mein Problem auch eine Antwort ?

nafets · 18. Juli 2016, 14:02

@'thefiloe hat deine Frage doch schon beantwortet?
Zur Referenz: VisualBasic 2010 Volumen Mixer Einstehlen?

VBGameCoder · 18. Juli 2016, 14:08

Hab dies bereits versucht nur karme ich damit nicht kla Visuabasic spuckte mir Fehler raus da habe ich diesen Code wiederum gefunden der auch sehr gut Funktioniert nur leider als Gesamtlautstärke daher wollte ich nach fragen ob man diesen Code nicht eventuell um Programmieren kann :?

nafets · 18. Juli 2016, 14:46

Nein, das geht nicht.
Hol dir doch CSCore hier im Forum und schau dir den Beispielcode nochmal an:

VB.NET-Quellcode

Private Shared Sub Main(args As String())
Using sessionManager = GetDefaultAudioSessionManager2(DataFlow.Render)
Using sessionEnumerator = sessionManager.GetSessionEnumerator()
For Each session As var In sessionEnumerator
Using simpleVolume = session.QueryInterface(Of SimpleAudioVolume)()
Assert.IsNotNull(simpleVolume)
Dim volume As Single = simpleVolume.MasterVolume
simpleVolume.MasterVolume = 1
simpleVolume.MasterVolume = 0
simpleVolume.MasterVolume = volume
Dim muted As Boolean = simpleVolume.IsMuted
simpleVolume.IsMuted = Not muted
simpleVolume.IsMuted = muted
End Using
Next
End Using
End Using
Console.ReadKey()
End Sub
Private Shared Function GetDefaultAudioSessionManager2(dataFlow As DataFlow) As AudioSessionManager2
Using enumerator = New MMDeviceEnumerator()
Using device = enumerator.GetDefaultAudioEndpoint(dataFlow, Role.Multimedia)
Debug.WriteLine("DefaultDevice: " & Convert.ToString(device.FriendlyName))
Dim sessionManager = AudioSessionManager2.FromMMDevice(device)
Return sessionManager
End Using
End Using
End Function

VBGameCoder · 18. Juli 2016, 14:58

Ich habe CSCore Runtergeladen konnte aba die Dll nicht mit einbinden :?

ichduersie · 18. Juli 2016, 14:59

1. Es heißt aber

2. Warum nicht?

VBGameCoder · 18. Juli 2016, 15:03

Als ich sie Einbinden wollte sagte Visualbasic das die Datei nicht einbinbahr sei bzw "In"C:Users\Pc Name\CSCore.dll" sind keine Komponenten vorhanden, die in der Toolbox Positioniert werden Können."

ichduersie · 18. Juli 2016, 16:20

Da sind ja auch keine Controls drin. Siehe msdn.microsoft.com/de-de/library/wkze6zky(v=vs.120).aspx

thefiloe · 18. Juli 2016, 22:19

VBGameCoder schrieb:

sind keine Komponenten vorhanden, die in der Toolbox Positioniert werden Können.

Spitze... und anstelle nachzufragen eröffnet man einen neuen Thread?

VBGameCoder · 19. Juli 2016, 13:56

IchDuErSie ich habe bereits eine alternative Lösung gefunden und vielen dank für den Link zum Kostenlosen Handbuch ich dachte sowas gib gar nicht mehr sonnst hatte ich immer nur Kostenpflichtige gefunden.
Ja ich habe recht wenig Ahnung von Visualbasic in Sachen Dateien einbinden etc aba ich habe mich schon viel mit den Tools befasst ich kenne zwar nicht alles was man damit machen kann aba das Gröbste

mein Computer Spiel ist auch so weit fast fertig mir hat nur noch das mit den Musik Einstehlen Gefehlt aba das ist nun auch erledigt

ist zwahr nur eine Alternative Lösung aba besser als Garnichts

ich habe die Windows Media Komponente dazu genutzt =)

LG VBGameCoder

Systemlautstärke Reloaded

Systemlautstärke Reloaded

VB.NET-Quellcode

VB.NET-Quellcode

VBGameCoder schrieb:

Tags

Ähnliche Themen

5 Benutzer haben hier geschrieben