/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

2 votes206 views2 answers
Constructor vb.net
VBA
0 vote218 views1 answer
Excel vba select multiple shapes
VBA
0 vote233 views2 answers
Open url from vba
VBA
0 vote264 views1 answer
Vba userform textbox wrap text
VBA
1 vote219 views1 answer
Vba declare api 64 bit 32 bit
VBA
-1 vote258 views1 answer
How save excel through visual basic
VBA
5 votes240 views1 answer
Xlvba double quotes in string literal
VBA
0 vote251 views1 answer
Vbscript Trim
VBA
3 votes238 views1 answer
Vba post request json
VBA
4 votes243 views1 answer
VBA Deep Clone Dictionary
VBA