PDA

View Full Version : غیر فعال کردن صدای کامپیوتر با کد زنی



sadeghmosavi539
دوشنبه 12 اسفند 1392, 16:26 عصر
با عرض سلام
چگونه من می تونم صدای کامپیوتر را از طریق کد زنی غیر فعال کنم
لطفا راهنمایی کنید.

Morteza-76
جمعه 16 اسفند 1392, 12:29 عصر
باید از توابع api استفاده کنی

Onix.Net
جمعه 16 اسفند 1392, 13:36 عصر
سلام

با استفاده از جاوا اسکریپت برای بستن صدای صفحه وب :

http://stackoverflow.com/questions/14044761/how-to-mute-all-sound-in-a-page-with-js


با استفاده از jQuery:
http://idc.anavallasuiza.com/project/jquerymedia/api/mute

با استفاده از توابع API برای قطع صدای دستگاهها :

http://stackoverflow.com/questions/1438371/win32-api-function-to-programmatically-enable-disable-device

محمد آشتیانی
جمعه 16 اسفند 1392, 14:06 عصر
سلام

میتونی از این کلاس استفاده کنی ، از سایت MSDN گرفتم البته با کمی تغییرات




Imports System
Imports System.Windows.Forms
Imports System.Runtime.InteropServices


Public Class SoundControl
Inherits Form
Private Const APPCOMMAND_VOLUME_MUTE As Integer = &H80000
Private Const APPCOMMAND_VOLUME_UP As Integer = &HA0000
Private Const APPCOMMAND_VOLUME_DOWN As Integer = &H90000
Private Const WM_APPCOMMAND As Integer = &H319


<DllImport("user32.dll")> _
Public Shared Function SendMessageW(ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
End Function


Public Sub SoundMute()
SendMessageW(Me.Handle, WM_APPCOMMAND, Me.Handle, New IntPtr(APPCOMMAND_VOLUME_MUTE))
End Sub


Public Sub SoundInc()
SendMessageW(Me.Handle, WM_APPCOMMAND, Me.Handle, New IntPtr(APPCOMMAND_VOLUME_UP))
End Sub


Public Sub SoundDec()
SendMessageW(Me.Handle, WM_APPCOMMAND, Me.Handle, New IntPtr(APPCOMMAND_VOLUME_DOWN))
End Sub

End Class