VB如何设置不静音

来源：百度知道 编辑：UC知道 时间：2024/07/05 09:25:50
VB怎么设置音量不静音（非音量最底值)
各位高手们,请帮助我这个问题吧。
代码最好详细些..
谢谢。

Option Explicit
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 Sub Timer1_Timer()
Dim i As Integer
For i = 0 To 50
SendMessage Me.hwnd, WM_APPCOMMAND, &H30292, APPCOMMAND_VOLUME_UP * &H10000
Next
End Sub