以下代码在命令提示符下不起作用。它仅发送“”。为什么?我正在使用Windows7。

[js]
var shellApp = new ActiveXObject("Wscript.Shell");
shellApp.appActivate("C:\\Windows\\system32\\cmd.exe"); //Other apps seem to work.
WScript.Sleep(1000);
shellApp.sendKeys("%( )");


我想粘贴一个字符串。为此,我需要在命令提示符下按Alt + Space。 WSH解决方案是最好的。我无法安装和使用第三方物品,因为在我的环境中不允许使用。

谢谢。

最佳答案

您要粘贴字符串还是要粘贴剪贴板内容?要粘贴剪贴板,可以使用它(它是用VBScript编写的,但是可以用JavaScript重建它):

dim shellApp
Set shellApp = Wscript.CreateObject("Wscript.Shell")
shellApp.appActivate "C:\Windows\system32\cmd.exe"
WScript.Sleep 1000

Dim objHTML
Set objHTML = CreateObject("htmlfile")
shellApp.sendKeys objHTML.ParentWindow.ClipboardData.GetData("Text")


缺点:您需要转义任何特殊字符。

10-07 18:06