Visual Basic.NET - Controlar el audio del pc, vb.net

   
Vista:

Controlar el audio del pc, vb.net

Publicado por jorge (6 intervenciones) el 04/02/2016 08:03:52
Hola todos, hoy vengo a ustedes en busca de alguien que me oriente en un tema que no logro controlar, estoy intentando hacer una aplicación que controle el sonido del pc, lo que busco hacer es bajar, subir, mutar y establecer el nivel de audio, ya tengo un código que encontré googleando que sube y baja el audio.

El punto mas importante y es donde necesito ayuda, ocupo obtener el nivel actual de audio para que mi programa detecte si el usuario lo cambia.

Si alguien puede orientarme, darme una pista le estaré muy agradecido!!!

Este es mi código:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
<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
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
 
Dim TRACKANTERIOR As Integer
Dim BANDERA As Boolean = False
 
Private Sub TrackBar1_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles TrackBar1.MouseUp
	If BANDERA = True Then
		If TrackBar1.Value > TRACKANTERIOR Then
			For I = TRACKANTERIOR To TrackBar1.Value
				SendMessage(Me.Handle, WM_APPCOMMAND, &H30292, APPCOMMAND_VOLUME_UP * &H10000)
			Next
		ElseIf TrackBar1.Value < TRACKANTERIOR Then
			For I = TrackBar1.Value To TRACKANTERIOR
				SendMessage(Me.Handle, WM_APPCOMMAND, &H30292, APPCOMMAND_VOLUME_DOWN * &H10000)
			Next
		End If
		TRACKANTERIOR = TrackBar1.Value
		Label1.Text = TrackBar1.Value * 2 & "  %"
		BANDERA = False
		ButtonMUTE.BackColor = Color.Black
	End If
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder