怎样取得系统当前的音量数值

怎样取得系统当前的音量数值

用多媒体支持库中的：

调用格式： 〈逻辑型〉 对象．取音量 （左声道音量，右声道音量）
英文名称：GetVolume
获取左声道和右声道的音量，成功返回真，失败返回假。本命令为初级对象成员命令。
参数<1>的名称为“左声道音量”，类型为“整数型（int）”，提供参数数据时只能提供变量。该参数接收左声道的音量。
参数<2>的名称为“右声道音量”，类型为“整数型（int）”，提供参数数据时只能提供变量。该参数接收右声道的音量。

所支持操作系统列表： Windows

private declare function waveoutgetvolume lib "winmm.dll" (byval udeviceid as long, lpdwvolume as long) as long private sub command1_click() dim stemp as string dim vol as long waveoutgetvolume 0, vol stemp = "&amp;h" &amp; right(hex$(vol), 4) print stemp end sub 说明：win7下不能用了