我发现 VBscript 的SendKeys不支持Unicode。它支持 A-65 等一些字母，但不支持希伯来字母表中的字母 Aleph (א) 等外来字母。问题超出其支持范围。可能是 128+ 的十进制值，它给出一个“？”，并且它只支持 ASCII 范围。
我可以在使用 Windows XP 的计算机上键入并查看希伯来语字母。因此，操作系统对角色的支持已经存在并已设置。我的源代码表明，由于该行
msgbox Chrw(1488)
显示 Aleph 字符，我已在记事本和 MS Word 中显示它。
在我看来，它正在为它无法识别的字符发送问号。我认为 MS Word 或记事本如果确实在显示字符时出现问题（例如，当字体不支持字符时），它们会显示一个框而不是问号。无论如何，对于记事本来说当然是这样。所以它看起来像一个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
你的猜测很可能是正确的VB脚本的SendKeys不支持统一码.
监控 Windows API 函数调用SendKeys using 刀片API监控器在带有美国英语、俄语和希伯来语键盘的俄语 Windows XP 上）显示SendKeys不支持 Unicode。具体来说，SendKeys执行以下操作：
-
调用 ANSI（而非 Unicode）版本VkKeyScan功能 -VkKeyScanA— 获取要发送的字符的虚拟键码。该函数将字符转换为VK_SHIFT + VK_OEM_2，因此似乎在该过程之前或过程中的某个地方，Aleph 字符被转换为不同的 ANSI 字符。
-
调用SendInput函数发送VK_SHIFT + VK_OEM_2击键而不是 Aleph 字符。
这里的主要问题是发送 Unicode 字符，SendInput必须用KEYEVENTF_UNICODE标志和相关字符必须通过函数参数传递 - 实验表明情况并非如此。还，VkKeyScan对于 Unicode 字符，实际上并不需要，因为SendInput本身处理 Unicode 输入。
鉴于此，从 VBScript 将 Unicode 输入发送到应用程序的唯一方法是编写一个自定义实用程序或 COM 组件，该实用程序或 COM 组件将利用SendInput正确地并从您的脚本中调用此实用程序/组件。 （VBScript 没有任何本地方法来访问 Windows API。）
巴洛普添加的注释：而 VBScript 的obj.SendKeys(..)不支持 Unicode，VB 的SendKeys.Send(..)将会。
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
