VBScript SendKeys CTRL+LWIN+TAB?

问题

I am trying to write a simple script that will send the key combo of CTRL+WINDOWS KEY+TAB. The code below sends the keys CTRL+ALT+TAB

Set WshShell = WScript.CreateObject("WScript.Shell")
  WshShell.SendKeys "^%{TAB}"

However when I try to replace "%" (aka the ALT key) with LWIN (aka the Left Windows Key) it says Syntax Error.

I tried the following, but had no luck:

Set WshShell = WScript.CreateObject("WScript.Shell")
  WshShell.SendKeys "^{LWIN}{TAB}"

 

Set WshShell = WScript.CreateObject("WScript.Shell")
  WshShell.SendKeys "^{LWIN}+{TAB}"

 

Set WshShell = WScript.CreateObject("WScript.Shell")
  WshShell.SendKeys ^{LWIN}+{TAB}

I know it has something to do with being able to Hold certain keys while other keys are pressed but I can't seem to get it right.

The windows key can be pressed programmatically using CTRL+ESC. Is there a way to set this combination as a variable called LWIN and then use one of the above Scripts?

回答1:

Just in case someone land here on these years...
A workaround (instead of sending keystrokes) is to call directly to the application:

Set objShell = CreateObject("Shell.Application")
objShell.WindowSwitcher

This will open Task Switcher Windows App. (Same as ⊞ windows+TAB)

回答2:

try this code:

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "+(^{LWIN}{TAB})"

回答3:

I know you are looking for VBscript but it looks like that is unlikely (pure VBscript). Here is a post that did solve this via C#.

https://stackoverflow.com/a/10367832/1742115

This page tells how to call the C# DLL from your VBscript if you want to keep some of this in vbs.

回答4:

I think your question is an example of an XY problem and what you actually want to do is to activate Flip 3D (Switch between windows). You can do this programmatically by executing the rundll32 DwmApi #105 command:

CreateObject("WScript.Shell").Run "rundll32 DwmApi #105"

来源：https://stackoverflow.com/questions/12877547/vbscript-sendkeys-ctrllwintab