通过Perl脚本控制Google Chrome

Question

我一直在寻找一种方法来检查用户提供的特定URL的更改.我写了一个脚本,我在家里跑,可以成功地使用WWW::Mechanize.问题是,我需要在另一个计算机网络中运行它,该计算机网络具有阻止所有$mech->get($url)请求的组策略(这不是防火墙问题,我让Perl通过),所以我想我会尝试通过让Perl控制来解决这个问题网络浏览器.

网络中的计算机仅运行谷歌浏览器和IE8,由于其他政策(想到使用WWW::Mechanize::Firefox),我无法安装Firefox .我不想在脚本中调用IE8,因为将提供的大多数网址都是不适合它的网站,因此只留下Chrome.

正在搜索可以做到这一点的模块,我只发现AnyEvent::Chromi:

它通过websocket连接公开所有Chrome Extensions API.

这不起作用(该策略可能也阻止了websocket).

还有其他方法可以解决此问题/从Perl脚本中控制Chrome吗？

Answer 1

既然您提到了 IE8，我假设您正在处理 Windows 系统。既然您提到您已经考虑过 WWW:Mechanix::Firefox，那么听起来您并不仅仅局限于核心模块。

基于此，我能想到的自动化 Chrome 浏览器的唯一方法是使用Win32::GuiTest来控制 Chrome 浏览器。如果您能够弄清楚如何仅使用键盘输入（即不使用鼠标）来手动驱动测试，那么这将比尝试找出鼠标模拟以使光标到达各种任务的正确位置更容易。

我不确定这是否一定是您愿意使用的路线。这是我能想到的在必须处理的限制下完成您想做的事情的唯一方法。