/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 vote110 views1 answer
Vbnet access System.InvalidOperationException: 'Update requires a valid UpdateCommand when passed DataRow collection with modified rows.'
VBA
3 votes111 views1 answer
Excel vba last row in range
VBA
0 vote113 views1 answer
Vba len variant
VBA
0 vote120 views1 answer
Excel vba move down to next visible cell
VBA
8 votes125 views1 answer
Excel vba make integer
VBA
1 vote85 views1 answer
How to open cmd with vbd
VBA
0 vote112 views1 answer
Vbnet get file name from path
VBA
4 votes91 views2 answers
Vba last row
VBA
2 votes114 views1 answer
Vba split string
VBA
0 vote131 views2 answers
Vba remove line breaks
VBA