Есть ли или может ли SendKeys VBscript поддерживать Unicode?

Question

Я нахожу, что SendKeys VBscript не поддерживает Unicode. Он поддерживает некоторые, такие как A-65, но не иностранные буквы, как письмо Алеф (א) с еврейского алфавита. Prob за пределами поддерживаемого диапазона. Может быть для десятичных значений 128+, он дает «?», И он поддерживает только диапазон ASCII.

Я могу напечатать и увидеть буквы на иврите на своем компьютере с помощью Windows XP. Таким образом, поддержка ОС для персонажей существует и настроена. Мой исходный код показывает, что, так как линия

msgbox Chrw(1488) 

отображает символ Алеф, и я отображается его в блокноте и MS Word.

Мне кажется, что он отправляет знак вопроса персонажу, которого он не распознает. Я думаю, что MS Word или Notepad, если у них возникла проблема с отображением символа (например, когда шрифт не поддерживает символ), они будут отображать поле, а не знак вопроса. Конечно, в случае с Блокнотом в любом случае. Таким образом, это выглядит как проблема SendKeys. Есть идеи? Любой способ обхода?

Dim objShell 

Set objShell = CreateObject("WScript.Shell") 

objShell.Run "notepad" ''#can change to winword 

Wscript.Sleep 2000 

msgbox Chrw(1488) ''#aleph 

objShell.SendKeys ("abc" & ChrW(1488) & "abc") ''#bang, it displays a ? instead of an aleph 

WScript.Quit 

Answer 1

Вы, скорее всего, правы в своей догадке, что VBscript's SendKeys не поддерживает Unicode.

Мониторинг вызовов функций API Windows, выполняемых SendKeys (с использованием API Monitor и Blade API Monitor на русском Windows XP с английским США, России и на иврите клавишных) показывает, что SendKeys не Unicode известно. В частности, SendKeys выполняет следующие действия:

1. Вызывает ANSI (не Unicode) версию функции VkKeyScan - VkKeyScanA - получить виртуальный код символа, который будет послан. Эта функция переводит символ в VK_SHIFT + VK_OEM_2, поэтому кажется, что где-то до или в процессе символ Алефа преобразуется в другой символ ANSI.

2. Позволяет выполнить функцию SendInput для отправки ключей, а не персонажей Алефа.

Основная проблема здесь состоит в том, что для передачи символа Unicode, SendInput должен вызываться с KEYEVENTF_UNICODE флагом и характер в вопросе должен быть передан через параметры функции - эксперимент показывает, что ни одно из этого не так , Кроме того, VkKeyScan на самом деле не нужен в случае символа Юникода, так как SendInput сам обрабатывает вход Unicode.

Учитывая это, единственный способ отправить ввод Unicode в приложение из VBScript, чтобы написать пользовательскую программу или COM-компонент, который будет использовать SendInput правильно и назвать эту утилиту/компонент из сценария. (VBScript не имеет собственных средств доступа к Windows API.)

Примечание добавлено barlop

Хотя obj.SendKeys VBScript (в ..) не юникод известно, SendKeys.Send VB (в ..) будет.

Answer 2

Попробуйте установить шрифт на Microsoft Sans Serif в Блокнот.

Answer 3

Я использую Dragon Naturally Говоря с ивритом, и SendKeys действительно не может отправлять ивритские символы, даже если они отображаются в редакторе макросов, однако, что я сделал, был установлен буфер обмена с текстом на иврите, который я хотел, а затем SendKeys с Ctrl-V для вставки, и это действительно работает, это просто SendKeys, который смешивается с кодировкой.

Clipboard("טקסט בעברית") 
SendKeys("^V") 

Это переопределять бы пользователям буфер и не будет работать для смешивания командных символов (Ctrl, Alt, Shift) с ивритом символов, но это работа вокруг.