/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

8 votes245 views1 answer
Vba convert 2 bytes to an integer
VBA
0 vote136 views1 answer
Excel vba StartUpPosition
VBA
0 vote133 views1 answer
Vba find last column in a row with data
VBA
0 vote130 views1 answer
Vbnet hex to binary
VBA
0 vote137 views1 answer
Vba dictionary length
VBA
0 vote131 views1 answer
Excel vba protect sheet
VBA
0 vote129 views1 answer
How to use if condition in time vba
VBA
0 vote143 views1 answer
Vba registry settings
VBA
0 vote165 views1 answer
Check if cell is dbnullvb.net
VBA
0 vote124 views1 answer
Change whcih control a user has selected vb
VBA