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

【问题标题】：How do I automate mouse clicks on a Windows system tray icon using Perl?如何使用 Perl 在 Windows 系统托盘图标上自动单击鼠标？
【发布时间】：2011-02-02 05:00:56
【问题描述】：

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

【问题讨论】：

标签： perl user-interface testing automation

【解决方案1】：

我不知道一种可靠的方法来做你所要求的。

但看起来您可以通过首先调用 MouseMoveAbsPix 移动到正确的位置，然后发送鼠标右键单击来使其工作。如果您知道您将使用的确切机器，并且知道托盘应该在哪里，您可以点击托盘图标。

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

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

【讨论】：

【解决方案2】：

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

【讨论】：