/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

1 vote147 views1 answer
Vba delete file
VBA
0 vote151 views1 answer
Vba apostrophe chr
VBA
0 vote164 views2 answers
Open url from vba
VBA
5 votes177 views1 answer
Excel vba how to unit test vba code
VBA
0 vote158 views1 answer
Vba array dimensions
VBA
0 vote156 views1 answer
Sort dictionary by key vba
VBA
2 votes103 views1 answer
Excel vba pause
VBA
0 vote151 views1 answer
Visual basic msdos
VBA
0 vote173 views1 answer
Iterate all file in a folder vba
VBA
0 vote189 views1 answer
Set datetimepicker value to null vb
VBA