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 Sub Command3_Click()
'静音
SendMessage hwnd, 793, 2100912, 524288
End Sub
在网上找了vb些代码 可以开启关闭主音量..但是想判断是否已经静音
|