如何使用Perl自动鼠标点击Windows系统托盘图标？

Question

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

Answer 1

我不知道有什么可靠的方式来做你要求的事。

但看起来你可以通过首先调用MouseMoveAbsPix移动到正确的位置，然后SendMouse一个RightClick来使它工作。如果您知道要使用的确切机器，并知道托盘应该在哪里，则可以单击托盘图标。

但请注意，这将非常非常依赖于窗口上的确切内容。如果屏幕与您期望的有任何不同，那么这个逻辑根本不起作用。 （例如，有一个意想不到的弹出窗口。）

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

Answer 2

该分发附带examples。您首先要使用spy.pl来查找相应托盘图标的窗口名称。然后在真实程序中使用该名称立即寻址图标，这与位置无关。