On Screen Display (Volume)

[zone97]

If no one has written one how hard would it be?

Update: I found this

http://www.wn-freeware.de.vu/

looks just like my other OSD for my laptop.

Edited December 3, 2008 by zone97

[Calistoga]

Something like this?

Edit:

This one is nice too, XP only - the other one is for Vista.

Edited December 3, 2008 by Encoded

[youknowwho4eva]

If you do a search here in example scripts, there was one I saw recently. But if you look at the top it says this is not a general support forum. For that you want to go to general questions.

[FaT3oYCG]

i made a simple one not long ago aswell ...

expandcollapse popup

#NoTrayIcon

HotKeySet("{NUMPADADD}", "Volume_Add")
HotKeySet("{NUMPADSUB}", "Volume_Sub")
HotKeySet("^e", "_Quit")

func Volume_Prog_Bar()
    $Volume_Bar = ""
    for $i = 1 to 10 step 1
        if Volume_Get() / 10 >= $i Then
            $Volume_Bar &= "|"
        Else
            $Volume_Bar &= "-"
        endif
    next
    $Volume_Display = Volume_Get() & "% " & $Volume_Bar
    Return $Volume_Display
EndFunc

func Volume_Add()
    if Volume_Get() < 100 then
        SoundSetWaveVolume(Volume_Get() + 10)
        ToolTip(Volume_Prog_Bar())
        Sleep(1000)
        ToolTip('')
    EndIf
EndFunc

func Volume_Sub()
    if Volume_Get() > 0 then
        SoundSetWaveVolume(Volume_Get() - 10)
        ToolTip(Volume_Prog_Bar())
        Sleep(1000)
        ToolTip('')
    EndIf
EndFunc

Func Volume_Get()
    Local $WaveVol = -1, $p, $ret
    Const $MMSYSERR_NOERROR = 0
    $p = DllStructCreate ("dword")
    If @error Then
        SetError(2)
        Return -2
    EndIf
    $ret = DllCall("winmm.dll", "long", "waveOutGetVolume", "long", -1, "long", DllStructGetPtr ($p))
    If ($ret[0] == $MMSYSERR_NOERROR) Then
        $WaveVol = Round(Dec(StringRight(Hex(DllStructGetData ($p, 1), 8), 4)) / 0xFFFF * 100)
    Else
        SetError(1)
    EndIf
    $Struct=0
    Return $WaveVol
EndFunc

Func _Quit()
    MsgBox(0, "Exit", "CVC Closed")
    Exit
EndFunc

While 1
    Sleep(100)
WEnd