[JFWRus] Re: Переключение NUMLOCK
Доброго времени суток, Шабанов Юрий.
Из сообщения от 26.02.2009 21:28:
Я не зубр, но поскольку зубры молчат,
попробую проблеять что-нибудь в ответ на Ваш вопрос.
С формальной точки зрения скрипт совершенно правильный.
Не работает в нем только эмуляция нажатий NumLock.
Мне неизвестна причина, по которой разработчики из Freedom Scientific
обошли эту клавишу вниманием.
Но средствами языка скриптов Jaws это сделать не получится, imho.
Как вариант решения проблемы предлагаю использовать
какой либо другой язык программирования
с более широкими возможностями.
Для примера две утилиты на AutoIt:
в файле NumLockOn.au3 пишем
Send ("{NUMLOCK on}")
в файле NumLockOff.au3 пишем
Send ("{NUMLOCK off}")
Кладем эти файлы в пользовательскую папку Jaws.
Изменим в Вашем коде две строки:
Void Function KillTempNumlock ()
;;; TypeKey ("NUMLOCK")
Run ( "\"" + StringReplaceSubstrings (GetUserSettingsDirectory (), "\\",
"\\\\") + "\\\\NumLockOff.au3\"" )
SayString (" ВЫКЛ")
EndFunction
Script TempNumLock ()
;;; TypeKey ("NUMLOCK")
Run ( "\"" + StringReplaceSubstrings (GetUserSettingsDirectory (), "\\",
"\\\\") + "\\\\NumLockOn.au3\"" )
SayString ("ВКЛ")
ScheduleFunction ("KillTempNumlock", 70)
EndScript
Скачать AutoIt можно здесь:
http://www.autoitscript.com/autoit3/downloads.shtml
С уважением, Руслан Усачев
RUsach***@t*****.by
***
Это сообщение No 8239
было разослано для 467 участников дискуссионного листа
[JFWRus] Re: Переключение NUMLOCK
Здравствуйте, Руслан.
Большое спасибо за разъяснения, идею и код. Правда я не понял вот эту
строку:
Тут возможно какое-то недоразумение. Зачем менять два слэша на
четыре? Хотя, возможно я чего-то недопонял. Ничего,разберусь.
Спасибо что подтолкнули меня к AutoIt. Язык показался мне
интересным. Буду с ним знакомиться.