Sign in to follow this  
Followers 0
T0M50N

Script Volume

7 posts in this topic

#include <Sound.au3>

$aSound = _SoundOpen("Groovey.wav")
_SoundPlay($aSound, 1)
_SoundClose($aSound)

Is there a way of changing the volume it's played at?

I know about SoundSetWaveVolume ( percent ) but I would like it to work in XP as well.

Share this post


Link to post
Share on other sites



Share this post


Link to post
Share on other sites

Internet says it's possible for MP3 (with mci) but not for WAV files.


 

OS : Win XP SP2 (32 bits) / Win 7 SP1 (64 bits) / Win 8 (64 bits) | Autoit version: latest stable / beta.
Hardware : Intel(R) Core(TM) i5-2400 CPU @ 3.10Ghz / 8 GiB RAM DDR3.

My UDFs : Skype UDF | TrayIconEx UDF | GUI Panel UDF | Excel XML UDF | Is_Pressed_UDF

My Projects : YouTube Multi-downloader | FTP Easy-UP | Lock'n | WinKill | AVICapture | Skype TM | Tap Maker | ShellNew | Scriptner | Const Replacer | FT_Pocket | Chrome theme maker

My Examples : Capture toolIP Camera | Crosshair | Draw Captured Region | Picture Screensaver | Jscreenfix | Drivetemp | Picture viewer

My Snippets : Basic TCP | Systray_GetIconIndex | Intercept End task | Winpcap various | Advanced HotKeySet | Transparent Edit control

 

Share this post


Link to post
Share on other sites

 

SoundSetWaveVolume works on XP not only move the bar of the sound wave.

From the help file:

"On Windows Vista, there is no system-wide wave volume. This function only changes the wave volume for the script. It can not be used to change the wave volume of other programs."

 
I'm assuming this applies to Windows 7 as well.

Share this post


Link to post
Share on other sites

I'm thinking the easiest way to do it would be to edit the audio file with SoX and create a temporary audio file. Each audio file is about a second in length so it shouldn't be too noticeable.

Share this post


Link to post
Share on other sites

T0M50N,

In Vista+ SoundSetWaveVolume changes the volume only in the script in which it is used - not the overall system volume. In XP it changes the overall system volume and thus the volume of the script itself. So you can use the function to adjust the volume of the sound in the same script in all OSes. :)

M23

1 person likes this

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

Share this post


Link to post
Share on other sites

I'm implementing this as a volume slider in my script and, for me, having a volume slider in your script that turns everything down seems a bit redundant.  :ermm:

The method above works pretty well though I would have to test it on slower machines to see if it would get in the way.

Func OpenSounds()
    Global $aSndStart = _SoundOpen(@ScriptDir&"\Sound\tempBeep-01.wav")
    Global $aSndStop = _SoundOpen(@ScriptDir&"\Sound\tempBeep-02.wav")
    Global $aSndHotkey = _SoundOpen(@ScriptDir&"\Sound\tempBeep-03.wav")
    Global $aSndError = _SoundOpen(@ScriptDir&"\Sound\tempBeep-04.wav")
    Global $aSndHotkeyToggle = _SoundOpen(@ScriptDir&"\Sound\Beep-05.wav")
EndFunc

Func CloseSounds()
    _SoundClose($aSndStart)
    _SoundClose($aSndStop)
    _SoundClose($aSndHotkey)
    _SoundClose($aSndError)
    _SoundClose($aSndHotkeyToggle)
EndFunc

Func SetVolume($iVolume)
    CloseSounds()
    $fVolume = $iVolume / 100
    $hVolumeFile = FileOpen("Volume.bat", 2)
    For $i = 1 To 5
        FileWriteLine($hVolumeFile, '"' & @ScriptDir & '\sox\sox.exe" "' & @ScriptDir & '\Sound\Beep-0' & $i & '.wav" "' & @ScriptDir & '\Sound\tempBeep-0' & $i & '.wav" vol ' & $fVolume)
    Next
    FileClose($hVolumeFile)
    $hPid = Run("Volume.bat", @ScriptDir, @SW_HIDE)
    While ProcessExists($hPid)
        Sleep(10)
    WEnd
    OpenSounds()
EndFunc

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0