如果用户按任意键，焦点将移动下一个标签

Question

我尝试制作一个应该执行以下功能的脚本：

1. 在后台运行
如果用户按任意键，
2. 焦点移动到下一个标签
3. 在Windows平台上运行。

我使用了以下代码，但它不起作用：（

如果我在代码中出错，请纠正我。

Set wshShell = WScript.CreateObject("WScript.Shell")
Dim a
Do
  a = WScript.StdIn.Read(1)
  wshShell.SendKeys "{TAB}"
Loop