/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

8 votes402 views1 answer
Excel vba determine number of elements in a 2D array
VBA
0 vote333 views1 answer
Vba find sub dictionary
VBA
1 vote298 views1 answer
Vba Remove Case Sensitivity
VBA
0 vote334 views1 answer
Vbnet click on dgv cells
VBA
2 votes330 views1 answer
Excel vba check if string entirely numeric
VBA
0 vote336 views1 answer
Convert number to minutes in vba
VBA
1 vote351 views1 answer
Excel vba to lower case
VBA
0 vote370 views1 answer
Excel web scraping
VBA
0 vote332 views1 answer
String contins in vba
VBA
2 votes352 views1 answer
Excel vba check if string entirely alpha
VBA