1

下面的代码应该是不言自明的(发送 ctrl-numADD 组合键);但是,我显然做错了什么。以下代码产生的完整错误是:

Line: 4
Char: 1
Error:  Invalid procedule call or argument
Code: 800A005

如何发送此组合键而不产生错误?

PS:代码至少能够在尝试执行发送键之前将焦点更改为正确的窗口。

 Dim WshellObj   
 set WshShell = WScript.CreateObject("WScript.Shell")   
 WshShell.AppActivate "Logs"   
 WshShell.SendKeys "^{ADD}"  
4

1 回答 1

0

我不确定您为什么会收到该特定错误,但您正在尝试通过 SendKeys 方法使用无效的键序列。“{ADD}”不是有效代码。

您应该改用它。

Dim WshellObj
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "Logs"
WshShell.SendKeys "^+"

这将发送一个 + 号。SendKeys 不支持数字键盘特定的键。

于 2012-04-11T15:35:17.270 回答