Comprobación y cambio de volumen del sistema VB.NET
Dim vol As New Sound(path_to_nircmd)
vol.setVol(50)
Dizzy Dolphin
Dim vol As New Sound(path_to_nircmd)
vol.setVol(50)Public Class Sound
Dim nircmd As String
Const MAXVOL As Integer = 65535
Public Sub New(ByVal nircmd_location As String)
nircmd = nircmd_location
End Sub
Public Sub setVol(ByVal level As Integer)
Dim p As New ProcessStartInfo
p.FileName = nircmd
p.Arguments = "setsysvolume " & (MAXVOL * (level / 100)).ToString
Process.Start(p)
End Sub
End Class