Perl WWW：：Scripter JE-MouseEvent'；不支持

我正在尝试自动化一个使用javascript的web应用程序

我使用的是WWW：：Scripter

对于单击链接，我使用以下代码，但似乎不支持MouseEvent

$wi->eval ('var theEvent = document.createEvent("MouseEvent");');
$wi->eval ('theEvent.initMouseEvent("click", true, true, window, 0, 0, 0, 0, 0, false, false, false, false, 0, null);');
$wi->eval ('var element = document.getElementsByTagName("li")[3].getElementsByTagName("a")[0];');
$wi->eval ('element.dispatchEvent(theEvent);');

---

我们还有别的办法吗。

谢谢。这将在一定程度上有所帮助。你已经发布了答案，删除了它们，然后在几分钟后发布了新的但类似的答案。如果您不喜欢，可以编辑您的答案。：）我们中的许多人仍然可以看到你所有被删除的答案。@briandfoy-这太可惜了-被删除的内容应该保留删除-调整你的系统（除非你为政府特勤局工作：）

use WWW::Scripter;

$wi = new WWW::Scripter;
$wi->use_plugin('JavaScript');

$wi->get('http://...');

$wi->follow_link(url => 
  $wi->eval(
    'document.getElementsByTagName("li")[3].getElementsByTagName("a")[0].href'
  )
);