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

Question

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

1. CTR + ESC

2. 输入

3. 赢得 + ←

4. 赢得 + d

5. 赢得 + 电子

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

Answer 1

你看过AutoIt吗？你会在AutoIt社区找到大量有关如何做这类事情的信息。

然后，返回perl并在windows中查找SendKeys API。我上次安装ActivePerl已有15年了，但如果我没记错的话，你可以使用一堆windows库。

如果您没有这样的库，那么您需要弄清楚如何直接使用Windows API。这不应该太困难。寻找SendKeys API。您可能想要找到桌面的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");