VBScript 发送键"

Question

我有一个 VBScript 可以取消订阅所有 Steam 创意工坊对象

代码：

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "Steam Community :: [GER] Aaron :: Abonnierte Objekte - Opera"
WshShell.AppActivate "Steam Community :: [GER] Aaron :: Abonnierte Objekte - Opera"
WshShell.AppActivate "Steam Community :: [GER] Aaron :: Abonnierte Objekte - Opera"
WshShell.SendKeys "^{2}"
WScript.Sleep 5000
WshShell.SendKeys "jQuery ("[id^='UnsubscribeItemBtn']").children().trigger('click'); setTimeout(function(){location.reload();},500);"
WshShell.SendKeys "{ENTER}"
WScript.Sleep 5000
WshShell.SendKeys "jQuery ("[id^='UnsubscribeItemBtn']").children().trigger('click'); setTimeout(function(){location.reload();},500);"
WshShell.SendKeys "{ENTER}"
WScript.Sleep 5000
WshShell.SendKeys "jQuery ("[id^='UnsubscribeItemBtn']").children().trigger('click'); setTimeout(function(){location.reload();},500);"
WshShell.SendKeys "{ENTER}"

在第 7 行（符号 29）中，它必须发送一个 " 但脚本认为它必须在那里结束 SendKey-Command...

我怎样才能防止这种情况发生？

Answer 1

这里有两个问题；

1. 字符串没有正确转义，因为@Scott 有pointed out (Revision 1)，但their latest edit 不是解决"" 和Chr(34) 等效的方法，我个人会坚持使用通过双引号进行转义。

2. 第 7 行符号 1 处的过程或参数无效（代码：800a0005）

   AppActivate() 未设置为正确的窗口时，可能是由 SendKeys() 引起的。

   注意在运行脚本时 VBSEdit 中发生了什么，SendKeys() 注入到脚本中导致运行时错误。

   检查这一点的方法是从AppActivate() 返回一个布尔值，然后继续执行脚本以确保它成功。

   Option Explicit
   Dim WshShell: Set WshShell = WScript.CreateObject("WScript.Shell")
   Dim IsWindowActive: IsWindowActive = WshShell.AppActivate("Steam Community :: [GER] Aaron :: Abonnierte Objekte - Opera")
   If IsWindowActive Then
       WshShell.SendKeys "^{2}"
       WScript.Sleep 5000
       WshShell.SendKeys "jQuery (""[id^='UnsubscribeItemBtn']"").children().trigger('click'); setTimeout(function(){location.reload();},500);"
       WshShell.SendKeys "{ENTER}"
       WScript.Sleep 5000
       WshShell.SendKeys "jQuery (""[id^='UnsubscribeItemBtn']"").children().trigger('click'); setTimeout(function(){location.reload();},500);"
       WshShell.SendKeys "{ENTER}"
       WScript.Sleep 5000
       WshShell.SendKeys "jQuery (""[id^='UnsubscribeItemBtn']"").children().trigger('click'); setTimeout(function(){location.reload();},500);"
       WshShell.SendKeys "{ENTER}"
   Else
       WScript.Echo "Activating Window Failed"
   End If
   

   输出（因为我没有那个特定的窗口）：

   Activating Window Failed
   

   
   

   为什么AppActivate() 返回False？

   关于为什么AppActivate()返回False我建议回顾一下

   A: WshShell.AppActivate doesn't seem to work in simple vbs script.

Answer 2

我发现 sendkey 在某些键上进行“翻译”的艰难方式。请参阅https://social.technet.microsoft.com/wiki/contents/articles/5169.vbscript-sendkeys-method.aspx的表格

不幸的是，我没有找到将SendKey 置于“原始”模式以不进行解释的方法。所以我必须处理字符串以预先撤消翻译。由于我使用PowerShell，所以我使用接下来的两行：

${SendKeyStr2Type} = "${Str2Type}" -replace "([\\{\\}\\[\\]\\(\\)~+^%])",'{$1}'
$wshell.SendKeys("${SendKeyStr2Type}")

详情：-replace 后有 2 个字符串，正则表达式样式。第一个列出要转义的字符{}[]()~+^%。使用\\ 将它们转义为正则表达式。那是在[]-s 中选择其中一个。那是在()-s 中，用于下一个（替换）字符串。第二个字符串是$1，正则表达式输入找到的字符串（这里是单个字符）并在{}-s之间输入。

请记住，sendkey 发送 key-strokes。他们冒昧地在<shift><othercaracter> 使用了一些字符，以便能够键入没有其字符的键。