добрый вечер.
эти скрипты для тех, кто пользуется комерческой мышью сергея волкова и кому
они конечно нужны.
после моей подписи идут 4 скрипта для увеличения и уменьшения громкости, а
также для увеличения и уменьшения скорости.
С уважением к вам Васильев Андрей.
Город Ухта.
Script VolumeMousePlus ()
Var
Int a,
String DefaultJCF
let DefaultJCF = GetJAWSSettingsDirectory () + "\\Default.JCF"
Let a = IniReadInteger ("MyMouse-GlobalContext", "Volume", a, DefaultJCF)
Let a = IniReadInteger ("MyMouse-MessageContext", "Volume", a, DefaultJCF)
Let a = IniReadInteger ("MyMouse-KeyboardContext", "Volume", a, DefaultJCF)
Let a = IniReadInteger ("MyMouse-ScreenContext", "Volume", a, DefaultJCF)
Let a = IniReadInteger ("MyMouse-PCCursorContext", "Volume", a, DefaultJCF)
Let a = IniReadInteger ("MyMouse-JawsCursorContext", "Volume", a,
DefaultJCF)
Let a = IniReadInteger ("MyMouse-ErrorContext", "Volume", a, DefaultJCF)
If a <= 100 Then
Let a = a +5
IniWriteInteger ("MyMouse-GlobalContext", "Volume", a, DefaultJCF)
IniWriteInteger ("MyMouse-MessageContext", "Volume", a, DefaultJCF)
IniWriteInteger ("MyMouse-KeyboardContext", "Volume", a, DefaultJCF)
Delay (1)
IniWriteInteger ("MyMouse-ScreenContext", "Volume", a, DefaultJCF)
Delay (1)
IniWriteInteger ("MyMouse-PCCursorContext", "Volume", a, DefaultJCF)
IniWriteInteger ("MyMouse-JawsCursorContext", "Volume", a, DefaultJCF)
Delay (3)
IniWriteInteger ("MyMouse-ErrorContext", "Volume", a, DefaultJCF)
SayString ("громкость")
Delay (1)
SayInteger(a)
Else
SayString ("нельзя")
EndIf
EndScript
Script VolumeMouseMinus ()
Var
Int a,
String DefaultJCF
let DefaultJCF = GetJAWSSettingsDirectory () + "\\Default.JCF"
Let a = IniReadInteger ("MyMouse-GlobalContext", "Volume", a, DefaultJCF)
Let a = IniReadInteger ("MyMouse-MessageContext", "Volume", a, DefaultJCF)
Let a = IniReadInteger ("MyMouse-KeyboardContext", "Volume", a, DefaultJCF)
Let a = IniReadInteger ("MyMouse-ScreenContext", "Volume", a, DefaultJCF)
Let a = IniReadInteger ("MyMouse-PCCursorContext", "Volume", a, DefaultJCF)
Let a = IniReadInteger ("MyMouse-JawsCursorContext", "Volume", a,
DefaultJCF)
Let a = IniReadInteger ("MyMouse-ErrorContext", "Volume", a, DefaultJCF)
If a > 0 Then
Let a = a -5
IniWriteInteger ("MyMouse-GlobalContext", "Volume", a, DefaultJCF)
IniWriteInteger ("MyMouse-MessageContext", "Volume", a, DefaultJCF)
IniWriteInteger ("MyMouse-KeyboardContext", "Volume", a, DefaultJCF)
Delay (1)
IniWriteInteger ("MyMouse-ScreenContext", "Volume", a, DefaultJCF)
Delay (1)
IniWriteInteger ("MyMouse-PCCursorContext", "Volume", a, DefaultJCF)
IniWriteInteger ("MyMouse-JawsCursorContext", "Volume", a, DefaultJCF)
Delay (3)
IniWriteInteger ("MyMouse-ErrorContext", "Volume", a, DefaultJCF)
SayString ("громкость")
Delay (1)
SayInteger(a)
Else
SayString ("нельзя")
EndIf
EndScript
Script MouseSpeedPlus ()
Var
Int a,
String DefaultJCF
let DefaultJCF = GetJAWSSettingsDirectory () + "\\Default.JCF"
Let a = IniReadInteger ("MyMouse-GlobalContext", "Speed", a, DefaultJCF)
Let a = IniReadInteger ("MyMouse-MessageContext", "Speed", a, DefaultJCF)
Let a = IniReadInteger ("MyMouse-KeyboardContext", "Speed", a, DefaultJCF)
Let a = IniReadInteger ("MyMouse-ScreenContext", "Speed", a, DefaultJCF)
Let a = IniReadInteger ("MyMouse-PCCursorContext", "Speed", a, DefaultJCF)
Let a = IniReadInteger ("MyMouse-JawsCursorContext", "Speed", a, DefaultJCF)
Let a = IniReadInteger ("MyMouse-ErrorContext", "Speed", a, DefaultJCF)
If a <= 320 Then
Let a = a +10
IniWriteInteger ("MyMouse-GlobalContext", "Speed", a, DefaultJCF)
IniWriteInteger ("MyMouse-MessageContext", "Speed", a, DefaultJCF)
IniWriteInteger ("MyMouse-KeyboardContext", "Speed", a, DefaultJCF)
Delay (1)
IniWriteInteger ("MyMouse-ScreenContext", "Speed", a, DefaultJCF)
Delay (1)
IniWriteInteger ("MyMouse-PCCursorContext", "Speed", a, DefaultJCF)
IniWriteInteger ("MyMouse-JawsCursorContext", "Speed", a, DefaultJCF)
Delay (3)
IniWriteInteger ("MyMouse-ErrorContext", "Speed", a, DefaultJCF)
SayString ("скорость")
Delay (1)
SayInteger(a)
Else
SayString ("нельзя")
EndIf
EndScript
Script MouseSpeedMinus ()
Var
Int a,
String DefaultJCF
let DefaultJCF = GetJAWSSettingsDirectory () + "\\Default.JCF"
Let a = IniReadInteger ("MyMouse-GlobalContext", "Speed", a, DefaultJCF)
Let a = IniReadInteger ("MyMouse-MessageContext", "Speed", a, DefaultJCF)
Let a = IniReadInteger ("MyMouse-KeyboardContext", "Speed", a, DefaultJCF)
Let a = IniReadInteger ("MyMouse-ScreenContext", "Speed", a, DefaultJCF)
Let a = IniReadInteger ("MyMouse-PCCursorContext", "Speed", a, DefaultJCF)
Let a = IniReadInteger ("MyMouse-JawsCursorContext", "Speed", a, DefaultJCF)
Let a = IniReadInteger ("MyMouse-ErrorContext", "Speed", a, DefaultJCF)
If a > 0 Then
Let a = a -10
IniWriteInteger ("MyMouse-GlobalContext", "Speed", a, DefaultJCF)
IniWriteInteger ("MyMouse-MessageContext", "Speed", a, DefaultJCF)
IniWriteInteger ("MyMouse-KeyboardContext", "Speed", a, DefaultJCF)
Delay (1)
IniWriteInteger ("MyMouse-ScreenContext", "Speed", a, DefaultJCF)
Delay (1)
IniWriteInteger ("MyMouse-PCCursorContext", "Speed", a, DefaultJCF)
IniWriteInteger ("MyMouse-JawsCursorContext", "Speed", a, DefaultJCF)
Delay (3)
IniWriteInteger ("MyMouse-ErrorContext", "Speed", a, DefaultJCF)
SayString ("скорость")
Delay (1)
SayInteger(a)
Else
SayString ("нельзя")
EndIf
EndScript