在perl

Question

my $script = q{
    var xmlhttp;
    var args = arguments[0];
    if (window.XMLHttpRequest) {
        xmlhttp = new XMLHttpRequest();
    } else {
        xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
    }
    xmlhttp.onreadystatechange = function () {
        if (xmlhttp.readyState==4 && xmlhttp.status==200) {
            callback(xmlhttp.responseText);
        }
    }
    var url = "url";
    xmlhttp.open("GET", url, true);
    xmlhttp.send();
};
my $callback = q{return arguments[0];};
my $result = $driver->execute_async_script($script,'myid',$callback);

我在执行上面的脚本时遇到错误。

  

执行命令时出错：executeAsyncScript：脚本没有   在超时到期之前完成：异步脚本超时：   结果未在0秒内收到

我也在下面试过，但它仍然给出错误。

my $callback = q{return window.setTimeout(arguments[0], 1000);};

并在执行异步脚本之前调用以下方法。

$driver->set_async_script_timeout(1000);

任何帮助都将受到高度赞赏？