vb.net控制系统音量

Imports System.Runtime.InteropServices

创新互联从2013年开始，先为福绵等服务建站，福绵等地企业，进行企业商务咨询服务。为福绵企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。

Public Class Form1

Private mute As Integer = H80000

Private up As Integer = HA0000

Private down As Integer = H90000

Private WM_APPCOMMAND As Integer = H319

DllImport("user32.dll") _

Public Shared Function SendMessageW(hWnd As IntPtr, Msg As Integer, wParam As IntPtr, lParam As IntPtr) As IntPtr

End Function

'加大

Private Sub btnUp_Click(sender As System.Object, e As System.EventArgs) Handles btnUp.Click

SendMessageW(Me.Handle, WM_APPCOMMAND, Me.Handle, New IntPtr(up))

End Sub

'减小

Private Sub btnZero_Click(sender As System.Object, e As System.EventArgs) Handles btnZero.Click

SendMessageW(Me.Handle, WM_APPCOMMAND, Me.Handle, New IntPtr(mute))

End Sub

'静音

Private Sub btnDown_Click(sender As System.Object, e As System.EventArgs) Handles btnDown.Click

SendMessageW(Me.Handle, WM_APPCOMMAND, Me.Handle, New IntPtr(down))

End Sub

End Class

多媒体 音频 声音 音量 大小 如何得到系统实时音量大小，用VB.net易的win7声音控制软件，

驱动程序，设置，文件，注册表四个方面，震动，如看它是否可以恢复全面检查，案件的接口是坏的，这是为配件

首先，请检查声音卡驱动程序，右键单击“我的电脑” - 属性 - 硬件 - 设备管理器 - 声音，视频和游戏控制器 - 右击 - ReaItek - 更新或扫描，卸载并重新安装。 （如果你下载的驱动程序生命没有驱动程序包 - 驱动更新 - 声音，视频 - 开始更新 - 自动找到的官方驱动程序 - 重新启动计算机。）

调试麦克风：控制面板 - 高清晰音频配置 - 混频器 - 重放 - 小扳手 - 选择 - OK - - 后粉红色 - X'静音，推高了麦克风插孔前面板 - 选择 - OK，然后打X麦克风静音，然后在右边拉点音频I/O--小扳手 - 选择“禁用前面板插孔检测 - OK - 返回混频器 - 录制 - 小扳手 - 点击麦克风的音量（版本不一致需打X-静音立体声混音）

加强麦克风：右键单击右下角的小喇叭（小喇叭的音量上） - 调整音频属性 - 音量 - 设备音量 - 高级 - （主音??量全推到上） - 选项 - 属性 - 麦克风音量打勾 - 确定返回选项 - 高级控制 - 高级 - 麦克风加强了钩。

右下角的小喇叭显示：开始---设置---控制面板 - 声音和音频设备 - 音量 - （勾选）将音量图标放入任务栏上。

5。在网页中，网页声音的操作方法：打开网页 - 工具 - 选项 - 高级 - （勾选）播放的声音。

6。游戏耳机出声来：控制面板---高清晰音频配置 - 音频I/O--耳机 - 选举8CH喇叭。

7。前部和后部面板插孔调试：控制面板 - 高清晰音频配置 - 音频I/O--模拟 - 后面板插孔图标 - 单击 - 你插入的设备吗？ （需插入的设备，如插耳机） - 当选耳机 - OK，所以

8。使用QQ聊天的语言时，MIC音量无法调整，请下载补丁。

9，如声卡驱动安装不上的解决方法：控制面板 - 管理工具 - 服务 - Windows音频 - 启动类型设置为“自动”重新启动它。

10。注册表的方法：

开始 - 运行 - 输入regedit打开注册表，然后单击“打开HKEY_LOCAL_MACHINE \ SOFTWARE \微软\的Windows \ CurrentVersion \ Run在右侧窗口中新建字符串”系统托盘“点右键（在运行于新的）键（在系统托盘中双击编辑）“C：\ WINDOWS \ SYSTEM32 \ Systray.exe”win2000系统，或“C：\ WINNT \ SYSTEM32 \ Systray.exe”

开始 - 运行 - 输入regedit打开注册表，然后单击“打开HKEY_LOCAL_MACHINE \ SOFTWARE \微软\ WINDOWSNT \ CURRENTVERSION \ Drivers32创建一个新的字符串值，命名为”wavemapper“值”msacm32。DRV“。重新启动计算机。

vb取消系统总音量静音代码

就是取消全部静音对吧。添加一个按钮控件。

代码如下：

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Const WM_APPCOMMAND As Long = H319

Private Const APPCOMMAND_VOLUME_UP As Long = 10

Private Const APPCOMMAND_VOLUME_DOWN As Long = 9

Private Const APPCOMMAND_VOLUME_MUTE As Long = 8

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hwnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Const BM_GETCHECK = HF0

Private Const BM_SETCHECK = HF1

Private Sub Command1_Click()

Dim hwnd0 As Long

Shell "sndvol32.exe", vbHide

hwnd0 = FindWindow(vbNullString, "主音量")

Dim hwnd1 As Long

hwnd1 = FindWindowEx(hwnd0, 0, "Button", "全部静音(M)")

Dim State As Long

State = SendMessage(hwnd1, BM_GETCHECK, ByVal CLng(0), ByVal CLng(0))

Shell "taskkill /f /im sndvol32.exe", vbHide

If State = 1 Then '"静音"

SendMessage Me.hwnd, WM_APPCOMMAND, H200EB0, APPCOMMAND_VOLUME_MUTE * H10000 '切换静音

End If

End Sub

新闻标题：vb.net系统静音的简单介绍
文章源于：http://scyanting.com/article/dodsses.html