perl - 使用 perl 脚本从 Windows 8 桌面调用键盘快捷键

Question

我想编写一个 Perl 脚本，它应该按以下顺序从桌面发送以下键。

1. ctr+ESC

2. enter

3. win+←</kbd>

4. win+D

5. win+E

有人知道如何从 Perl 脚本中做到这一点吗？

Answer 1

你看过 AutoIt 吗？您会在 AutoIt 社区中找到大量有关如何执行此类操作的信息。

然后，回到 perl 并SendKeys在 windows 的东西中寻找 API。自从我上次安装 ActivePerl 已经 15 年了，但如果我没记错的话，那里有一堆你可以使用的 windows 库。

如果您没有这样的库，那么您将需要弄清楚如何直接利用 Windows API。这应该不会太难。寻找SendKeysAPI。你可能想找到hwnd桌面的。

（那里。一堆指针，很抱歉没有解决方案，但这些提示会让你到达那里！）

所以我找到了这个模块：Win32::GuiTest，它看起来就像这样简单：

Win32::GuiTest::SendKeys("^{ESCAPE");
Win32::GuiTest::SendKeys("{ENTER}");
Win32::GuiTest::SendKeys("{LWIN}<-");
Win32::GuiTest::SendKeys("{LWIN}D");
Win32::GuiTest::SendKeys("{LWIN}E");