/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 vote228 views1 answer
Vba get workbook name
VBA
20 votes294 views1 answer
Excel vba factorial
VBA
0 vote213 views1 answer
How to extract a file from an ISO:
VBA
0 vote220 views2 answers
Do until loop vba
VBA
0 vote218 views1 answer
Vbnet make a string to unicode converter
VBA
0 vote236 views1 answer
Vba add spaces
VBA
0 vote218 views1 answer
Vb.net change cursor to wait
VBA
0 vote242 views1 answer
Vbs exec hidden
VBA
4 votes231 views1 answer
Excel vba how to programmatically remove the marching ants after range copy
VBA
0 vote220 views1 answer
Excel protect cells with formulas
VBA