Jump to content
Sign in to follow this  
thepip3r

Deviant Fun with Computer Sound

Recommended Posts

thepip3r

If you have a friend, family member, coworker who continually listens to something on the computer that's WAY too loud or WAY too annoying, run this on their system!!! Have fun!

#include <Audio.au3>
#NoTrayIcon

Global $x,$state

$state = "inc"

For $x=0 to 3000; Runs approx a half day -- toggle number to increase/decrease duration
    _VariantVolLevel()
    Sleep(15000); Sleep 15 Seconds
Next




Func _VariantVolLevel()
    Local $curVolume
    $curVolume = Int(_SoundGetMasterVolume())
    
    Select
        Case $curVolume <= 0
            _SoundSetMasterVolume(1)
            $state = "inc"
        Case $curVolume >= 100
            _SoundSetMasterVolume(99)
            $state = "dec"
        Case $curVolume>=0 AND $curVolume<=100
            If $state="inc" Then
                $curVolume += 5
            ElseIf $state = "dec" Then
                $curVolume -= 5
            EndIf
            _SoundSetMasterVolume($curVolume)
    EndSelect
EndFunc

My Additions:- RunAs AdminDeviant Fun:- Variable Sound Volume

Share this post


Link to post
Share on other sites
TnTProductions

are you gona say what it even does?


"FREEDOM is not FREE""Its a good thing war is so terrible, or we grow too fond of it" -Robert E. Lee[quote]Firestrom: global $warming = False[/quote]My scripts:Desktop Cleaner---->Total Downloads:167;;;;;;;;;;1;;;;;;1;;;;;;;;;;;;;11;;;;;;;;;;;;;;;;1;;;;;;1;;;;;;;;;;;;;11;;;;;;;;;;;;;;;;1;;;;;;1;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;111111;;;;;;;;;;;;;;11;;;;;;;;;;;;;;;;1;;;;;;1;;;;;;;;;;;;;;11;;;;;;;;;;;;;;;;1;;;;;;1;;;;;;;;;;;;;;11;;;;;;"a wise man once said why use your skills when we have technology"

Share this post


Link to post
Share on other sites
TnTProductions

nvm script and titel says it all lol


"FREEDOM is not FREE""Its a good thing war is so terrible, or we grow too fond of it" -Robert E. Lee[quote]Firestrom: global $warming = False[/quote]My scripts:Desktop Cleaner---->Total Downloads:167;;;;;;;;;;1;;;;;;1;;;;;;;;;;;;;11;;;;;;;;;;;;;;;;1;;;;;;1;;;;;;;;;;;;;11;;;;;;;;;;;;;;;;1;;;;;;1;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;111111;;;;;;;;;;;;;;11;;;;;;;;;;;;;;;;1;;;;;;1;;;;;;;;;;;;;;11;;;;;;;;;;;;;;;;1;;;;;;1;;;;;;;;;;;;;;11;;;;;;"a wise man once said why use your skills when we have technology"

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  

×