/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 votes138 views1 answer
Excel vba how to get a range's full address including sheet name
VBA
8 votes147 views1 answer
Run command pormpt in background windows
VBA
0 vote137 views1 answer
Vbs run with cscript
VBA
0 vote141 views1 answer
Vba round to 2 decimals
VBA
0 vote129 views1 answer
Worksheet.pastespecial textbox
VBA
0 vote115 views1 answer
Vba check 32 or 64 bit
VBA
0 vote122 views1 answer
Vba string
VBA
0 vote122 views2 answers
Get excel file from email attachment in vba
VBA
0 vote120 views1 answer
Excel vba copy range with filter
VBA
0 vote134 views1 answer
Vba listbox remove all items
VBA