/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 vote279 views2 answers
Excel vba prevent save
VBA
0 vote281 views1 answer
Vba word open document read only
VBA
0 vote289 views1 answer
Get current url vb.net
VBA
0 vote281 views1 answer
Vba exit while
VBA
0 vote301 views4 answers
How to continue formula in below line in vba code
VBA
0 vote288 views1 answer
Vba timestamp -- milliseconds
VBA
0 vote294 views1 answer
Excel vba disable keyboard input
VBA
1 vote289 views1 answer
Excel vba first row in range
VBA
1 vote325 views1 answer
Excel vba get column number from column name
VBA
0 vote294 views1 answer
Vbnet find highest value in chart
VBA