Controlar el audio del pc, vb.net
Publicado por jorge (9 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:
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 = FalsePrivate Sub TrackBar1_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles TrackBar1.MouseUp
If BANDERA = True ThenIf 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 = FalseButtonMUTE.BackColor = Color.Black
End If
End Sub
Valora esta pregunta
0