[JFWRus] Возможно ли написать такой скрипт?..

Здравствуйте, Иван.
Исходное сообщение раскладка клавиатуры

А разве в Win XP нельзя назначить свою комбинацию для каждой раскладки?
С уважением, Анатолий.

***
Это сообщение No1718
было разослано для 224 участников дискуссионного листа
[JFWRus] Re: Возможно ли написать такой скрипт?..

Здравствуйте, Анатолий!

Вы писали:

А как это делается? Я тоже об этом слышал!

Здравствуйте, Андрей.

Очень (по моему опыту) капризная процедура.
Панель управления -> Язык и региональные стандарты
-- новый диалог
Вкладка Языки-> Группа "Языки и службы текстового ввода" ->Кнопка Подробнее
-- новый диалог
Группа "Настройка" -> КнопкаПараметры клавиатуры (нажмите Shift + F1, чтобы прослушать
подсказку по этой кнопке, если интересно).
-- новый диалог
Здесь табличка из двух столбцов:
в первом - Действие, во втором - комбинация клавиш.
Чуть ниже -- кнопка "Смена сочетания клавиш" (для того действия, которое выбрано
в таблице, в первом ее столбце. Этот столбец
читается как Listbox).
Короче, находите listbox, выбираете там язык нужной раскладки (например, Переключение
на Английский (США)), читаете строку
(Insert+PageUp). Если комбинации "Нет", то перемещаетесь на кнопку "Сменить
комбинацию клавиш" и в диалоге выбираете комбинацию.
Пять-шесть попыток и вы -- настоящий мачо...
С уважением, Анатолий.

***
Это сообщение No1721
было разослано для 224 участников дискуссионного листа
[JFWRus] Re[3]: Возможно ли написать такой скрипт?..

Здравствуйте, Анатолий!

:-)) Да я знаю, мадам Windows ооочень капризная дама... :-)
Тогда вопрос: вот допустим, я назначил Ctrl+Shift на английскую, а все
остальные по Alt+Shift переключаются. Как тогда будет работать
алгоритм смены раскладок? Она что, по Alt+Shift английскую вообще
пропускать будет? :-)

Здравствуйте, Андрей.
Исходное сообщение > Как тогда будет работать

Можете поставить эксперимент:)
Из моего опыта -- перебор раскладок идет без пропусков. Просто на Английскую
можно переключиться из любой раскладки.
С уважением, Анатолий.

***
Это сообщение No1725
было разослано для 224 участников дискуссионного листа
[JFWRus] Re[5]: Возможно ли написать такой скрипт?..

Добрый вечер i_chay.
12.07.05 на тему: "[JFWRus] Re: Возможно ли написать такой скрипт?.." Вы писали:

Может и можно, да вот я пользуюсь 98.

Здравствуйте, Иван.
Вот скрипт, который ищет нужную раскладку (в данном случае - "Английскую").
; начало скрипта
Script LayoutChamge ()

var

string str,

string lang,

int i

let lang = "Англи"

let str=GetInputLanguage()

let i =0

while ((i<10) &&

(SubString (str, 1, StringLength (lang)) != lang))

{Ctrl+Shift}

let str=GetInputLanguage()

let i = i+1

endWhile

SayString("Раскладка не найдена")

Else

SayString(str)

EndIf

EndScript

; финиш

В скрипте переменной lang вы должны присвоить строку, которая является названием
раскладки (можно не полностью, а только несколько
первых символов). Будьте внимательны к регистру букв.

Скрипт проверялся на версии 5.00.

С уважением, Анатолий.

***
Это сообщение No1730
было разослано для 225 участников дискуссионного листа
[JFWRus] Re[3]: Возможно ли написать такой скрипт?..

Доброе утро Анатолий.
Скрипт, приведённый Вами, переключает раскладку на английскую не
сразу, а после нескольких нажатий комбинации назначенной на скрипт.
При этом произносится "раскладка не найдена". В зависимости от того,
какая раскладка активна в данный момент, надо нажать два или три
раза, прежде чем станет активной английская. Если активна русская, то
надо нажать три раза, если украинская - два.
Версия jaws 4.51

Здравствуйте, Иван.
После строки
{Ctrl+Shift}

добавьте:

Pause ()

(один или несколько раз).

С уважением, Анатолий.

***
Это сообщение No1733
было разослано для 225 участников дискуссионного листа
[JFWRus] Re[5]: Возможно ли написать такой скрипт?..

Добрый день i_chay.
14.07.05 на тему: "[JFWRus] Re[5]: Возможно ли написать такой скрипт?.." Вы писали:

Спасибо, теперь работает.

Добрый день, Штефуряк.

Проверьте работает ли функция GetInputLanguage в Вашей версии джоза.
Для этого сделайте скрипт из одной строчки:
SayString (GetInputLanguage())

--
С уважением, Sergey.

***
Это сообщение No1736
было разослано для 225 участников дискуссионного листа
[JFWRus] Re[5]: Возможно ли написать такой скрипт?..

Добрый день Сергей.
Проверил, работает. После добавления в скрипт Анатолия строки pause
после ctrl+shift скрипт также заработал. Я сделал себе ещё два
аналогичных скрипта, только для других двух языков и всё работает.

Добрый день, Штефуряк.

Понятно, Вам просто повезло! Видно, при выполнении скрипта сложилось так, что
задержка успевала отработать или ещё что происходило...
Но Pause в циклах нормально не работает, это так на будущее:-)

--
С уважением, Sergey.

***
Это сообщение No1739
было разослано для 225 участников дискуссионного листа
[JFWRus] Re[7]: Возможно ли написать такой скрипт?..

Здраствуйте, Сергей.
Исходное сообщение > Но Pause в циклах нормально не работает,

Приведите пример скрипта и поясните, пожалуйста, как по-вашему "нормально" должно
работать Pause().
С уважением, Анатолий.

***
Это сообщение No1740
было разослано для 225 участников дискуссионного листа
[JFWRus] Re[8]: Возможно ли написать такой скрипт?..

Здравствуйте, Sergey.

Вы писали 14 июля 2005 г., 17:47:17:

Мне тоже повезло в том же направлении. Были в точности такие же обстоятельства
до и после добавления паузы в скрипт, как и у Ивана.

Добрый вечер, Анатолий, Иван и Михаил.

О-о, это значит мне не повезло:-)
Не помню с какой версией джоза, но там
была такая вот ситуация:
сначала отрабатывался цикл, так как бут-то в нём не было пауз, а после
выхода из него следовала пауза, то есть скрипт завершал работу только
после того, как пройдёт суммарное время пауз.
Например:

while (i<20)
Beep()
Pause()
Pause()
let i=i+1
EndWhile

При вызове такого скрипта бипы сливаясь в сплошной поток без пауз
отыгрывали, а скрипт заканчивал работу где-то секунд через 5, после
вызова.

К тому же в описании Pause, написано, что не стоит её использовать в
While... Ну я и подумал, что это как-то связано с этим...
И с тех пор я и не использовал... Да и не надо было... А в памяти
осталось...

Так что, сорри, если кого ввёл в заблуждение и заставил
поволноваться:-)

PS А что же всё-таки обозначают те слова, по поводу того, что не
стоит помещать комманды паузы в цикл while? Или я не правильно их
понял?

--
С уважением, Sergey.

***
Это сообщение No1743
было разослано для 225 участников дискуссионного листа
[JFWRus] Re[9]: Возможно ли написать такой скрипт?..

Здравствуйте, Сергей.

В вашем примере
while (i<20)
Beep()
Pause()
Pause()
let i=i+1
EndWhile

использование Pause() ошибочно. В этом случае (независимо от версии джоза) она
будет работать как Delay(1), поскольку в
приложении, для которого выполняется скрипт ничего не происходит. Функция Beep()
- это аналог такой системной функции, которая к
конкретному окну (и даже к Десктопу) не имеет отношения. Если вы сталкивались
с API функцией MessageBeep(), то знаете, что в ее
параметрах нет дескриптора окна. Смысл же функции Pause() в джозе -- ожидать
окончания отработки окном приложения некоего события,
например, разворачивание меню, появление диалога. В этом случае джоз будет ждать
столько времени, сколько нужно приложению. Как
это реализовано -- вопрос, конечно, интересный, но пусть он останется в недрах
Фридома. Скажу только, что в тех ситуациях, где я
использовал Pause(), она меня не подводила (как правило, это отсылка комбинаций
клавиш и ожидание реакции приложения).
Предупреждение по поводу while, которое есть в подсказках по функции Pause()
в Диспетчере скриптов, актуально, по-моему, для
циклов не имеющих однозначного условия для прекращения своей работы.

С уважением, Анатолий

***
Это сообщение No1744
было разослано для 225 участников дискуссионного листа
[JFWRus] Re[10]: Возможно ли написать такой скрипт?..

Доброе утро, Анатолий.

она

Всё правильно, я привёл этот пример лишь для того, что бы показать как
у меня тогда работала функция Pause в цикле, впрочем и Delay вела себя
анологично.

Это здесь не причём, если Вы запустите этот скрипт, то услышите бипы
разделённые некоей паузой, зависящей от количества Pause. Тогда же у меня, даже
данный пример вёл
себя так, как бут-то в цикле, вообще нет пауз. А именно, если бы в цикле
убрать паузы и поместить их в нужном количестве после EndWhile. Тут уж
ничего просто не успевало произойти в приложении, пока выполнялся
цикл.
Я тогда долго мучался с реальным скриптом,
думая, что где-то ошибка,
пока не попробовал этот примерчик - здесь уж сделать ошибку трудно:-) Потом в
реальном примере, раскрыв
цикл, благо в нём было всего 10 итерраций всё заработало так, как и
задумывалось, а вот в цикле ни в какую.

ждать

Нет, тут Вы немножко ошибаетесь. Джоз не ждёт отработки события, да и
откуда ему знать о них? Он просто отдаёт время всем другим
приложениям, а точнее готовым к выполнению потокам.
И что они там сделают в это время - толи обработают события, толи
что-то посчитают, что-то проиграют известно только им....

в недрах

Это можно реализовать, например так:
DWORD StartTime = GetTickCount();
while ((GetTickCount() - StartTime) > 100)
Sleep(0);

По описанию и смыслу работы Pause это будет как раз то, что надо...

Вот-вот, а мне тогда не повезло. Смысл был в том, что по графику
фильтра (CoolEdit) щёлкалось мышкой, появлялось окошечко с вводом
координат, которые вводились и нажимался
ввод и так для 10 точек.
В цикле не работало, а без всё работало отлично с
теми же паузами, когда я просто один и тот же кусок скопировал 10 раз
друг за другом.

Позвольте не согласиться. Причём тут Pause? Ваши слова актуальны и для циклов
без пауз и
для любой другой функции. И тогда такое
предупреждение логично поместить в описание While, а не паузы..., а
здесь делается упор именно на паузу...

--
С уважением, Sergey.

***
Это сообщение No1745
было разослано для 225 участников дискуссионного листа
[JFWRus] Re[11]: Возможно ли написать такой скрипт?..

Здравствуйте, Сергей.

Тогда это проблема не Pause, а цикла...

откуда ему знать о них? Он просто отдаёт время всем другим приложениям, а точнее
готовым к выполнению потокам.

Вы переоцениваете (или недооцениваете) джоз:) Все-таки это не ядро операционной
системы, чтобы делить процессорное время между
процессами и потоками. Джоз, конечно, может приостановить порожденный им поток
(точнее этот поток может приостановить свою работу
до тех пор, пока породивший его поток не отсемафорит ему работать дальше), но
приостановить, а потом позволить дальше работать,
например, потокам в браузере... это вряд ли. Джоз подавляющую часть своей
работы делает через хуки, посредством которых можно
держать под контролем очередь
сообщений, например, конкретного приложения. Причем есть хук, позволяющий перехватить
сообщение на входе в приложение, и есть хук,
перехватывающий сообщение на выходе из приложения (когда оно передается системе
на обработку по умолчанию). Анализируя сообщения,
можно получить представление о состоянии приложения. Например, если очередь его
сообщений пуста(или в ней нет сообщений от
дочерних контролов), то можно полагать, что приложение отработало событие и теперь
стабильно.
Это, конечно, не значит, что джоз поступает именно так, но это значит, что возможность
контролировать происходящие события
имеется.

По-моему, это ближе к Delay...

Впрочем, джоз весьма загадочная штука (порой загадочнее, чем женщины:).
С уважением, Анатолий

***
Это сообщение No1747
было разослано для 225 участников дискуссионного листа
[JFWRus] Re[12]: Возможно ли написать такой скрипт?..

Вечер добрый, Анатолий.

Я и не говорил, что эта проблема паузы... Проблема была паузы в
цикле.... А по отдельности они работали очень неплохо:-)

Анатолий, причём здесь это? Я не говорил об этом, я говорил о том, что
поток джоза, может вызвав функцию Sleep с параметром 0 заставить
систему отработать все ждущие в очереди потоки, отдав своё время на
это и не более.
То есть система выделила джозу время на работу, а он хочет подождать и в тоже
время не останавливая свой поток заставить систему проиграть ждущие в
очереди потоки за счёт своего времени. По-моему это и делается в
течении 100 миллисекунд в функции Pause.

но

Почему? Я могу из своего приложения без проблем
приостоновить и запустить любой поток - хоть в браузере, хоть в любом другом
приложении.
Смотрите API функции SuspendThread и ResumeThread...

его

и теперь

Неет, в этом случае можно пологать, что приложение получило событие, а
вот что и самое главное сколько времени уйдёт на его обработку ну
никак нельзя предположить.

возможность

Конечно, джоз и контролирует... Не секрет, что лвиную долю информации
о происходящем получают из хуков, но не всё так просто.
И кстати, откуда Вы взяли, что джоз в паузе ждёт сообщения? В описании
функции сказано, что выполнение скрипта приостанавливается и джоз
отдаёт своё время приложениям, заметте не активному, а всем.
Дальше читаем описание delay. Здесь сказано, что джоз приостанавливает
работу на определённое время и эквивалентен Pause(1). Но имеет отличие
в том, что не отдаёт своё время другим приложениям. Ни одного слова о
сообщениях, только о времени. Оно и логично, работа приложений основана
не на одних сообщениях.
Да и трудно проанализировать что-то опираясь на сообщения, нужно
просто приостоновить работу, а в случае с паузой отдать и своё время, и подождать,
пока приложение сделает свои
дела.

Так по описанию они и есть суть одно, за исключением того, что в паузе
ещё отдаётся приложением время самого скрипта.

Точно, но нужно позновать второе и первое заодно;-)

--
С уважением, Sergey.

***
Это сообщение No1748
было разослано для 225 участников дискуссионного листа
[JFWRus] Re[13]: Возможно ли написать такой скрипт?..

Привет, i_chay!

Вы писали 15 июля 2005 г., 14:07:46:

Надо учитывать фактор синтезатора. Очень много проблем из-за синтеза. Например
скрипт секундомер.

Script Timer ()
SayString ("Start")
Delay (30); пауза в три секунды
SayString ("end")

EndScript
Все синтезаторы, кроме Мыши, произносят Старт, ждут три секунды и говорят End.
А мышь ждёт три секунды и говорит Старт Энд.
Кстати, кому нужно так можно сделать секундомер, только надо использовать любой
синтезатор, кроме мыши.

Добрый вечер, Олег.

Здесь ошибка из-за неправильной мышинной синхронизации. Кстати из-за
этого и курсор при SayAll убегает вперёд.

--
С уважением, Sergey.

***
Это сообщение No1754
было разослано для 225 участников дискуссионного листа
[JFWRus] Re[14]: Возможно ли написать такой скрипт?..

Здравствуйте, Sergey.

Вы писали 16 июля 2005 г., 18:54:35:

Я как-то писал, как справился с убеганием курсора вперёд. jaws 4.51, MyMouse.

Привет, Михаил!

Вы писали 17 июля 2005 г., 18:17:16:

О настройке:
эта группа радиокнопок определяет фрагмент сплошного чтения для JAWS , Т.е. блок
текста, который JAWS использует при движении назад, когда Вы нажимаете
левый Shift или вперёд - ПРАВЫЙ Shift соответственно. Настройка по умолчанию
- Строка.

Или Бболее подробно:
Группа Читать всё

Эта группа элементов управления позволяет задать предпочтения для работы команды
Читать всё (INSERT+СТРЕЛКА
ВНИЗ).

Четыре радиокнопки образуют подгруппу Читать всё по.

Они позволяют установить способ озвучивания текста с помощью команды Читать
всё. Возможны следующие варианты:

I По строкам с паузами: Будет осуществляться чтение по строкам. При этом в конце
каждой строки будет вставляться
небольшая пауза.

I По строкам без пауз: Этот параметр позволяет выполнять непрерывное чтение.

I По предложениям: Установите этот параметр для приложений, в которых Читать
всё звучит прерывисто. Это
приведёт к помещению пауз между предложениями, сделав чтение более естественным.

I По абзацам: Будет осуществляться чтение по абзацам. При этом JAWS будет вставлять
небольшую паузу в
конце каждого абзаца.

Примечание: Следует отметить, что соответственно на строку, предложение или абзац
может быть осуществлена
прокрутка вперёд по документу при нажатии правой клавиши SHIFT. На такой же фрагмент
будет осуществлена
прокрутка назад по документу при нажатии левой клавиши SHIFT. Поэтому использование
параметра По абзацам
особенно полезно для быстрой прокрутки при чтении больших документов.

Правда нестоит , забывать, что не Джос надо подстраивать под нестандартный синтезатор.
А синтезатор должен нормально работать.

Здравствуйте,уважаемые Участники форума!
У меня возник такой вопрос.
Я с помощью программы WinFast PVR зделал запись с видио магнитофона на
компьютер. И получил файл в с расширением M P G. И размер файла получился
2. 89 г б.
Подскажите кто знает чем можно его сжать, с тем что бы прожечь на C D.
Пробывал его загрузить в программу VirtualDub.exe, но она его не открыла.
буду рад если кто то отзовётся.

С уважением Григорий

***
Это сообщение No1775
было разослано для 225 участников дискуссионного листа
[JFWRus] сжатие с M P G формата

И не откроет. Для файлов MPEG-2 есть специальная версия Virtual dub'а. Наберите
в поисковике virtual dub mpeg-2 и поройтесь в найденном. Есть у меня ещё прога,
называется Video smart converter, но мне сильно не нравится там, что я не могу
поставить нужную мне величину сжатия звука, а с той, которая стоит по-умолчанию,
получается уж больно убо го.

А Video smart converter можно скачать с http://samlab.rusc.ru . Прога относительно
хорошо Джозится.
Не помню, может там и Virtual dub mpeg-2 имеется. Сходите, посмотрите.

XXX-___?O
All fled, all done
So lift me on the pyre.
The feast is over
And the lamps expire.
Всяких приятностей!
cuthbe***@m*****.ru

***
Это сообщение No1777
было разослано для 226 участников дискуссионного листа
[JFWRus] Re: сжатие с M P G формата

Здравствуйте,участники форума! и > cuthbe***@m*****.ru
и Толик.

Спасибо за советы.
С уважением Григорий
Original Message From: "Cuthbert" <cuthbe***@m*****.ru>
To: "comp.soft.others.jfwrus (5086796)" <ella17***@z*****.il>
Sent: Tuesday, July 19, 2005 3:52 AM

***
Это сообщение No1780
было разослано для 226 участников дискуссионного листа
[JFWRus] Re[2]: сжатие с M P G формата

Здравствуйте, Григорий.

Вряд ли вы сможете сжать mpeg каким-нибудь другим компрессором... По всей видимости,
вы сжали видеопоток, настроив программу на
хорошее качество сжатого видео (в ущерб, разумеется, размеру и скорости обработки).
Для уменьшения размера следует ухудшить
параметры сжатия.
С уважением, Анатолий.

***
Это сообщение No1779
было разослано для 226 участников дискуссионного листа
[JFWRus] Re: сжатие с M P G формата

Добрый день!
Большая просьба: письма на тему "сжатие с M P G формата"
направляйте на личный адрес Григория ella17***@z*****.il
Тема, поднятая им не относится к темам, которые обсуждаются в
рассылке по Jaws.
Большая благодарность всем кто не поддерживает и не поднимает
темы, которые не относятся к Jaws
Комодератор jfwrus
Михаил Шишминцев

***
Это сообщение No1781
было разослано для 226 участников дискуссионного листа
[JFWRus] Комодератор: сжатие с M P G формата

Здравствуйтеуважаемый модератор!
Исходное сообщение

Original Message From: <ja***@m*****.ua>
To: "comp.soft.others.jfwrus (5086796)" <ella17***@z*****.il>
Sent: Tuesday, July 19, 2005 10:43 AM
Комодератор: сжатие с M P G формата

Прошу прощение, у Михаила Шишминцева. я своё письмо хотел отправить в
рассылку http://www.tiflocomp.ru
Постараюсь больше так не ошибатся.
С уважением Григорий

***
Это сообщение No1790
было разослано для 228 участников дискуссионного листа
[JFWRus] Re: Комодератор: сжатие с M P G формата

Добрый день, i_chay.

Возможна ситуация, что джоз не успевает до получения текущей раскладки
отработать её переключение, так как он не ждёт завершения обработки
посланной комбинации.
А так как в джозе нельзя использовать задержки в циклах, то, как мне
кажется возможен выход в изменении алгоритма работы.
Сначала берём текущую расскладку и в зависимости от того сколько раз
нужно нажать комбинацию для переключения на нужную раскладку столько и
посылаем нажатий.
Это не так универсально и требует подгонки под конкретную ситуацию, но должно
работать.

--
С уважением, Sergey.

***
Это сообщение No1735
было разослано для 225 участников дискуссионного листа
[JFWRus] Re[4]: Возможно ли написать такой скрипт?..