/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 vote176 views1 answer
Vbnet check if string is only symbols
VBA
0 vote229 views1 answer
Vba line feed
VBA
0 vote191 views1 answer
Excel vba Column Name to Column Number
VBA
1 vote188 views1 answer
Add rows to datagridview vb.net
VBA
0 vote172 views1 answer
Vba add month to date
VBA
3 votes203 views2 answers
Vba active workbook path
VBA
15 votes356 views2 answers
Xl vba dynamic string array
VBA
0 vote183 views1 answer
Convert unix to date vba
VBA
5 votes212 views1 answer
Vba low word from Long Integer
VBA
0 vote179 views1 answer
Loop through each cell in dgv vbnet
VBA