如何控制系統音量

2019-11-18 17:36:57

字體：大中小

來源：轉載

供稿：網友

->'thankstoRickRatayczakofFutureWorksMedia(rickr@execpc.com)
'savefileandrenamethemto[name].BAS

AttributeVB_Name="MIXER"
'****************************************************************************
'*ThisconstantholdsthevalueoftheHighestCustomvolumesetting.The*
'*lowestvaluewillalwaysbezero.*
'****************************************************************************
PublicConstHIGHEST_VOLUME_SETTING=12

'Puttheseintoamodule
'deviceIDforauxdevicemapper
PublicConstAUX_MAPPER=-1&
PublicConstMAXPNAMELEN=32

TypeAUXCAPS
wMidAsInteger
wPidAsInteger
vDriverVersionAsLong
szPnameAsString*MAXPNAMELEN
wTechnologyAsInteger
dwSupportAsLong
EndType

'flagsforwTechnologyfieldinAUXCAPSstructure
PublicConstAUXCAPS_CDAUDIO=1'audiofrominternalCD-ROMdrive
PublicConstAUXCAPS_AUXIN=2'audiofromauxiliaryinputjacks

'flagsfordwSupportfieldinAUXCAPSstructure
PublicConstAUXCAPS_VOLUME=&H1'supportsvolumecontrol
PublicConstAUXCAPS_LRVOLUME=&H2'separateleft-rightvolumecontrol

DeclareFunctionauxGetNumDevsLib"winmm.dll"()AsLong
DeclareFunctionauxGetDevCapsLib"winmm.dll"Alias"auxGetDevCapsA"(ByValuDeviceIDAsLong,lpCapsAsAUXCAPS,ByValuSizeAsLong)AsLong

DeclareFunctionauxSetVolumeLib"winmm.dll"(ByValuDeviceIDAsLong,ByValdwVolumeAsLong)AsLong
DeclareFunctionauxGetVolumeLib"winmm.dll"(ByValuDeviceIDAsLong,ByReflpdwVolumeAsLong)AsLong
DeclareFunctionauxOutMessageLib"winmm.dll"(ByValuDeviceIDAsLong,ByValmsgAsLong,ByValdw1AsLong,ByValdw2AsLong)AsLong

'****************************************************************************
'*PossibleReturnvaluesfromauxGetVolume,auxSetVolume*
'****************************************************************************
PublicConstMMSYSERR_NOERROR=0
PublicConstMMSYSERR_BASE=0
PublicConstMMSYSERR_BADDEVICEID=(MMSYSERR_BASE 2)

'****************************************************************************
'*UsetheCopyMemoryfunctionfromtheWindowsAPI*
'****************************************************************************
PublicDeclareSubCopyMemoryLib"kernel32"Alias"RtlMoveMemory"(hpvDestAsAny,hpvSourceAsAny,ByValcbCopyAsLong)

'****************************************************************************
'*UsethisstructuretobreaktheLongintotwoIntegers*
'****************************************************************************
PublicTypeVolumeSetting
LeftVolAsInteger
RightVolAsInteger
EndType

SublCrossFader()
'Vol1=100-Slider1.Value'Left
'Vol2=100-Slider5.Value'Right
'E=CrossFader.Value
'F=100-E
'IfCheck4.Value=1Then'HalfFaderCheck
'LVol=(F*Val(Vol1)/100)*2
'RVol=(E*Val(Vol2)/100)*2
'IfLVol>(50*Val(Vol1)/100)*2Then
'LVol=(50*Val(Vol1)/100)*2
'EndIf
'IfRVol>(50*Val(Vol2)/100)*2Then
'RVol=(50*Val(Vol2)/100)*2
'EndIf
'Else
'LVol=(F*Val(Vol1)/100)
'RVol=(E*Val(Vol2)/100)
'EndIf
'Label1.Caption="Fader:" LTrim$(Str$(LVol)) "x" LTrim$(Str$(RVol))
'
EndSub

PublicFunctionlSetVolume(ByReflLeftVolAsLong,ByReflRightVolAsLong,lDeviceIDAsLong)AsLong
'****************************************************************************
'*ThisfunctionsetsthecurrentWindowsvolumesettingstothespecified*
'*deviceusingtwoCustomnumbersfrom0toHIGHEST_VOLUME_SETTINGforthe*
'*rightandleftvolumesettings.*
'**
'*ThereturnvalueofthisfunctionistheReturnvalueoftheauxGetVolume*
'*WindowsAPIcall.*
'****************************************************************************

DimbReturnValueAsBoolean'ReturnValuefromFunction
DimVolumeAsVolumeSetting'Typestructureusedtoconvertalongto/from
'twoIntegers.

DimlAPIReturnValAsLong'ReturnvaluefromAPICall
DimlBothVolumesAsLong'TheAP
IfnSignedInt<0Then
lReturnVal=nSignedInt 65536
Else
lReturnVal=nSignedInt
EndIf

IflReturnVal>65535OrlReturnVal<0Then
MsgBox"ErrorinconversionfromnSignedtoUnsignedInteger"
lReturnVal=0
EndIf

lUnsigned=lReturnVal
EndFunction->