/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 vote215 views1 answer
How to make a if statement with vbs
VBA
0 vote211 views1 answer
Vba nested dictionary
VBA
0 vote321 views2 answers
VB
VBA
0 vote214 views1 answer
Excel vba chrw max value
VBA
2 votes232 views1 answer
Vba file from path
VBA
1 vote229 views1 answer
If inputbox cancel vba
VBA
0 vote216 views1 answer
Add text to combobox drop down vb
VBA
0 vote321 views1 answer
Find the name of the last excel sheet vb
VBA
1 vote227 views2 answers
Vba string length
VBA
5 votes231 views1 answer
Excel vba low byte from INTEGER
VBA