[RESOLVED] Muting system sound

[Paul M]

It seems to be a little difficult on Vista

Any ideas anyone?

[Paul M]

Semi-Bump, any ideas?

Uh so far i have made it silence all sounds for the specific applications thats it

[Paul M]

Any ideas? It needs to silence all audio sounds.

[Siddharth Rout]

It seems to be a little difficult on Vista

Any ideas anyone?

With code or without code?

[taurus]

With code or without code? >>>>

you are too funny, take my bow koolsid

[Paul M]

With code of course!

[Siddharth Rout]

With code of course!

Hi

Just wanted to be sure when I asked that question

You need to create 1 textbox and two commandbuttons. Try this code...

Please make any changes that you feel are required in the below code...

Private Declare Function waveOutSetVolume Lib "Winmm" (ByVal wDeviceID As Integer, ByVal dwVolume As Long) As Integer
Private Declare Function waveOutGetVolume Lib "Winmm" (ByVal wDeviceID As Integer, dwVolume As Long) As Integer
Private Sub Command1_Click()
    Dim a, i As Long
    Dim tmp As String
    a = waveOutGetVolume(0, i)
    tmp = "&h" & Right(Hex$(i), 4)
    Text1 = CLng(tmp)
End Sub
Private Sub Command2_Click()
    Dim a, i As Long
    Dim tmp, vol As String
    vol = Text1
    tmp = Right((Hex$(vol + 65536)), 4)
    vol = CLng("&H" & tmp & tmp)
    a = waveOutSetVolume(0, vol)
End Sub

To understand more about waveOutSetVolume, check out this site

http://msdn2.microsoft.com/en-us/library/ms713762.aspx

Hope this helps...

[Paul M]

That just mutes the sounds from the program itself not vista.

[Paul M]

Hmmm would it have something to do with the DeviceID? But what exactly would the DeviceID be for something like that Windows Sounds.

[Paul M]

Nevermind figured it out

Created a DLL in C++ which turned out to only be 8Kb and just called the functions exported with it. Ill post the source to the DLL in the C++ codebank shortly for whoever wants it.

[Paul M]

[DLL] Mute sounds in Vista

^There you go