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

Question

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

Answer 1

我不知道一个强有力的方式来做你所要求的。

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

但是请注意，这将非常依赖窗口上的确切内容。如果屏幕与你期望的方式不同，这种逻辑根本不起作用。 （例如，有一个意外的弹出窗口。）

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

Answer 2

该分配自带examples。您首先想要玩spy.pl以查找相应托盘图标的窗口名称。然后，在您的真实程序中，您可以使用该名称立即解决该图标，这与位置无关。