/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 vote232 views1 answer
Convert number to minutes in vba
VBA
1 vote237 views1 answer
Excel vba Populating a combobox on a userform from a range of cells
VBA
0 vote225 views1 answer
Change form background image vb
VBA
0 vote244 views1 answer
Rotate image by any angle vb.net
VBA
0 vote221 views1 answer
Vb test if reference is null
VBA
1 vote222 views1 answer
Vbscript convert ascii code to character
VBA
22 votes304 views1 answer
Excelvba check for directory
VBA
0 vote251 views1 answer
Vba horizontalalignment
VBA
0 vote240 views1 answer
Vb get ip address
VBA
0 vote228 views1 answer
Vb net show lines for all axis labels in chart
VBA