混合 Batch-VBScript 文件中的发送键

Posted 2023-02-16

【中文标题】混合 Batch-VBScript 文件中的发送键

【英文标题】：Sendkeys from within hybrid Batch-VBScript file

【发布时间】：2020-06-10 23:13:36

【问题描述】：

我想不通，我在这里做错了什么。

签出下面的脚本，我打算在其中通过SendKeys 方法切换蓝牙启用设置：

@if (@CodeSection == @Batch) @then

@echo off

set SendKeys=CScript //nologo //E:JScript "%~F0"

start "" /b explorer.exe ms-settings:bluetooth

%SendKeys% "TAB" & %SendKeys% " "

goto :EOF

@end

// JScript section
var WshShell = WScript.CreateObject("WScript.Shell");
WshShell.AppActivate "settings":WScript.Sleep 300
WshShell.SendKeys(WScript.Arguments(0));

它不做按键操作，只是打开蓝牙设置窗口并保持原样。

感谢任何帮助。

【参考方案1】：

Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "ms-settings:bluetooth"
WScript.Sleep 1000
WshShell.SendKeys "TAB"
WshShell.SendKeys " "
WScript.Sleep 100
WshShell.SendKeys "%F4"

注意：我遵守该规则列表。我的程序很简单，而不是不必要的复杂、间接和以错误的方式做事。