/VBA/Checking and changing system volume vb.net

Checking and changing system volume vb.net

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

Source: stackoverflow.com

Checking and changing system volume vb.net

Dim vol As New Sound(path_to_nircmd)
vol.setVol(50)

Source: stackoverflow.com

Similar codes

0 vote356 views1 answer
System.InvalidOperationException: 'Row associated with the currency manager's position cannot be made invisible.
VBA
8 votes452 views1 answer
Excel vba make a short integer from two bytes
VBA
4 votes353 views2 answers
Vba create folder if not exist
VBA
5 votes403 views1 answer
Xlvba double quotes in string literal
VBA
0 vote368 views1 answer
Columns dont autoresize on program start vb.net
VBA
0 vote365 views1 answer
Vba round to 2 decimals
VBA
0 vote390 views1 answer
Get month number from month name vbnet
VBA
0 vote366 views1 answer
Power query M substract minimum value of column -dax
VBA
0 vote360 views1 answer
Vba test optional argument
VBA
0 vote358 views1 answer
Vba range clear formatting
VBA