Private Declare Function waveOutSetVolume Lib "winmm.dll" (ByVal uDeviceID As _
  Long, ByVal dwVolume As Long) As Long
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        waveOutSetVolume(0, 0) 'Mute-Sound
    End Sub

 Dim APPCOMMAND_VOLUME_MUTE As IntPtr = IntPtr.op_Explicit(&H80000)
    Private Const WM_APPCOMMAND As Integer = &H319
    Declare Function SendMessageW Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal _
      Msg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
        SendMessageW(Me.Handle, WM_APPCOMMAND, Me.Handle, CType( _
        APPCOMMAND_VOLUME_MUTE, IntPtr))
    End Sub

---------------
VB.NET macht Spaß!

Beitrag wurde zuletzt am 27.09.08 um 15:52:01 editiert.