WWW :: Scripter JE - MouseEvent'不受支持

Question

我正在尝试使用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);');

我们还有其他方法可以实现它。

Answer 1

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'
  )
);