/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

1 vote158 views1 answer
Extract the second word in a text in excel
VBA
0 vote132 views1 answer
System.InvalidOperationException: 'Row associated with the currency manager's position cannot be made invisible.
VBA
0 vote127 views1 answer
Add Formula to Shape Text in VBA
VBA
0 vote155 views1 answer
Delete all controls in an area vb
VBA
22 votes275 views1 answer
Xl vba check for folder
VBA
5 votes156 views1 answer
Excel vba second byte from INTEGER
VBA
0 vote150 views1 answer
Vbnet click on dgv cells
VBA
5 votes138 views1 answer
Excel formula how to create strings containing double quotes
VBA
0 vote153 views2 answers
S yyyy-MM-dd em vb net
VBA
0 vote136 views1 answer
Vba array of integers
VBA