Серый форум — VBS: Смена раскладки клавиатуры для активного окна приложения

Re: VBS: Смена раскладки клавиатуры для активного окна приложения

null@example.com (TAOSoft) — Mon, 22 Aug 2016 11:07:25 +0000

Flasher
Спасибо большое за наводку, эти методы помогли мне выполнить нужные действия....


.ControlSend "[CLASS:Notepad]", "", "Edit1", "{ALTTDOWN}пн{ALTUP}"
.WinMenuSelectItem "[CLASS:Notepad]", "", "&Справка", "&О программе"

Re: VBS: Смена раскладки клавиатуры для активного окна приложения

null@example.com (Flasher) — Sat, 20 Aug 2016 17:40:06 +0000

TAOSoft
Почему аналог? Во втором случае Alt удерживается при нажатии "н", что реализуется так:

  .ControlSend "[CLASS:Notepad]", "", "Edit1", "{ALTTDOWN}пн{ALTUP}"

Если требуется вызвать диалог поиска, то проще эмулировать Ctrl+F:

  .ControlSend "[CLASS:Notepad]", "", "", "^f"

Либо в случае отсутствия хоткея непосредственно выбирать подпункт меню:

  .WinMenuSelectItem "[CLASS:Notepad]", "", "&Справка", "&О программе"

Re: VBS: Смена раскладки клавиатуры для активного окна приложения

null@example.com (TAOSoft) — Sat, 20 Aug 2016 16:28:53 +0000

Flasher
Согласен то Ваш код в блокнот вставляет текст.
Можно ли как то в продолжение отправить через автоит в блокнот комбинацию Alt+П а следом Н (аналог .SendKeys "%(пн)")

Re: VBS: Смена раскладки клавиатуры для активного окна приложения

null@example.com (Flasher) — Sat, 20 Aug 2016 16:17:03 +0000

TAOSoft
Что значит "будет"? Вы мой скрипт запускали? Что в нём не так?

Re: VBS: Смена раскладки клавиатуры для активного окна приложения

null@example.com (TAOSoft) — Sat, 20 Aug 2016 16:00:11 +0000

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

Re: VBS: Смена раскладки клавиатуры для активного окна приложения

null@example.com (Flasher) — Sat, 20 Aug 2016 14:53:14 +0000

TAOSoft
А сами как думаете, со слов Есть некая программа (поделка "Пети Иванова" ... отправить комбинацию клавиш в активное окно можно предложить точную реализацию задачи, которая в полном представлении засела только в Вашей голове, и это при том, что далее от Вас последовал скрипт, олицетворяющий ввод некого текста в блокнот, как и в моём примере, только с набором лишних действий? Телепатией я, увы, не обладаю.

Re: VBS: Смена раскладки клавиатуры для активного окна приложения

null@example.com (TAOSoft) — Sat, 20 Aug 2016 14:30:09 +0000

Flasher
Трюки с манифестами я уже не один год практикую на практике, достаточно успешно.
На автоите и т.п. я бы хотел реализацию моей задачи увидеть, а не типовые моменты использования.

Re: VBS: Смена раскладки клавиатуры для активного окна приложения

null@example.com (Flasher) — Fri, 19 Aug 2016 21:33:50 +0000

TAOSoft
Что ещё странно - даже Alt-коды не работают.
Что касается AutoItX3, то там всё просто:

With CreateObject("AutoItX3.Control")
  .Run "notepad.exe" : .WinWaitActive "[CLASS:Notepad]"
  .ControlCommand "[CLASS:Notepad]", "", "Edit1", "EditPaste", "текст text"
End With

+ AutoItX3.sxs.manifest

Re: VBS: Смена раскладки клавиатуры для активного окна приложения

null@example.com (Flasher) — Fri, 19 Aug 2016 12:22:19 +0000

Вот те здрасте.. В SendKeys отключили нелатиницу, потрясающе просто.
wshom.ocx вроде 9-го года. Если только в wscript.exe или vbscript.dll дело.

Re: VBS: Смена раскладки клавиатуры для активного окна приложения

null@example.com (TAOSoft) — Fri, 19 Aug 2016 11:30:34 +0000

Flasher
Да этот пост я видел, создал тему так как приведенный в нем скрипт "сомнительно ведет себя"...
Если в нем заменить соответствующий текст этим:


' Настраиваем кнопки диалога сообщения: 
Msg = MsgBox("Нажмите Да для перехода в блокнот," & vbnewLine & _ 
"Нет - для перехода в WordPad" & vbnewLine & "Отмена - для других действий", 4099) 
If Msg = 6 Then 
	Run "notepad", RUS, HK
	WScript.Sleep 1000 
	WSH.SendKeys "т"
	WSH.SendKeys "е"
	WSH.SendKeys "с"
	WSH.SendKeys "т"
	WSH.SendKeys "%(пн)"

ElseIf Msg = 7 Then Run "%WinDir%\write.exe", ENG, HK
ElseIf Msg = 2 Then WScript.Echo "Другие действия!" 
End If

ни чего в блокнот не уходит... Ни текстовые клавиши, ни комбинация клавиш не "уходят" в блокнот.

PS: Как считаете перейти с обсуждение схожего вопроса в ту тему, либо остаться тут продолжать? Может быть уважаемые гуру скриптописания предложат в этой теме варианты на сторонних библиотеках типа AutoItX3, dynwrap и т.п.

Re: VBS: Смена раскладки клавиатуры для активного окна приложения

null@example.com (Flasher) — Thu, 18 Aug 2016 12:19:12 +0000

Перед тем, как задать вопрос обратитесь к поиску по форуму по ключевым словам.
>>
Переключение раскладки клавиатура на английскую по умолчанию VBS

Re: VBS: Смена раскладки клавиатуры для активного окна приложения

null@example.com (YMP) — Thu, 18 Aug 2016 07:14:14 +0000

Да, фигня какая-то. Но тогда, видимо, остаётся на какие-то сторонние объекты полагаться.

Re: VBS: Смена раскладки клавиатуры для активного окна приложения

null@example.com (TAOSoft) — Thu, 18 Aug 2016 06:37:07 +0000

YMP
SendKeys я первым делом пробовал задействовать, но ведет себя он как то сомнительно....
Для примера возьмем код по ссылке представленной Вами:


Dim WshShell, my_arr(16), index
 
' Создаем ссылку на объект
Set WshShell = WScript.CreateObject("WScript.Shell")
 
'Определяем элементы массива
my_arr(0) = "Э"
my_arr(1) = "т"
my_arr(2) = "о"
my_arr(3) = "{ENTER 2}"
my_arr(4) = "п"
my_arr(5) = "р"
my_arr(6) = "о"
my_arr(7) = "с"
my_arr(8) = "т"
my_arr(9) = "о"
my_arr(10) = "й"
my_arr(11) = "{ENTER 2}"
my_arr(12) = "т"
my_arr(13) = "е"
my_arr(14) = "к"
my_arr(15) = "с"
my_arr(16) = "т"
 
' Запускаем программу блокнот
WshShell.Run "Notepad.exe", 1
 
WScript.Sleep 1000       

WshShell.SendKeys "(^+)"
 
' Используем цикл для перебора элементов массива
For each index in my_arr
     ' Имитируем нажатие клавиши

'msgbox index

     WshShell.SendKeys(index)
     ' Делаем задержку в 500 миллисекунд
     WScript.Sleep 500
Next

Этот пример отрабатывает при условии что настройка клавиатуры по умолчанию установлена в рус.
Но если раскладка системы установлена в Eng и я добавляю строку WshShell.SendKeys "(^+)" , т.е. сочетание клавиш CTRL+SHIFT (так у меня настроена смена раскладки), то в момент работы скрипта я вижу, что в языковой панели индикатор активного языка меняется на нужный мне (на рус), но при этом в блокнот поступает следующая последовательность символов: ] и 4 Enter (4 перехода на новую строку).

Re: VBS: Смена раскладки клавиатуры для активного окна приложения

null@example.com (YMP) — Thu, 18 Aug 2016 05:11:43 +0000

http://scriptcoding.ru/2013/06/25/wscri … -sendkeys/

VBS: Смена раскладки клавиатуры для активного окна приложения

null@example.com (TAOSoft) — Thu, 18 Aug 2016 05:05:15 +0000

Здравствуйте уважаемые знатоки!
Подскажите пожалуйста есть ли варианты решения следующей задачи:
Есть некая программа (поделка "Пети Иванова", кода нет, программиста за давностью времени нет) для внутреннего использования в организации, настройка которой осуществляется исключительно при текущем запуске (без использования реестра, файлов конфигурации и т.п.), но существует поддержка использования горячих клавиш (для использования с русской раскладкой). Операционная система имеет настройку раскладки клавиатуры по умолчанию латинскую раскладку (обязательное условие). Возможно ли реализовать следующий скрипт 1) запустить программу (это и я могу); 2) сменить раскладку клавы для окна с открытой программой (это основной вопрос); 3) отправить комбинацию клавиш в активное окно.
Рассмотрю и опробую любые из предложенных вариантов.
Заранее благодарю за содействие.