/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 vote162 views1 answer
Loop through each cell in dgv vbnet
VBA
0 vote153 views1 answer
Get current year vb
VBA
0 vote159 views1 answer
Remove last 8 characters from string vb
VBA
5 votes183 views1 answer
Excel vba get low byte from INTEGER
VBA
0 vote164 views1 answer
Vba type
VBA
25 votes306 views2 answers
Excel vba folder exist
VBA
0 vote158 views1 answer
Vba get workbook name
VBA
6 votes174 views1 answer
Excel vba get the path of current workbook
VBA
8 votes292 views1 answer
Vba make a short integer from two bytes
VBA
0 vote167 views1 answer
Remove series name from legendvbnet
VBA