rendered paste body#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