perl - 如何使用 Perl 在 Windows 系统托盘图标上自动执行鼠标单击？

Question

我正在使用 Perl 编写一些自动化脚本来测试自定义 Windows 应用程序。退出应用程序的唯一方法是自动右键单击系统托盘图标(应用程序创建)并单击它显示的菜单上的退出。是否可以使用 Perl 自动执行此类点击？我检查了 Win32::GuiTest模块，但找不到很多关于自动鼠标点击系统托盘图标的东西。

Answer 1

我不知道有什么可靠的方法可以满足您的要求。

但看起来您可以通过先调用 MouseMoveAbsPix 移动到正确的位置，然后调用 SendMouse 和 RightClick 来使其工作。如果您确切知道将要使用的机器，并且知道托盘的位置，则可以单击托盘图标。

但是请注意，这将非常非常依赖于窗口上的确切内容。如果屏幕与您预期的有任何不同，则此逻辑根本不起作用。 (例如，出现意外的弹出窗口。)

顺便说一句，您可以尝试查看向应用程序发送组合键 ALT+F4 是否会退出应用程序。这有可能会奏效，而且应该更加可靠。