/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

4 votes237 views1 answer
Excel vba how to reset usedrange
VBA
0 vote237 views1 answer
Vba open report
VBA
1 vote230 views1 answer
Vba listindex select multiple items vba
VBA
2 votes220 views2 answers
Constructor vb.net
VBA
0 vote250 views1 answer
Vba string
VBA
1 vote224 views1 answer
Excel vba hide zero values
VBA
0 vote221 views1 answer
Excel vba show developer tab
VBA
0 vote245 views1 answer
Excel vba Column Name from Column Number
VBA
0 vote265 views1 answer
Find database connection string vb
VBA
2 votes241 views1 answer
Vba ado ace sql alias ignored for calculated column
VBA