Script JAWS pentru modificarea volumului calculatorului
Scris: 03 Noi 2013, 10:44
Am facut un mic scriptulet care modifica volumul calculatorului anuntand si procentajul acestuia de la 0% la 100%.
Am o tastatura care imi place foarte mult, dar nu are taste multifunctionale, astfel ca m-am plictisit sa tot merg in System Tray Icon pentru a da mai tare si mai incet.
Mai jos e scriptul, poate fi copiat la sfarsit in fisierul "Default.JSS".
Nu trebuie scrise alte lucruri, variabile globale etc, ci doar atribuite combinatii de taste pentru scripturile VolumeUp si VolumeDown.
Eu am setat Control + Shift + minus de pe blocul numeric pentru mai incet si Control + Shift + plus pentru mai tare.
Daca se doreste o combinatie de taste doar pentru a auzi ce volum este setat in prezent fara a-l modifica, se poate chema dintr-un alt script functia VolumeUpOrDown cu orice alta valoare decat 1 sau 2 la parametru.
De exemplu:
Am o tastatura care imi place foarte mult, dar nu are taste multifunctionale, astfel ca m-am plictisit sa tot merg in System Tray Icon pentru a da mai tare si mai incet.
Mai jos e scriptul, poate fi copiat la sfarsit in fisierul "Default.JSS".
Nu trebuie scrise alte lucruri, variabile globale etc, ci doar atribuite combinatii de taste pentru scripturile VolumeUp si VolumeDown.
Eu am setat Control + Shift + minus de pe blocul numeric pentru mai incet si Control + Shift + plus pentru mai tare.
Cod: Selectaţi tot
Script VolumeUp ()
VolumeUpOrDown (1)
EndScript
Script VolumeDown ()
VolumeUpOrDown (2)
EndScript
Void Function VolumeUpOrDown (Int iDirection)
var
Int iSysVolume,
Int iMaxVolume,
Int iStep
Let iMaxVolume = 65535
Let iStep = iMaxVolume / 100 ; it means aprox 1%
Let iSysVolume = GetSystemVolume ()
If iDirection == 1 Then
; Volume up:
Let iSysVolume = iSysVolume + iStep
If iSysVolume > iMaxVolume Then
iSysVolume = iMaxVolume
EndIf
ElIf iDirection == 2 Then
; Volume down:
Let iSysVolume = iSysVolume - iStep
If iSysVolume<0 Then
iSysVolume = 0
EndIf
EndIf
; Set it:
SetSystemVolume (iSysVolume)
; Announce the change in base 10 from 0% to 100%:
Beep ()
SayString (IntToString(iSysVolume*100/iMaxVolume)+"%")
EndFunction
; sfarsit cod
Daca se doreste o combinatie de taste doar pentru a auzi ce volum este setat in prezent fara a-l modifica, se poate chema dintr-un alt script functia VolumeUpOrDown cu orice alta valoare decat 1 sau 2 la parametru.
De exemplu:
Cod: Selectaţi tot
Script GetVolumeLevel ()
VolumeUpOrDown (0)
EndScript