#include <Misc.au3>
_Singleton("VolumeControl")
Dim $counter = 0
Dim $speed = 2


HotKeySet("^{UP}", "v_up")
HotKeySet("^{DOWN}", "v_down")
HotKeySet("^{LEFT}", "mute")
HotKeySet("^{RIGHT}", "speed")

Func v_up()
    Do
        Send("{VOLUME_UP}")
        $counter += 1
    Until $counter = $speed
    $counter = 0

EndFunc  ;==>v_up

Func v_down()
    Do
        Send("{VOLUME_DOWN}")
        $counter += 1
    Until $counter = $speed
    $counter = 0
EndFunc  ;==>v_down

Func mute()
    Send("{VOLUME_MUTE}")
EndFunc  ;==>mute

Func speed()
    $speed += 1
    If $speed = 4 Then
        $speed = 1
    EndIf
EndFunc  ;==>speed


While 1
sleep(250)
WEnd