Database Search
If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.
TechHome
Sound and Media
- Adjust Audio
- CD Audio Information
- Control and stop playback of MIDI and MCI files
- Custom Beeps
- Disable Sounds
- Find Sound Capabilities
- Get Music Length
- Gets and set the WAVE volume
- Make WinBatch Scripts Beep
- MP3 Bitrate version and Layer Codes
- MP3 Extract Information
- MP3 ID2V3 tag documentation
- MP3 Tagger Sample Code
- MP3 Tools for FileMenu
- MP3 Volume Adjuster Program
- Play big WAV files and MIDI files
- Play MP3 Files
- PlayMedia and Long File Names
- PlayMedia Multimedia Command Strings
- Run Windows Media Player and Close It
- Sounds in Winbatch
- Windows Master System Sound Volume
Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
Mp3 Volume Adjuster Program
Keywords: Mp3 Volume Adjuster waveOutGetVolume waveOutSetVolume volume control sound level
Here's a snippet I used for my automatic mp3 volume adjuster program. It gets and sets the WAVE volume, not the overall volume, but might give you a step in the right direction. I'm way too busy or I'd happily adjust my code to use the main volume. (I turned it into a quick example, 500 isn't a huge volume adjustment when it can go up to 32768.)
DaDll=strcat(DirWindows(1),"WINMM.DLL")
bin1 = BinaryAlloc(4)
Gosub GetVolume
Message(LeftVolumeAmount, RightVolumeAmount)
LeftVolumeAmount = LeftVolumeAmount + 500
RightVolumeAmount = RightVolumeAmount - 500
Message(LeftVolumeAmount, RightVolumeAmount)
Gosub SetVolume
EXIT
****************************GetVolume******************************************
:GetVolume
WaveErr = DllCall(DaDll, long:"waveOutGetVolume",long:0,
lpbinary:bin1)
if WaveErr != 0
Message("error in waveOutGetVolume:", WaveErr)
exit
endif
BinaryEODSet(bin1, 4)
LeftVolumeAmount = BinaryPeek2(bin1,0)
RightVolumeAmount = BinaryPeek2(bin1,2)
RETURN
****************************SetVolume******************************************
:SetVolume
TempLeftVolumeAmount = LeftVolumeAmount
TempRightVolumeAmount = RightVolumeAmount
;;Gosub AdjustBalance
BinaryPoke2(bin1, 0, TempLeftVolumeAmount)
BinaryPoke2(bin1, 2, TempRightVolumeAmount)
NewVolume = BinaryPeek4(bin1, 0)
WaveErr = DllCall(DaDll, long:"waveOutSetVolume",long:0,
long:NewVolume)
if WaveErr != 0
Message("error in waveOutSetVolume:", WaveErr)
exit
endif
RETURN
*******************************************************************************
Article ID: W14734
Filename: Mp3 Volume Adjuster Program.txt
File Created: 2001:05:11:15:08:22
Last Updated: 2001:05:11:15:08:22